以下代码强制在发送电子邮件之前提示确认。
我想添加一个条件,只有当主题行不包含单词"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
发布于 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
https://stackoverflow.com/questions/55540846
复制相似问题