Outlook - 检查电子邮件地址类型

Question

我正在尝试在Outlook中创建一个宏来扫描某个文本字符串的To：列表，如果除了一个（或两个等）地址之外的所有地址都有一个消息，则会发出一条消息。有一种简单的方法可以做到这一点吗？

基本上，我正在尝试编写一些东西，以避免能够向地址中包含字符串'xyz'的一群人发送受限制的消息，如果一个或多个人没有它。 AutoComplete使这很困难，无需逐个检查。

Answer 1

使用Outlook VBA可以实现这一点。

您必须在用户发送电子邮件时编写事件挂钩。这是使用Application_ItemSend（ByVal Item As Object，Cancel As Boolean）完成的，其中Item是正在发送的项目（电子邮件或约会），cancel是一个布尔值，您可以设置为停止发送电子邮件。

在您的代码中，您需要查看Item对象上的收件人集合，以查看谁将收到该电子邮件。 例如：

Dim CurrRecip As Recipient
For Each CurrRecip in Item.Recipients
    If InStr(1, CurrRecip.Address , "your search text here" , vbCompareText ) Then
        debug.print "Message here..."
    End If
Next CurrRecip

希望这有助于......