【请教】发送邮件时Mail.From不一致时提示发送失败 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

各位老师好，

在设置发送邮件的时候，因为是批发，我申请了很多126/163的免费邮箱，但是我希望发过去的邮件都显示是公司的邮件地址，如下：

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

MessageBox.Show(tip )

e.Sender.Enabled = True

End If

结果是：如果mail.From的邮箱地址跟smtp.Credentials账号不一致时，则提示发送失败，请老师指点，谢谢。

[此贴子已经被作者于2015/6/15 12:44:58编辑过]

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