Email Send works sometimes and sometimes it does not work vb

Mark Tabor

10y877.NET

I am sending email using my domain account [email protected] to gmail,yahoo,hotmail and other domain emails like [email protected] , my credentials are 100% correct because they are sending emails to all other accounts except this domain [email protected] , yesterday i check that my method also send an email to that address but today it is not sending neither it is giving any error ? what would be the cause ?

my code is as below

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

Try

mailMessage.From = New MailAddress(ConfigurationManager.AppSettings("UserName"))

mailMessage.Subject = subject

mailMessage.Body = body

mailMessage.IsBodyHtml = True

mailMessage.To.Add(New MailAddress(recepientEmail))

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

For Each file As HttpPostedFile In files

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

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

Dim smtp As SmtpClient = New SmtpClient()

smtp.Host = "202.165.228.15"

smtp.EnableSsl = False

smtp.Credentials = New System.Net.NetworkCredential("[email protected]", "Pakistan_123")

smtp.Port = 2525

smtp.Send(mailMessage)

Catch ex As Exception

ex.Message.ToString()

End Try

End Sub

5 Replies

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

Mark Tabor10y ago

Now i have received an email which says

Here is your quarantine summary for 7/27/2016 - 7/28/2016:

These messages were quarantined before they reached your inbox as potential spam. The quarantined messages can be sent to your inbox using the Deliver links below. This will train the system not to identify similar messages as spam.

system not to identify similar messages as spam.

Subject	Sender	Date	Action
Record Accepted	[email protected]	7/28/2016 6:59 AM	Deliver
Record Accepted	[email protected]	7/28/2016 6:44 AM	Deliver
Record Accepted	[email protected]	7/28/2016 6:44 AM	Deliver
Record Accepted	[email protected]	7/28/2016 6:41 AM	Deliver
Record Accepted	[email protected]	7/28/2016 6:36 AM	Deliver

it means they are considering it as spam and then send an email to me here i have to click the Deliver Action then it get send ? what is the work around to fix this issue ?

Mark Tabor10y ago
Bikesh Srivastavacan i use my domain email address with exchange server? like [email protected] ?
0
Mark Tabor10y ago
Thanks for response my another method works fine with same credentials check the below method
Private Sub SendEmail()

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.To.Add(GetUserIDEmail(ddlusers.SelectedValue))

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

Dim smtp As New SmtpClient()
smtp.Host = "202.165.228.15"
smtp.EnableSsl = False
smtp.Credentials = New System.Net.NetworkCredential("[email protected]", "Pakistan_123")
smtp.Port = 25
smtp.Send(Mail)

Catch ex As Exception
ex.Message.ToString()
End Try
End Sub
0
Bikesh Srivastava10y ago
Hi,
You should use exchange server to send mail on any domain.
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;
I've implimented this code in my application to send mail on different domain.......try this.
0
Rajeesh Menoth10y ago
Hi,
Check port address..
smtp.Port=25
Reference :
http://www.c-sharpcorner.com/UploadFile/2a6dc5/how-to-send-a-email-using-Asp-Net-C-Sharp/
0

HiAdmin,


Name	:	"+info.Name+"

Email	:	"+info.EmailId+"

Details	:	"+info.Details+"

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

Email Send works sometimes and sometimes it does not work vb

Bikesh Srivastavacan i use my domain email address with exchange server? like [email protected] ?