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
Du musst angemeldet sein, um einen Kommentar abzugeben.
Den SentOnBehalfOfName Eigenschaft macht nur Sinn, im Fall von Exchange-Profilen/accounts. Darüber hinaus müssen Sie über die erforderlichen Berechtigungen zum senden im Auftrag einer anderen person. Sehen Problem mit SentOnBehalfOfName für eine ähnliche Diskussion.
Im Falle dass, wenn Sie mehrere Konten konfiguriert, die in dem Profil, das Sie verwenden können, die SendUsingAccount Eigenschaft, die es erlaubt, ein Konto-Objekt, das für das Konto, unter dem der MailItem ist, um gesendet zu werden.
NewInspector
oderActivate
Fall der Inspektor-Klasse können Sie überprüfen, ob es angezeigt wird, ein neues Element und legen Sie eine geeignete Immobilie.Verwenden Sie die Anwendung.ItemSend-Ereignis statt.
In ThisOutlookSession
Ich gefunden habe, meine Ereignis-code zurückgesetzt werden, durch ausführen von startup in regelmäßigen Abständen. ItemSend kann mehr zuverlässig.
Wenn ich diesen code ausführen es nicht nennen, ItemSend wieder.