Email Looks Like Spam

I have the code below to send an email to my hotmail account as a test.

But the email - no matter where I send it, to hotmail or to my other email, it looks like SPAM / or hotmail has it "BLOCKED".

Is there anything I need to add so it come through as a normal email?

Thanks

Try

Dim strFrom As String = "[email protected]"
Dim strTo As String = "[email protected]"
Dim MailMsg As New MailMessage(New MailAddress(strFrom.Trim()), New MailAddress(strTo))
MailMsg.BodyEncoding = Encoding.ASCII
MailMsg.Subject = "looptry=" & trynumber.ToString

MailMsg.Body = "Try#: " & trynumber.ToString & vbCrLf & _
currentDate.ToString & vbCrLf & _
MyOrderID.ToString

MailMsg.Priority = MailPriority.High
MailMsg.IsBodyHtml = False
'Smtpclient to send the mail message
Dim SmtpMail As New SmtpClient
SmtpMail.Host = "localhost"
SmtpMail.Send(MailMsg)

Catch ex As Exception

End Try

 

The code looks ok, that's not the problem. It could be that your domain has been blacklisted for some reason. Try http://www.mxtoolbox.com/blacklists.aspx and http://www.blacklistalert.org/ with your domain name to perform a check; there are more free blacklist checking services on the net so try some others if it looks ok on these ones.

 

Checked www.companyorange.com and it came up clean

Strange...

 

It could be the message subject or body. "looptry" could look like someone trying to do an email exploit. Try adding some normal looking text to your subject and the body variable and see if it goes through.

 

doesnt seem to be the loop try...
here is some new code i tried

Dim strFrom As String = Trim(txtEmailAddr.Text)
Dim strTo As String = System.Configuration.ConfigurationManager.AppSettings("SendEmailTo")
Dim MailMsg As New MailMessage(New MailAddress(strFrom.Trim()), New MailAddress(strTo))
MailMsg.BodyEncoding = Encoding.ASCII
MailMsg.Subject = txtSubject.Text

MailMsg.Body = "From: " & Trim(txtName.Text) & " <" & Trim(txtEmailAddr.Text) & ">" & _
vbCrLf & vbCrLf & _
txtMessage.Text 'This is a textbox up to 255 chars
MailMsg.Priority = MailPriority.High
MailMsg.IsBodyHtml = False
'Smtpclient to send the mail message
Dim SmtpMail As New SmtpClient
SmtpMail.Host = "localhost"
SmtpMail.Send(MailMsg)

 

Bruce,

I would just like to comment after a couple months of emails going out.

You seem to be correct.

My regular mails ( non hotmail ) are just fine. Its just the hotmail accounts that mark it as spam originally.

Thanks for you posting.

Miro