Gesendete Mails in Ordner verschieben (Outlook VBA)

In Outlook ist es mit Boardmitteln nicht möglich gesendete Mails in einem anderen Ordner als im Ordner „Gesendete Objekte“ zu speichern. Jetzt gibt es dann doch den einen oder anderen Kollegen, der seine gesendeten Mails lieber in seinem Posteingang abgelegt haben will. (Mir erschließt sich zwar nicht genau der Grund, aber Wunsch ist Wunsch ;))

Ein kleines VBA-Makro hilft dieses Anliegen zu ermöglichen. Der Code muss in den „ThisOutlookSession“-Teil des VBA-Projects (in Outlook über Alt + F11 zu erreichen) kopiert werden.

Nach einem Outlook-Neustart werden dann alle gesendeten Mails automatisch in den Posteingang kopiert. Wer einen anderen Ablageordner wünscht, kann den Zielordner natürlich im Makro beliebig anpassen.

Public WithEvents SentItems As Outlook.Items

Private Sub Application_Startup()
    Set SentItems = Outlook.Session.GetDefaultFolder(olFolderSentMail).Items
End Sub

Private Sub Application_Quit()
    Set SentItems = Nothing
End Sub

Private Sub SentItems_ItemAdd(ByVal Item As Object)
    Item.Move Outlook.Session.GetDefaultFolder(olFolderInbox)
End Sub