How to Auto Move Sent Meeting Invitations to a Specific Folder in Your Outlook

Outlook Data Recovery, Outlook Solutions December 23, 2017

Many users long for methods to configure Outlook to auto move the sent meeting invitations to a specific folder. In this article, we’ll share an easy method to realize it.

Outlook always saves all types of sent items, no matter emails, task requests or meeting invitations in the ‘Sent Items” folder. In this way, you will find your “Sent Items” folder is considerably messy. Thereby, you may wish your Outlook to auto move and save the meeting invitations to a different folder.

Auto Move Sent Meeting Invitations to a Specific Folder in Your Outlook

When you compose an email, you can find a “Save Sent Item To Other Folder” on “Options” tab. It permits users to change the folder to save emails before sending. Yet, there is not such a feature available for the meeting invitation. What you can do is to move the sent meeting invitations after sending. Thereinafter, we’ll teach you how to achieve such an “auto move” with VBA code.

Auto Move Sent Meeting Invitations to a Specific Folder

  1. At the very beginning, press “Alt + F11” buttons in Outlook.
  2. Then, after getting into VBA editor, open the “ThisOutlookSession” project
  3. Next, copy and paste the following VBA code into this project.
'As Meeting will be auto saved in Sent Items folder
'Here we will monitor the new item in this folder
Public WithEvents objSentFolder As Outlook.Folder
Public WithEvents objSentItems As Outlook.Items

Private Sub Application_Startup()
    Set objSentFolder = Outlook.Application.Session.GetDefaultFolder(olFolderSentMail)
    Set objSentItems = objSentFolder.Items
End Sub

Private Sub objSentItems_ItemAdd(ByVal Item As Object)
    Dim objMeetingInvitation As Outlook.MeetingItem
    Dim objTargetFolder As Outlook.Folder
 
    'If the new item is meeting item
    If TypeOf Item Is MeetingItem Then
       Set objMeetingInvitation = Item
 
       'Get the target folder
       On Error Resume Next
       Set objTargetFolder = objSentFolder.Folders("Meeting Requests")
       If objTargetFolder Is Nothing Then
          Set objTargetFolder = objSentFolder.Folders.Add("Meeting Requests")
       End If
 
       'Move it
       objMeetingInvitation.Move objTargetFolder
    End If
End Sub

VBA Code - Auto Move Sent Meeting Invitations to a Specific Folder

  1. Subsequently, put cursor in the “Application_Startup” subroutine and press “F5” key, which will activate this new macro.
  2. Since then, every time after you send out a meeting invitation, it will be auto moved to the destination folder predefined in the above code, like the picture below.Sent Meeting Invitations

Matters of Necessity in Outlook Data Recovery

As we all know, Outlook can crash now and then. Hence, it is common for users to encounter Outlook file becoming inaccessible. At that time, you have to perform Outlook data recovery. If you’re totally a novice in this respect, you need to make some preparations, including checking data backups, the inbox fix tool – Scanpst as well as a trustworthy external Outlook fix tool, like DataNumen Outlook Repair. With them, you can repair Outlook file without breaking a sweat.

Author Introduction:

Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including SQL Server corruption and outlook repair software products. For more information visit www.datanumen.com

Comments are closed.