как использовать поле "from" в outlook в выражении "IF" - VBA - Outlook

Question

Вещь.SentOnBehalfOfName не работает. вот пример:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

Dim prompt As String
prompt = "The BCC Field is empty! Send with BCC Field empty?"


If Item.SentOnBehalfOfName = "someone@eomewhere.com" Then
    If Item.BCC = "" Then
        If MsgBox(prompt, vbYesNo + vbQuestion, "BCC Field") = vbNo Then
            Cancel = True
        End If
    End If
End If

End Sub

В основном, я хочу, чтобы сообщение Messag ebox отображалось только в том случае, если поле from в outlook выбрано с определенным адресом электронной почты. Я обнаружил, что имя поля "From" - это.SentOnBehalfOfName, но это не работает, поведение похоже на выражение if, которое никогда не выполняется

Answer 1

Попробуйте MailItem.Свойство SenderEmailAddress , tt должно работать.