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

Question

我正在使用该库 - Excel中的Microsoft Outlook。

例如：
我在每条记录中有100条记录是其他邮件地址。 但在某些记录中，有2-5个电子邮件地址。

当我使用名为

的功能时

.Send

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

示例源问题：

• 电子邮件地址缺少点数
• 电子邮件地址未分开（例如：email @gmail.comemail2 @ gmail.com
• 错误的电子邮件地址（emailgmailcom）

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

是否有机会检查电子邮件地址是否合适但不写30-50行代码？

Answer 1

我会在每个On Error Resume Next之后使用.Send我会将该记录标记为发送。完成宏后，我可以检查列表中是否有未发送的标记，以检查错误。

检查emial是否正确，您永远不会知道电子邮件地址需要多长时间，因此检查长度不是一个选项。

这些记录是否可以告诉您？也许是列表中的一些名词，你可以用那些来对抗吗？