Email send using asp.net vb.net

Question

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

1-

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))

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

Bikesh Srivastava · Answer

Hi Mark Try this using exchange server. //sendmailtoadminviaoutlookcredintial. public class SendmailByOutLook { string MailUser=WebConfigurationManager.AppSettings[ MailUser ].ToString(); string MailPass=WebConfigurationManager.AppSettings[ mailPass ].ToString(); string MailTo=WebConfigurationManager.AppSettings[ MailTo ].ToString(); public bool SendMail(RequestInsightsinfo) { try { ExchangeServiceservice= new ExchangeService(ExchangeVersion.Exchange2010_SP1); service.Credentials= new NetworkCredential(MailUserMailPass); service.AutodiscoverUrl(MailUser); EmailMessageemailMessage= new EmailMessage(service); emailMessage.Subject=info.Subject; emailMessage.Body= new MessageBody(  HiAdmin Name :  +info.Name+  Email :  +info.EmailId+  Details :  +info.Details+  Date :  +DateTime.Now.ToString()+   ); emailMessage.ToRecipients.Add(MailTo); emailMessage.SendAndSaveCopy(); return true ; } catch (Exceptionex) { return false ; } } }

Mark Tabor · Answer

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 Communitieslogin 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(Danish.Habib@plan-international.org) 'Mail.To.Add(sweet.uet@gmail.com) Mail.From = New MailAddress(sweet.uet@gmail.com) ' Mail.From = New MailAddress(info@planrbme.com.pk) 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(sweet.uet@gmail.com forgot123) SMTP.Port = 587 SMTP.Send(Mail) Catch ex As Exception ex.Message.ToString() End Try End Sub so what ever i am not usin g remotecertificatevalidationcallback in that but it still works so why my method is not working

Mark Tabor · Answer

this line gives an error RemoteCertificateValidationCallbackorgCallback=ServicePointManager.ServerCertificateValidationCallback

Mark Tabor · Answer

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

Venkatesan Arasappan · Answer

ServicePointManager.ServerCertificateValidationCallback = AddressOf OnValidateCertificate;

Mark Tabor · Answer

I think vb.net is not supporting that

Mark Tabor · Answer

Dear Venkatesan Arasappan I 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.

Venkatesan Arasappan · Answer

Greetings kindly check Private Shared Function OnValidateCertificate(sender As Object certificate As X509Certificatechain As X509ChainsslPolicyErrors As SslPolicyErrors) As Boolean Return True End Function

Mark Tabor · Answer

how to write this method in vb.net private static boolOnValidateCertificate(objectsenderX509CertificatecertificateX509ChainchainSslPolicyErrorssslPolicyErrors) { return true ; }

Mark Tabor · Answer

these lines have syntax error RemoteCertificateValidationCallbackorgCallback = ServicePointManager.ServerCertificateValidationCallback RemoteCertificateValidationCallbackorgCallback=ServicePointManager.ServerCertificateValidationCallback stringbody= Test Try ServicePointManager.ServerCertificateValidationCallback=newRemoteCertificateValidationCallback(OnValidateCertificate) ServicePointManager.Expect100Continue= True

Mark Tabor · Answer

ok i am checking it and informing you.Thanks Venkatesan Arasappan

Venkatesan Arasappan · Answer

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= xxxx@gmail.com stringsenderPassword= xxx RemoteCertificateValidationCallbackorgCallback=ServicePointManager.ServerCertificateValidationCallback stringbody= Test Try ServicePointManager.ServerCertificateValidationCallback=newRemoteCertificateValidationCallback(OnValidateCertificate) ServicePointManager.Expect100Continue= True MailMessagemail=newMailMessage() mail.[ To ].Add( danish.habib@plan-international.org ) 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(senderIDsenderPassword) 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

Mark Tabor · Answer

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

Venkatesan Arasappan · Answer

I thing you already got the test mails. public class Program { static void Main(string[]args) { stringsenderID= xxxx@gmail.com ; stringsenderPassword= xxx ; RemoteCertificateValidationCallbackorgCallback=ServicePointManager.ServerCertificateValidationCallback; stringbody= Test ; try { ServicePointManager.ServerCertificateValidationCallback= new RemoteCertificateValidationCallback(OnValidateCertificate); ServicePointManager.Expect100Continue= true ; MailMessagemail= new MailMessage(); mail.To.Add( danish.habib@plan-international.org ); mail.From= new MailAddress(senderID); mail.Subject= MyTestEmail! ; mail.Body=body; mail.IsBodyHtml= true ; SmtpClientsmtp= new SmtpClient(); smtp.Host= smtp.gmail.com ; smtp.Credentials= new System.Net.NetworkCredential(senderIDsenderPassword); smtp.Port=587; smtp.EnableSsl= true ; smtp.Send(mail); Console.WriteLine( EmailSentSuccessfully ); } catch (Exceptionex) { Console.WriteLine(ex.Message); } finally { ServicePointManager.ServerCertificateValidationCallback=orgCallback; } } private static boolOnValidateCertificate(objectsenderX509CertificatecertificateX509ChainchainSslPolicyErrorssslPolicyErrors) { return true ; } } Vb.net stringsenderID = xxxx@gmail.com stringsenderPassword = xxx RemoteCertificateValidationCallbackorgCallback = ServicePointManager.ServerCertificateValidationCallback stringbody = Test Try ServicePointManager.ServerCertificateValidationCallback = newRemoteCertificateValidationCallback(OnValidateCertificate) ServicePointManager.Expect100Continue = True MailMessagemail = newMailMessage() mail.[To].Add( danish.habib@plan-international.org ) 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

Mark Tabor · Answer

Venkatesan Arasappan thanks 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 omer@planrbme.com.pk} 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.

Venkatesan Arasappan · Answer

Grettings Could you kindly share the error message ..

Mark Tabor · Answer

Dear Apurba Ranjan thanks 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 danish.habib@plan-international.org then it is not sending email to that address while the first one is sending to that address too

Apurba Ranjan · Answer

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 ;