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é