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
- To begin with, start your Outlook application.
- After you get into Outlook main window, you can press “Alt + F11” keys.
- Then Outlook VBA editor window will be opened, in which you need to open a module which is not in use.
- 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
- 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.
- Later you ought to change your Outlook macro security level to low.
- 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
BlA3EHIY1xrpLPA2Hz6i4qWNOiQYlarP