Как добавить условие, чтобы проверить, не содержит ли строка темы определенный текст и получатель находится за пределами организации?

Question

Следующий код вызывает запрос подтверждения перед отправкой электронного письма.

Я хотел бы добавить условие, при котором приглашение появляется только в том случае, если строка темы не содержит слова «шифровать» и получатель находится за пределами организации.

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

Answer 1

Вы можете использовать функцию InStr () в vba для outlook, такую ​​что:

With Application.ActiveInspector.CurrentItem 'change this
    If Not InStr(.Subject, "PO") AND right(.senderemailaddres,7) = "@123.com" Then 'do something
End With