各位大侠,我按照微软讲座里的的例子,做了个发送邮件的实例,源码如下~
Private Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
Dim m As MailMessage = New MailMessage
m.From = Me.tbFrom.Text
m.To = Me.tbTo.Text
m.Subject = Me.tbSubject.Text
m.Body = Me.tbBody.Text
Select Case Me.ddlp.SelectedIndex
Case 0
m.Priority = MailPriority.High
Case 1
m.Priority = MailPriority.Normal
Case 2
m.Priority = MailPriority.Low
End Select
If Me.ddlp.SelectedIndex = 0 Then
m.BodyFormat = MailFormat.Text
Else
m.BodyFormat = MailFormat.Html
End If
SmtpMail.SmtpServer = tbServer.Text
m.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1")
m.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", Me.tbUserName.Text)
m.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", Me.tbPass.TabIndex)
m.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserverport", 25)
SmtpMail.Send(m)
End Sub但我使用它发送邮件之后,总是发送不成功,到底是什么原因?
错误的消息如下:
“/HelloVS”应用程序中的服务器错误。
--------------------------------------------------------------------------------The message could not be sent to the SMTP server. The transport error code was 0x80040217. The server response was not available
Private Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
Dim m As MailMessage = New MailMessage
m.From = Me.tbFrom.Text
m.To = Me.tbTo.Text
m.Subject = Me.tbSubject.Text
m.Body = Me.tbBody.Text
Select Case Me.ddlp.SelectedIndex
Case 0
m.Priority = MailPriority.High
Case 1
m.Priority = MailPriority.Normal
Case 2
m.Priority = MailPriority.Low
End Select
If Me.ddlp.SelectedIndex = 0 Then
m.BodyFormat = MailFormat.Text
Else
m.BodyFormat = MailFormat.Html
End If
SmtpMail.SmtpServer = tbServer.Text
m.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1")
m.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", Me.tbUserName.Text)
m.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", Me.tbPass.TabIndex)
m.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserverport", 25)
SmtpMail.Send(m)
End Sub但我使用它发送邮件之后,总是发送不成功,到底是什么原因?
错误的消息如下:
“/HelloVS”应用程序中的服务器错误。
--------------------------------------------------------------------------------The message could not be sent to the SMTP server. The transport error code was 0x80040217. The server response was not available
还不如用jmail,很好用的!
但是为了能自己设置SMTP服务器,所以要写成 SmtpMail.SmtpServer = tbServer.Text ,从一个TEXTBOX中取得SMTP服务器地址,但这样一定就不能行了,出现如czclk () 说的错误提示。
就会出现你的错误!!!