Set .SentOnBehalfofName auf jede E-Mail gesendet

Ich versuche zu setzen .SentOnBehalfOfName-auf jede email, die ich senden über Outlook 2016. Das ist, immer wenn ich auf Neue Mail, Antworten, Allen Antworten oder Weiterleiten.

Habe ich versucht, dieses:

Public WithEvents myItem As Outlook.MailItem

Private Sub Application_ItemLoad(ByVal Item As Object)
    If (TypeOf Item Is MailItem) Then
        Set myItem = Item
    End If
End Sub


Private Sub FromField()

With myItem
    .SentOnBehalfOfName = "[email protected]"
    .Display
End With

End Sub


Private Sub myItem_Open(Cancel As Boolean)

    FromField

End Sub
InformationsquelleAutor ExPerseides | 2015-10-25
Schreibe einen Kommentar