| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 【请教】发送邮件时Mail.From不一致时提示发送失败 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=70065) |
| -- 作者：atmetmicoo -- 发布时间：2015/6/15 12:43:00 -- 【请教】发送邮件时Mail.From不一致时提示发送失败 各位老师好， 在设置发送邮件的时候，因为是批发，我申请了很多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 Next MessageBox.Show(tip ) e.Sender.Enabled = True End If 结果是：如果mail.From的邮箱地址跟smtp.Credentials账号不一致时，则提示发送失败，请老师指点，谢谢。
[此贴子已经被作者于2015/6/15 12:44:58编辑过]
|
| -- 作者：atmetmicoo -- 发布时间：2015/6/15 13:09:00 -- 在线等高手 |
| -- 作者：大红袍 -- 发布时间：2015/6/15 14:16:00 -- 你可以用别名，比如
mail.From.DisplayName = "张三" |
| -- 作者：大红袍 -- 发布时间：2015/6/15 14:18:00 -- mail.From = New System.Net.Mail.MailAddress(dr("Accounts"), "Atmet-Services@atmet.cn") |
| -- 作者：atmetmicoo -- 发布时间：2015/6/15 14:42:00 -- 以下是引用大红袍在2015/6/15 14:18:00的发言： mail.From = New System.Net.Mail.MailAddress(dr("Accounts"), "Atmet-Services@atmet.cn") 谢谢老师，我希望达到的效果是，对方在回复邮件的时候，发送到Atmet-Services@atmet.cn，但现在点击回复还是到原有邮箱，是否能做到？ |
| -- 作者：大红袍 -- 发布时间：2015/6/15 14:46:00 -- 你觉得这样可能么？
你只能用同一个邮箱发送。 |
| -- 作者：大红袍 -- 发布时间：2015/6/15 14:49:00 -- 或者，你可以写个程序，把各个邮箱的接收到的数据取出来。
http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=26946&replyID=168981&skin=1
http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=43480&skin=0
|
| -- 作者：客人 -- 发布时间：2015/6/15 15:38:00 -- 以下是引用大红袍在2015/6/15 14:49:00的发言： 或者，你可以写个程序，把各个邮箱的接收到的数据取出来。
http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=26946&replyID=168981&skin=1
http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=43480&skin=0
老师 ，您知道怎么注册Jmail.dll组件吗？操作不来 |
| -- 作者：大红袍 -- 发布时间：2015/6/15 15:40:00 -- 参考 http://jingyan.baidu.com/article/08b6a591f472f814a80922fd.html
|
| -- 作者：atmetmicoo -- 发布时间：2015/6/15 16:19:00 -- 这一步会做，但是我做了这一步好像也不凑效 |