以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  SmtpErrorInvalidRecipientsEvent 能帮助不？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=191118)
--  作者：lur320
--  发布时间：2024/3/28 14:52:00
--  SmtpErrorInvalidRecipientsEvent 能帮助不？
 Dim client As New System.Net.Mail.SmtpClient()
client.Host = "mail.dawnrays.com"
client.Credentials = New System.Net.NetworkCredential("xxxxxx")
client.DeliveryMethod = System.Net.Mail.SmtpDeliveryMethod.Network
Dim message As New System.Net.Mail.MailMessage
message.From = New System.Net.Mail.MailAddress("xxxxx")
message.Subject = "xxxxx"
message.BodyEncoding = System.Text.Encoding.UTF8
message.IsBodyHtml = True


message.Body = body
message.To.Add(nam)

这里经常会遇到nam这个邮件地址的字符串中个别邮箱满了，或者失效了。
请问如何跳过这些异常邮件把邮件发给剩余的正常状态的邮箱地址？
我看了SmtpErrorInvalidRecipientsEvent可以处理，但是网上没找到VB的教程
--  作者：有点蓝
--  发布时间：2024/3/28 14:56:00
--  
使用try处理

try
 Dim client As New System.Net.Mail.SmtpClient()
client.Host = "mail.dawnrays.com"
client.Credentials = New System.Net.NetworkCredential("xxxxxx")
client.DeliveryMethod = System.Net.Mail.SmtpDeliveryMethod.Network
Dim message As New System.Net.Mail.MailMessage
message.From = New System.Net.Mail.MailAddress("xxxxx")
message.Subject = "xxxxx"
message.BodyEncoding = System.Text.Encoding.UTF8
message.IsBodyHtml = True


message.Body = body
message.To.Add(nam)
Catch ex As Exception
   这里重新调用代码发给其它邮箱
End Try
--  作者：lur320
--  发布时间：2024/3/28 15:05:00
--  
 这个要循环判断每一个用户的邮箱是否正常。而且是单独尝试发给每个人，所以看不到一起收到邮件的还有谁。
请问是否可以判断出出问题的邮件，然后踢掉。正确的邮箱一起发送？
--  作者：有点蓝
--  发布时间：2024/3/28 15:18:00
--  
只能是发给这个邮箱，出错就是有问题
--  作者：lur320
--  发布时间：2024/3/28 15:22:00
--  
 只能是发给这个邮箱，出错就是有问题  

没看懂你的意思  ：（
--  作者：有点蓝
--  发布时间：2024/3/28 15:26:00
--  
就是2楼的用法