Question

我想，当我撰写新电子邮件时，如果我输入某个关键字（例如＆＃34; #servicedesk＆＃34;），会有一个弹出窗口要求我将电子邮件发送到特定的地址（servicedesk@123corp.com）。

Answer 1

如果使用唯一关键字，则非VBA解决方案更简单。

创建规则。

对我发送的邮件应用规则。
身体中的特定词语
向人们或公共团体发送消息

如果关键字不唯一，则：

Application_Itemsend示例http://www.slipstick.com/outlook/email/macro-to-warn-before-sending-a-message-with-a-blank-subject/

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim strSubject As String
    strSubject = Item.Subject
    If Len(Trim(strSubject)) = 0 Then
        Prompt$ = "Subject is Empty. Are you sure you want to send the Mail?"
        If MsgBox(Prompt$, vbYesNo + vbQuestion + vbMsgBoxSetForeground, "Check for Subject") = vbNo Then
            Cancel = True
        End If
    End If
End Sub

使用InStr解析Item.Body。 http://www.slipstick.com/developer/parsing-text-fields-in-outlook/

然后MsgBox确认Item.cc =＆＃34; servicedesk@123corp.com"

在“创建新邮件”窗口的邮件正文中输入关键字时进行反应

1 个答案: