Blog

I don't like sent folders. I always want to have all my emails in my inbox. This can be easily solved on macOS or Linux but on Windows some VB is required:

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"