各位大侠,我按照微软讲座里的的例子,做了个发送邮件的实例,源码如下~
    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 

解决方案 »

  1.   

    看看你的 tbServer.Text 是什么,为什么你要让它取那个值?
      

  2.   

    你指定了smtp邮件服务器了吗?
      

  3.   

    SmtpMail.Server(localhost)'加上这一句
      

  4.   

    是这样的,我是想用126的邮件来发送,所以使用smtp.126.com这样行不行呢?
      

  5.   

    是这样的,我是想用126的邮件来发送,所以使用smtp.126.com这样行不行呢?
      

  6.   

    是这样的,我是想用126的邮件来发送,所以使用smtp.126.com这样行不行呢?
      

  7.   

    你运行程序的那太电脑必须安装了smtp服务,而且你还要知道smtp.126.com发送邮件的验证
    还不如用jmail,很好用的!
      

  8.   

    我也正遇到过这样的问题,如果是直接SmtpMail.SmtpServer = smtp.126.com,就可以成功发送邮件,
    但是为了能自己设置SMTP服务器,所以要写成 SmtpMail.SmtpServer = tbServer.Text ,从一个TEXTBOX中取得SMTP服务器地址,但这样一定就不能行了,出现如czclk () 说的错误提示。
      

  9.   

    你的smtp服务没有配置
    就会出现你的错误!!!