How Can i Fix This VB6 Code?

Question

Sub emailusr()
Dim EmailMessage As New System.Web.Mail.MailMessage
Dim emailSMTp As System.Web.Mail.SMTPMail
EmailMessage.From = "SENDER"
EmailMessage.To = "RECIPIEnT"
EmailMessage.Subject = "SUBJECTTITLE"
EmailMessage.BodyFormat = Mail.MailFormat.Text
EmailMessage.Body = "MESSAGE
emailSMTp.SmtpServer = "STMPTHINGY"
emailSMTp.Send(EmailMessage)
End Sub

I also use the Imports System.Web.Mail in Line 1

These are the errors:

Namespace or type specified in the Imports 'System.Web.Mail' doesn't contain any public member or cannot be found. Make sure the namespace or the type is defined and contains at least one public member. Make sure the imported element name doesn't use any aliases.

Type 'System.Web.Mail.MailMessage' is not defined.

Type 'System.Web.Mail.SMTPMail' is not defined.

Name 'Mail' is not declared

End of Statement Expected { For the Imports Statement}

Answer 1

From this link it would appear that you are missing an import statement or a termination character to the import statement.
End of Statement Expected { For the Imports Statement}!!!

You are also missing brackets for MailMessage()
SMTPMail should be SmtpMail

That's for starts.

Answer 2

Whos mail server is this connecting to? you know you cant use pop3 on most sites without having to pay access to it. Unless you have a few old Hotmail accounts laying around that were grandfathered in

Answer 3

comparable difficulty is going on right here in Mexico. call of accountability 4 replace took numerous tries to get carry of. I nonetheless can no longer get carry of the hot map %. i'm getting the comparable blunders code.wish xbox stay adult men fix it quickly.