Hallo Community,
seit einigen Jahren (und mit den verschiedensten Outlook Versionen) nutze ich ein benutzerspezifisches Makro, um das Sendeverhalten meines Outlook Clients zu verändern:
Public Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim myFolder As MAPIFolder
Dim myOlApp As Outlook.Application
Dim myOlExp As Outlook.Explorer
If Item.Class = olMail Then
Set myOlApp = CreateObject("Outlook.Application")
Set olNS = myOlApp.GetNamespace("MAPI")
Set myFolder = olNS.PickFolder
If Not (myFolder Is Nothing) Then
Set Item.SaveSentMessageFolder = myFolder
End If
End If
End Sub
Das Makro erlaubt mir bei jedem Senden auszuwählen, in welchem Ordner ich die gesendete Mail abgelegt haben möchte.
Und das funktionert bislang sehr gut. Sowohl mit Ordnern in meinem Poatfach als auch mit denen in zusätzlichen PST Files. Wir sind in einer großen Konzernumgebung mit Exchange/ Office 365 Professional Plus unterwegs.
Es gibt nur eine Einschränkung, mit der das Makro leider nicht funktioniert. Und zwar mit Ordnern in zusätzlich eingebundenen Postfächern. Damit werden die Mails wieder im Standard Ordner abgelegt und ich muss sie hinterher manuell verschieben.
Habt ihr einen Tipp für mich, wie ich das Ganze mit zusätzlich eingebundenen Postfächernrealisieren kann?
Danke
Henri