如何添加条件来检查主题行是否不包含某些文本，以及收件人是否在组织外部？
如何添加条件来检查主题行是否不包含某些文本，以及收件人是否在组织外部？
提问于 2019-04-06 01:46:34
以下代码强制在发送电子邮件之前提示确认。
我想添加一个条件，只有当主题行不包含单词"encrypt“并且收件人在组织之外时，才会出现提示。
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim xPrompt As String
Dim xOkOrCancel As Integer
On Error Resume Next
xPrompt = "Do you want to continue sending the email?"
xOkOrCancel = MsgBox(xPrompt, vbOKCancel)
If xOkOrCancel <> vbOK Then
Cancel = True
End If
End Sub回答 1
Stack Overflow用户
发布于 2019-04-06 01:55:37
您可以在vba for outlook中使用InStr()函数，以便：
With Application.ActiveInspector.CurrentItem 'change this
If Not InStr(.Subject, "PO") AND right(.senderemailaddres,7) = "@123.com" Then 'do something
End With页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/55540846
复制相关文章
相似问题