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.
Add Appointments Attached in an Email to Calendar Manually
- At the outset, launch your Outlook program as usual.
- Then find the source email.
- Next double click on one appointment attachment to open it in Appointment window.
- Later click on the “Save & Close” button in the ribbon to add it to your default calendar folder.
- 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
- To start with, in main Outlook window, you need to press “Alt + F11” keys.
- Next you’ll get into Outlook VBA editor window, in which you ought to open a new module.
- 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
- After that, you can add the new VBA project to Quick Access Toolbar.
- Eventually you can try this new macro.
- First, select a source email which contains many appointments.
- Then hit the macro in Quick Access Toolbar.
- 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.
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