|
Hallo,
ich kenne mich im VBA nicht sonderlich gut aus, möchte aber trotzdem gerne ein VBA Makro für Outlook umsetzen. Wir haben einen Benutzer der 2 Exchange Postfächer hat. Beim schreiben einer neuen E-Mail soll das von Feld automatisch angepasst werden.
Ich habe nun schon rausgefunden dass mit
Set myOlApp = Outlook.Application
myOlApp.ActiveInspector.CurrentItem.SentOnBehalfOfName = "NAME DES POSTFACHES"
myOlApp.ActiveInspector.CurrentItem.Save
das von-Feld anpassen kann.
Problem ist nur, dass dies beim starten von jeder neuen E-Mail Nachricht geschehen soll. Folgender Code funktioniert leider nicht, ich nehme an, da dieser ausgeführt wird, bevor das Fenster "Neue E-Mail" geöffnet ist.
Private WithEvents objinspectors As Outlook.Inspectors
Private Sub Application_Startup()
Set objinspectors = Application.Inspectors
End Sub
Private Sub objinspectors_NewInspector(ByVal Inspector As Inspector)
If TypeName(Inspector.CurrentItem) = "MailItem" Then
Set myOlApp = Outlook.Application
myOlApp.ActiveInspector.CurrentItem.SentOnBehalfOfName = "Vorzimmer Bürgermeister (Stadt Lauterbach)"
myOlApp.ActiveInspector.CurrentItem.Save
End If
End Sub
Vielleicht kann mir von euch jmd. helfen, ist für jmd. der sich gut in VBA auskennt bestimmt ein Kinderspiel :-).
Vielen Dank!
VG André
|