在我本地测试发送邮件后到信箱里可以正常看到信件内容,但是将程序放到服务器上(虚拟主机)后能收到邮件,就是邮件正文看不到。请问高手,这是什么原因,该如何解决?万分感谢!!! 1 Public Function Send()Function Send(ByVal strSmtpServer As String, ByVal iPort As Integer, ByVal strUserName As String, ByVal strPassword As String, ByVal strFrom As String, ByVal strTo As String, ByVal strCc As String, ByVal strBcc As String, ByVal strSubject As String, ByVal strBody As String, Optional ByVal bHtml As Boolean = True) As Boolean
2 Try
3 Dim mail As System.Web.Mail.MailMessage = New System.Web.Mail.MailMessage
4 mail.From = strFrom
5 mail.To = strTo
6 mail.Bcc = strBcc
7 mail.Cc = strCc
8 mail.Subject = strSubject
9 mail.Body = strBody
10 'mail.BodyEncoding = System.Text.Encoding.GetEncoding("utf8")
11
12 If bHtml Then
13 mail.BodyFormat = System.Web.Mail.MailFormat.Html
14 Else
15 mail.BodyFormat = System.Web.Mail.MailFormat.Text
16 End If
17 mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1")
18 mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", strUserName)
19 mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", strPassword)
20 mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserverport", iPort)
21 System.Web.Mail.SmtpMail.SmtpServer = strSmtpServer
22 System.Web.Mail.SmtpMail.Send(mail)
23 Return True
24 Catch ex As Exception
25 Return False
26 End Try
27 End Function
2 Try
3 Dim mail As System.Web.Mail.MailMessage = New System.Web.Mail.MailMessage
4 mail.From = strFrom
5 mail.To = strTo
6 mail.Bcc = strBcc
7 mail.Cc = strCc
8 mail.Subject = strSubject
9 mail.Body = strBody
10 'mail.BodyEncoding = System.Text.Encoding.GetEncoding("utf8")
11
12 If bHtml Then
13 mail.BodyFormat = System.Web.Mail.MailFormat.Html
14 Else
15 mail.BodyFormat = System.Web.Mail.MailFormat.Text
16 End If
17 mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1")
18 mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", strUserName)
19 mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", strPassword)
20 mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserverport", iPort)
21 System.Web.Mail.SmtpMail.SmtpServer = strSmtpServer
22 System.Web.Mail.SmtpMail.Send(mail)
23 Return True
24 Catch ex As Exception
25 Return False
26 End Try
27 End Function
比如:System.Web.Mail.SmtpMail.SmtpServer = "smtp.163.com"
我们公司有自己的邮件服务器,我用的是:
System.Web.Mail.SmtpMail.SmtpServer = "172.16.20.6"