Public WithEvents myzinskyApp As Outlook.Application Private Sub Application_Startup() Set myzinskyApp = Outlook.Application End Sub Private Sub myzinskyApp_ItemSend(ByVal Item As Object, Cancel As Boolean) If TypeOf Item Is Outlook.MailItem Then SaveSentMail Item End If End Sub Private Sub SaveSentMail(Item As Outlook.MailItem) Dim Inbox As Outlook.MAPIFolder Dim Subfolder As Outlook.MAPIFolder If Item.DeleteAfterSubmit = False Then Set Item.SaveSentMessageFolder = Application.Session.GetDefaultFolder(olFolderInbox) End If End Sub
just copy this code in "ThisOutlookSession"