快速处理错误发送电子邮件地址不存在

我在Excel中使用库 – Microsoft Outlook。

例如:
当每条logging中有其他邮件地址时,我有100条logging。 但在有些logging中,有2-5个电子邮件地址。

当我使用函数调用

.Send 

它是在“后台”发送电子邮件。 但是当VBA遇到错误时就会停止。

示例源代码问题:

  • 电子邮件地址缺less点
  • 电子邮件地址不分隔(例如:电子邮件@ gmail.comemail2 @ gmail.com
  • 错误的电子邮件地址(emailgmailcom)

当Outlook想要在不存在的地址上发送电子邮件时,就会出现这个问题。

是否有机会检查电子邮件地址是否正确,但不要写30-50行代码?

我会使用On Error Resume Next后每个。 .Send我将该logging标记为发送。 当macros完成后,我可以检查你的列表中的未发送标记,以检查错误。

检查是否emial是正确的,你永远不会知道电子邮件地址多长时间,所以检查长度不是一个选项。

那些logging对你是否可以知道? 也许有一些名单,你可以与那些更好?