2 Quick Methods to Add the Appointments Attached in an Email to Your Outlook Calendar

When you receive an email attached with many appointments, you may desire to add these appointments to your Outlook calendar. In this case, you can utilize the 2 methods introduced in this article.

At times, you may receive such an email which is containing many Outlook items, like appointment items. In general, you’ll tend to extract these appointments and save them to your own calendar folder. In response to this requirement, here we will teach you 2 ways.

2 Quick Methods to Add the Appointments Attached in an Email to Your Outlook Calendar

Add Appointments Attached in an Email to Calendar Manually

  1. At the outset, launch your Outlook program as usual.
  2. Then find the source email.
  3. Next double click on one appointment attachment to open it in Appointment window.
  4. Later click on the “Save & Close” button in the ribbon to add it to your default calendar folder.Save Attached Appointments One by One
  5. Ultimately, you can repeat the steps to add the left appointment attachments to your calendar.

Add Appointments Attached in an Email to Calendar via VBA

  1. To start with, in main Outlook window, you need to press “Alt + F11” keys.
  2. Next you’ll get into Outlook VBA editor window, in which you ought to open a new module.
  3. Subsequently, copy and paste the VBA code below into this module.
Sub AddAttachedAppointments_Calendar()
    Dim objMail As Outlook.MailItem
    Dim objAttachments As Outlook.Attachments
    Dim objAttachment As Outlook.Attachment
    Dim objAttachedAppointment As Outlook.Attachment
    Dim objFileSystem As Object
    Dim strTempFolder As String
    Dim strFilePath As String
    Dim objAppointment As Outlook.AppointmentItem
 
    'Get the attachments of the email
    Select Case Application.ActiveWindow.Class
           Case olExplorer
                Set objMail = ActiveExplorer.Selection(1)
           Case olInspector
                Set objMail = ActiveInspector.CurrentItem
    End Select
    Set objAttachments = objMail.Attachments
 
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    strTempFolder = objFileSystem.GetSpecialFolder(2).Path & "\"
 
    For Each objAttachment In objAttachments
        'Save the attached appointments to temp folder
        If Right(objAttachment.FileName, 3) = "ics" Or Right(objAttachment.FileName, 3) = "msg" Then
           Set objAttachedAppointment = objAttachment
           strFilePath = strTempFolder & objAttachedAppointment.FileName
           objAttachedAppointment.SaveAsFile strFilePath
        End If
        'Open and copy the appointments to your default Calendar folder
        Set objAppointment = Session.OpenSharedItem(strFilePath)
        objAppointment.Copy
        objFileSystem.DeleteFile (strFilePath)
    Next
End Sub

VBA Code - Add Appointments Attached in an Email to Calendar

  1. After that, you can add the new VBA project to Quick Access Toolbar.
  2. Eventually you can try this new macro.
  • First, select a source email which contains many appointments.
  • Then hit the macro in Quick Access Toolbar.Select Email & Run Macro
  • Immediately, all the attached appointments in this email will be attached to your default Outlook calendar folder.

Essential Actions in Face of Outlook Corruptions

As Outlook comes with various features, many users take it for granted that they can rest easy. In reality, Outlook is still prone to errors and corruption. Therefore, it is necessary to learn some tips to safeguard your Outlook data. For instance, it is vital to back up Outlook data files regularly. Furthermore, so as to fix Outlook in time, you need to prepare a robust tool such as DataNumen Outlook Repair.

Author Introduction:

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

Comments are closed.