How to Batch Attach Multiple Appointments as iCalendar (.ics) Files to Your Outlook Email

By default, you can easily attach an appointment as iCalendar (.ics) file to an email. But, if you wish to batch attach multiple appointments as ics files, you should use the method introduced in this article.

To attach an appointment as iCalendar (.ics) file to an email, you can refer to our previous article – “How to Send an Outlook Appointment to Other Persons”. Just open an appointment and select “Forward” > “Forward as iCalendar”. It is pretty easy. However, Outlook doesn’t support to send many appointments as iCalendar file attachments. Thus, thereinafter, we will teach you another way.

Batch Attach Multiple Appointments as iCalendar (.ics) Files to Email

1. To begin with, start your Outlook application.
2. After you get into Outlook main window, you can press “Alt + F11” keys.
3. Then Outlook VBA editor window will be opened, in which you need to open a module which is not in use.
4. Next you can copy the following VBA code into this module window.

Sub BatchAttachMultipleAppointmentsAsiCalendarFiles()
    Dim objSelection As Outlook.Selection
    Dim objAppointment As Outlook.AppointmentItem
    Dim objFileSystem As Object
    Dim strTempFolder As String
    Dim strTempFile As String
    Dim objNewMail As Outlook.MailItem
 
    'Get the selected appointments
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    strTempFolder = objFileSystem.GetSpecialFolder(2).Path & "\"
    Set objNewMail = Outlook.Application.CreateItem(olMailItem)
 
    On Error Resume Next
    For Each objAppointment In objSelection
        'Save the appointments as ics files to local folder
        strTempFile = strTempFolder & objAppointment.Subject & ".ics"
        objAppointment.SaveAs strTempFile, olICal
 
        'Attach the ics files to the new email
        objNewMail.Attachments.Add strTempFile
  
        'delete the temp ics files
        objFileSystem.DeleteFile (strTempFile)
    Next
 
    'Show the new email
    objNewMail.Display
End Sub

5. After that, you need to add the new macro to Quick Access Toolbar for future convenient access.

• First, go to “File” > “Options” > “Quick Access Toolbar”.
• Then take the steps shown in the screenshot below to get it.

6. Later you ought to change your Outlook macro security level to low.
7. Ultimately, you can take a try.

• For a start, access a calendar folder.
• Then select the appointments which you want to attach as ics files.
• Next press the new macro button in Quick Access Toolbar.
• Immediately, a new mail will emerge, in which all the previously selected appointments have been attached as ics files. It looks like the following picture:

Fix PST Errors in Good Time

You should never leave PST errors alone. Accumulating errors can finally result in Outlook crash. At that point, you will surely suffer PST corruption. You may think that inbox repair tool can help you get rid of this trouble. However, in reality, this kind of problem has been far beyond the capacity of Scanpst.exe. Therefore, you have to recur to a more potent tool like 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 corrupt sql and outlook repair software products. For more information visit www.datanumen.com