主题：【请教】发送邮件时Mail.From不一致时提示发送失败

cmd.C ommandTex t = "S elect * from {EmailServices}"

Dim maillist As DataTable = cmd.ExecuteReader

If maillist.DataRows.Count > 0 Then

    e.Sender.Enabled = False

    Dim tip As String = ""

    Dim i As Integer = 0

    For Each dr As DataRow In maillist.DataRows

        i = i + 1

        Dim mailaddr As String = dr("Accounts")

        Dim smtp As New System.Net.Mail.SmtpClient(dr("smtp"), 25)

        smtp.Credentials = New System.Net.NetworkCredential(dr("Accounts"),dr("Password"))

        Dim mail As New System.Net.Mail.MailMessage()

        mail.Subject = "Email Title Test 2"

        mail.SubjectEncoding = System.Text.Encoding.GetEncoding("GB2312")

        mail.BodyEncoding = System.Text.Encoding.GetEncoding("GB2312")

        mail.From = New System.Net.Mail.MailAddress("Atmet-Services@atmet.cn")

        mail.Priority = System.Net.Mail.MailPriority.Normal

        mail.IsBodyHtml = True

        mail.Body = "Email Content Test "

        mail.To.Add("micoo@atmet.cn")

        Try

            smtp.Send(mail)

            tip = tip & i & ") 成功" & dr("smtp") & "账号:" & dr("Accounts") & vbcrlf

            

            Catch

            tip = tip & i & ") " & dr("smtp") & "账号:" & dr("Accounts") & " 发送失败" & vbcrlf

        Finally

            mail.Dispose()

        End Try

    Next

    MessageBox.Show(tip )

    e.Sender.Enabled = True

End If