Imports System.Net
Imports System.Web.Mail
.........
Dim mail As New MailMessage()
mail.From = "From Address"
mail.To = "To Address"
mail.Cc = "CC Address"
mail.Bcc = "BCC Address"
mail.Subject = "Test Subject"
mail.Body = "Test Email Body"
mail.BodyFormat = MailFormat.Html
mail.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
mail.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "UserName"
mail.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "Password"
SmtpMail.SmtpServer = "Smtp server"
If mail.Body.Trim <> "" Then
SmtpMail.Send(mail)
End If
Set all email address and credential.
Try this one and reply me.. it's working or not..?