Email send using asp.net vb.net

Mark Tabor

10y1.6k.NET

I am trying to send an email from gmail account to another domain account which i have purchased , i have two methods one methods is working fine but the other is not giving any exception and not sending any email check these two methods the first one works fine

Private Sub SendEmail()

GetUserIDEmail(Session("LoggedInUserId"))

Dim Mail As New MailMessage

Try

Mail.IsBodyHtml = True

Dim MailText As String = Nothing

'Dim attachment As System.Net.Mail.Attachment

Mail.Subject = " Report Submitted By : " & Session("LoggedInUserFullName") & " " & "User Type :" & GetUserTypeName(CInt(Session("UserTypes")))

MailText = MailText + "" & "Dear User, " & "

" & Environment.NewLine

MailText = MailText + "" + " " & "we are glad to inform you that your records has accepted." & "
""
" + AcceptComments & """ " + Environment.NewLine

MailText = MailText + "
" & " Regards," & " " & "
" & "Plan Pakistan RBME TEAM" + "" & vbCrLf

Mail.IsBodyHtml = True

Mail.Body = MailText

Dim files As List(Of HttpPostedFile) = DirectCast(Cache(Me.Key), List(Of HttpPostedFile))

For Each file As HttpPostedFile In files

Mail.Attachments.Add(New Attachment(file.InputStream, Path.GetFileName(file.FileName), file.ContentType))

Next

Mail.From = New MailAddress("[email protected]")

Dim SMTP As New SmtpClient("smtp.gmail.com")

SMTP.EnableSsl = True

SMTP.Credentials = New System.Net.NetworkCredential("[email protected]", "forgot123")

SMTP.Port = 587

SMTP.Send(Mail)

Catch ex As Exception

ex.Message.ToString()

End Try

End Sub

-----------------------------------------------------------------------
2-This one is not working what is the reason
Private Sub SendHtmlFormattedEmail(ByVal recepientEmail As String, ByVal subject As String, ByVal body As String)
Dim Mail As New MailMessage
Mail.From = New MailAddress("[email protected]")
Mail.Subject = subject
Mail.Body = body
Mail.IsBodyHtml = True
Mail.To.Add("[email protected]")
Mail.From = New MailAddress("[email protected]")
Dim SMTP As New SmtpClient("smtp.gmail.com")
SMTP.EnableSsl = True
SMTP.Credentials = New System.Net.NetworkCredential("[email protected]", "forgot123")
SMTP.Port = 587
SMTP.Send(Mail)
End Sub
this second method works fine for gmail but not for my domain email address which i have purchased

18 Replies
Know the answer? Post it — somebody with the same question will find it here.

Bikesh Srivastava10y ago
Hi Mark,
Try this using exchange server.
//sendmailtoadminviaoutlookcredintial.
publicclassSendmailByOutLook
{
stringMailUser=WebConfigurationManager.AppSettings["MailUser"].ToString();
stringMailPass=WebConfigurationManager.AppSettings["mailPass"].ToString();
stringMailTo=WebConfigurationManager.AppSettings["MailTo"].ToString();
publicboolSendMail(RequestInsightsinfo)
{
try
{
ExchangeServiceservice=newExchangeService(ExchangeVersion.Exchange2010_SP1);
service.Credentials=newNetworkCredential(MailUser,MailPass);
service.AutodiscoverUrl(MailUser);
EmailMessageemailMessage=newEmailMessage(service);
emailMessage.Subject=info.Subject;
emailMessage.Body=newMessageBody("
HiAdmin,
Name : "+info.Name+"
Email : "+info.EmailId+"
Details : "+info.Details+"
Date : "+DateTime.Now.ToString()+"
");
emailMessage.ToRecipients.Add(MailTo);
emailMessage.SendAndSaveCopy();
returntrue;
}
catch(Exceptionex)
{
returnfalse;
}
}
}
0
Mark Tabor10y ago
hi dear the below method works fine
Private Sub SendEmail()
Dim Mail As New MailMessage
Try
Mail.Subject = "Indicators Assigned:"
Dim MailText As String = Nothing
MailText = MailText + "" & "Dear Partner, " & "

" & Environment.NewLine
MailText = MailText + "" & "A PuAdmin has assign indicators to you and defined the targets for your Communities,login to your account for proceeding ." + "

" & Environment.NewLine
MailText = MailText + "" & "Kind Regards," & " " & "
" & "Plan Pakistan RBME Team

" + "" & Environment.NewLine
' Mail.Body = "" & "Hi " & "+ A PuAdmin has Defined the targets for his/her city for reviewing the target goto the specific page and see what he has done." + "" + Environment.NewLine
MailText = MailText + "Important Note: Please do not use Reply feature of your Inbox to send" & Environment.NewLine
MailText = MailText + " a reply-email because although the sender name shown is the form-sender's name" & Environment.NewLine
MailText = MailText + "but the email used to deliver this email was internal to Plan Pakistan RBME."
Mail.IsBodyHtml = True
Mail.Body = MailText
' info@(planrbme.com.pk)
' Mail.To.Add("[email protected]")
'Mail.To.Add("[email protected]")
Mail.From = New MailAddress("[email protected]")
' Mail.From = New MailAddress("[email protected]")
Dim email As String = GetEmailOfUser(ddlUsersPo.SelectedItem.Text)
Mail.To.Add(email)
'= New MailAddress(email)
Dim SMTP As New SmtpClient("smtp.gmail.com")
SMTP.EnableSsl = True
SMTP.Credentials = New System.Net.NetworkCredential("[email protected]", "forgot123")
SMTP.Port = 587
SMTP.Send(Mail)
Catch ex As Exception
ex.Message.ToString()
End Try
End Sub
so what ever i am not using remotecertificatevalidationcallback in that but it still works so why my method is not working
0
Mark Tabor10y ago
this line gives an error
RemoteCertificateValidationCallbackorgCallback=ServicePointManager.ServerCertificateValidationCallback
0
Mark Tabor10y ago
sorry for making you disturb , I have modified my method like that
Private Sub SendHtmlFormattedEmail(ByVal recepientEmail As String, ByVal subject As String, ByVal body As String)
Dim mailMessage As System.Net.Mail.MailMessage = New System.Net.Mail.MailMessage
mailMessage.From = New MailAddress(ConfigurationManager.AppSettings("UserName"))
mailMessage.Subject = subject
mailMessage.Body = body
mailMessage.IsBodyHtml = True
mailMessage.To.Add(New MailAddress(recepientEmail))
Dim smtp As SmtpClient = New SmtpClient
smtp.Host = ConfigurationManager.AppSettings("Host")
smtp.EnableSsl = Convert.ToBoolean(ConfigurationManager.AppSettings("EnableSsl"))
Dim NetworkCred As System.Net.NetworkCredential = New System.Net.NetworkCredential
NetworkCred.UserName = ConfigurationManager.AppSettings("UserName")
NetworkCred.Password = ConfigurationManager.AppSettings("Password")
smtp.UseDefaultCredentials = True
smtp.Credentials = NetworkCred
smtp.Port = Integer.Parse(ConfigurationManager.AppSettings("Port"))
ServicePointManager.ServerCertificateValidationCallback = AddressOf OnValidateCertificate
' ServicePointManager.ServerCertificateValidationCallback = New RemoteCertificateValidationCallback(OnValidateCertificate)
ServicePointManager.Expect100Continue = True
smtp.Send(mailMessage)
End Sub
Private Shared Function OnValidateCertificate(sender As Object, certificate As X509Certificate, chain As X509Chain, sslPolicyErrors As SslPolicyErrors) As Boolean
Return True
End Function
but still it is not sending any email to my domain address , can you assists me more
0

Venkat10y ago
ServicePointManager.ServerCertificateValidationCallback = AddressOf OnValidateCertificate;

0

Mark Tabor10y ago
I think vb.net is not supporting that
0
Mark Tabor10y ago
DearVenkatesan ArasappanI have changed the code as below
I write this method
Private Shared Function OnValidateCertificate(sender As Object, certificate As X509Certificate, chain As X509Chain, sslPolicyErrors As Net.Security.SslPolicyErrors) As Boolean
Return True
End Function
and my email method is like that
Private Sub SendHtmlFormattedEmail(ByVal recepientEmail As String, ByVal subject As String, ByVal body As String)
Dim mailMessage As System.Net.Mail.MailMessage = New System.Net.Mail.MailMessage
mailMessage.From = New MailAddress(ConfigurationManager.AppSettings("UserName"))
mailMessage.Subject = subject
mailMessage.Body = body
mailMessage.IsBodyHtml = True
mailMessage.To.Add(New MailAddress(recepientEmail))
Dim smtp As SmtpClient = New SmtpClient
smtp.Host = ConfigurationManager.AppSettings("Host")
smtp.EnableSsl = Convert.ToBoolean(ConfigurationManager.AppSettings("EnableSsl"))
Dim NetworkCred As System.Net.NetworkCredential = New System.Net.NetworkCredential
NetworkCred.UserName = ConfigurationManager.AppSettings("UserName")
NetworkCred.Password = ConfigurationManager.AppSettings("Password")
smtp.UseDefaultCredentials = True
smtp.Credentials = NetworkCred
smtp.Port = Integer.Parse(ConfigurationManager.AppSettings("Port"))
ServicePointManager.ServerCertificateValidationCallback = New RemoteCertificateValidationCallback(OnValidateCertificate)
ServicePointManager.Expect100Continue = True
smtp.Send(mailMessage)
End Sub
Highlighted area is my modification but it gives an error at compilation as below
"delegate'system.Net.Security.RemoteCertificateValidationCallBack' requires an 'AddressOf' expression or lambda expression as the only argument to its constructor."
0
Venkat10y ago
Greetings
kindly check

Private Shared Function OnValidateCertificate(sender As Object,certificate As X509Certificate,chain As X509Chain,sslPolicyErrors As SslPolicyErrors) As Boolean
Return True
End Function
0
Mark Tabor10y ago
how to write this method in vb.net
privatestaticboolOnValidateCertificate(objectsender,X509Certificatecertificate,X509Chainchain,SslPolicyErrorssslPolicyErrors)
{
returntrue;
}
0
Mark Tabor10y ago
these lines have syntax error
RemoteCertificateValidationCallbackorgCallback = ServicePointManager.ServerCertificateValidationCallback
RemoteCertificateValidationCallbackorgCallback=ServicePointManager.ServerCertificateValidationCallback
stringbody="Test"
Try
ServicePointManager.ServerCertificateValidationCallback=newRemoteCertificateValidationCallback(OnValidateCertificate)
ServicePointManager.Expect100Continue=True
0
Mark Tabor10y ago
ok i am checking it and informing you.Thanks
Venkatesan Arasappan
0
Venkat10y ago
Greetings,
Hi mark main issue in the code is gmail wants the clients to be secure even throw we set EnableSsl = true; .To fix the issue add the RemoteCertificateValidationCallback then it will work fine.
Yes you have to change the code.kindly try below code and let me know you still have issue.
stringsenderID="[email protected]"
stringsenderPassword="xxx"
RemoteCertificateValidationCallbackorgCallback=ServicePointManager.ServerCertificateValidationCallback
stringbody="Test"
Try
ServicePointManager.ServerCertificateValidationCallback=newRemoteCertificateValidationCallback(OnValidateCertificate)
ServicePointManager.Expect100Continue=True
MailMessagemail=newMailMessage()
mail.[To].Add("[email protected]")
mail.From=newMailAddress(senderID)
mail.Subject="MyTestEmail!"
mail.Body=body
mail.IsBodyHtml=True
SmtpClientsmtp=newSmtpClient()
smtp.Host="smtp.gmail.com"
smtp.Credentials=newSystem.Net.NetworkCredential(senderID,senderPassword)
smtp.Port=587
smtp.EnableSsl=True
smtp.Send(mail)
Console.WriteLine("EmailSentSuccessfully")
CatchgeneratedExceptionNameAsExceptionex
Console.WriteLine(ex.Message)
Finally
ServicePointManager.ServerCertificateValidationCallback=orgCallback
EndTry
0
Mark Tabor10y ago
Venkatesan Arasappani do not understand what you are saying , do i need to change the code or what?
0
Venkat10y ago
I thing you already got the test mails.
publicclassProgram
{
staticvoidMain(string[]args)
{
stringsenderID="[email protected]";
stringsenderPassword="xxx";
RemoteCertificateValidationCallbackorgCallback=ServicePointManager.ServerCertificateValidationCallback;
stringbody="Test";
try
{
ServicePointManager.ServerCertificateValidationCallback=newRemoteCertificateValidationCallback(OnValidateCertificate);
ServicePointManager.Expect100Continue=true;
MailMessagemail=newMailMessage();
mail.To.Add("[email protected]");
mail.From=newMailAddress(senderID);
mail.Subject="MyTestEmail!";
mail.Body=body;
mail.IsBodyHtml=true;
SmtpClientsmtp=newSmtpClient();
smtp.Host="smtp.gmail.com";
smtp.Credentials=newSystem.Net.NetworkCredential(senderID,senderPassword);
smtp.Port=587;
smtp.EnableSsl=true;
smtp.Send(mail);
Console.WriteLine("EmailSentSuccessfully");
}
catch(Exceptionex)
{
Console.WriteLine(ex.Message);
}
finally
{
ServicePointManager.ServerCertificateValidationCallback=orgCallback;
}
}
privatestaticboolOnValidateCertificate(objectsender,X509Certificatecertificate,X509Chainchain,SslPolicyErrorssslPolicyErrors)
{
returntrue;
}
}
Vb.net

stringsenderID = "[email protected]"
stringsenderPassword = "xxx"
RemoteCertificateValidationCallbackorgCallback = ServicePointManager.ServerCertificateValidationCallback
stringbody = "Test"
Try
    ServicePointManager.ServerCertificateValidationCallback = newRemoteCertificateValidationCallback(OnValidateCertificate)
    ServicePointManager.Expect100Continue = True
    MailMessagemail = newMailMessage()
    mail.[To].Add("[email protected]")
    mail.From = newMailAddress(senderID)
    mail.Subject = "MyTestEmail!"
    mail.Body = body
    mail.IsBodyHtml = True
    SmtpClientsmtp = newSmtpClient()
    smtp.Host = "smtp.gmail.com"
    smtp.Credentials = newSystem.Net.NetworkCredential(senderID, senderPassword)
    smtp.Port = 587
    smtp.EnableSsl = True
    smtp.Send(mail)
    Console.WriteLine("EmailSentSuccessfully")
Catch generatedExceptionName As Exceptionex
    Console.WriteLine(ex.Message)
Finally
    ServicePointManager.ServerCertificateValidationCallback = orgCallback
End Try

0
Mark Tabor10y ago
Venkatesan Arasappanthanks for your response , I have shared two methods the first is working fine with my domain email address { i am using gmail to send an email to my domain email address like [email protected]} the first method send the email correctly , weather the second method is not sending email to my domain email address it is sending email to any other email address but not my domain email address , i do not know why it is so.
0
Venkat10y ago
Grettings,
Could you kindly share the error message ..
0
Mark Tabor10y ago
DearApurba Ranjanthanks for your prompt response , my second method works fine when the TO Email Address is of gmail account , but when i have Mail.To Address like [email protected] then it is not sending email to that address while the first one is sending to that address too
0
Apurba Ranjan10y ago
Hi, I think You have not added the Host Name of the domain you purchased
SMTP.Host = "HostName";
For example for Outlook we use outlook.office365.com;
smtp.Host = "outlook.office365.com";
0

HiAdmin,


Name	:	"+info.Name+"

Email	:	"+info.EmailId+"

Details	:	"+info.Details+"

Date	:	"+DateTime.Now.ToString()+"

Email send using asp.net vb.net

Venkatesan Arasappani do not understand what you are saying , do i need to change the code or what?