vba - 如何使用 VBA 将 Outlook 2007 自动密件抄送邮件发送到主题中包含特定单词的特定电子邮件？

Question

这个问题在这里已经有了答案:




9年前关闭。

Possible Duplicate:
Outlook VBA to BCC emails sent not working in Outlook 2007

到目前为止，我从 Outlookcode.com 获得了这段代码，我可以开始工作，将我发送到 BCC 电子邮件的所有电子邮件发送出去。我不是开发人员，所以我没有很多背景可以自己编辑这个，甚至没有研究这个。如果有人知道如何检查主题中的单词，或者检查主题是否等于某个字符串，我将不胜感激。

Private Sub Application_ItemSend(ByVal Item As Object, _
                                 Cancel As Boolean)
    Dim objRecip As Recipient
    Dim strMsg As String
    Dim res As Integer
    Dim strBcc As String
    On Error Resume Next

    ' #### USER OPTIONS ####
    ' address for Bcc -- must be SMTP address or resolvable
    ' to a name in the address book
    strBcc = "someone@somewhere.dom"

    Set objRecip = Item.Recipients.Add(strBcc)
    objRecip.Type = olBCC
    If Not objRecip.Resolve Then
        strMsg = "Could not resolve the Bcc recipient. " & _
                 "Do you want still to send the message?"
        res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _
                "Could Not Resolve Bcc Recipient")
        If res = vbNo Then
            Cancel = True
        End If
    End If

    Set objRecip = Nothing
End Sub

Answer 1

如果您不想参与 VB，您可以使用规则向导执行此操作，如下所示:

创建一条规则并将其作为最后一条规则。当您的姓名在收件人或抄送字段中时，应应用此规则。它应该停止处理后续规则:
第 1 步:选择条件:我的名字在“收件人”或“抄送”框中的位置。
步骤 2:选择操作:停止处理更多规则。

创建另一个规则并将其添加到上面步骤 1 中创建的规则的底部。制作如下:
第 1 步:选择条件:我的名字不在收件人框中。
第 2 步:在这里对您的 BCC 消息做任何您想做的事情。

因此，上述过程的问题是，如果您达到在步骤 2 中创建的规则，是因为您收到一条消息，其中您的姓名不在收件人或抄送字段中，即您在密件抄送字段中。

您只需要这两个规则，因为没有“我的名字不在收件人或抄送框中的位置”这样的条件。但是我们可以设法用上述解决方法做同样的事情。