When you need to create an Outlook appointment linked to multiple contacts, you can utilize the 3 methods introduced in this article.
If you want to schedule an appointment involving multiple contacts, not only will you need to create a new appointment, but also you will hope to link the contacts to this new appointment. In the followings, we will look at this requirement and share 3 quick ways to realize it.
Method 1: Copy Contacts to Calendar as Appointments with Shortcuts
- For a start, access the Contacts folder.
- Then, select the contacts in the list.
- Next, hold down the right click of mouse and meanwhile drag and drop the selected contacts to the “Calendar” icon in the navigation pane.
- Then, in Shortcut Menu, choose “Copy Here as Appointments as Shortcuts”.
- Lastly, a new appointment will be displayed, in which the selected contacts have been attached, as shown in the following figure.
Method 2: Create an Appointment Linked to Multiple Contacts via “Meeting” Button
- At first, select the contacts you want.
- Then, click the “Meeting” button in the “Communicate” group.
- In the opened Meeting window, locate and click “Cancel Meeting” button.
- At once, the meeting will be converted to an appointment. And the meeting recipients will be filled in “Contacts” line, like the screenshot below.
Method 3: Create an Appointment Linked to Multiple Contacts via VBA
- At the beginning, trigger Outlook VBA editor via “Alt + F11”.
- Subsequently, in the new window, put the VBA code into an unused module.
Sub CreateAppointmentLinkedToContacts() Dim objSelection As Outlook.Selection Dim objItem As Object Dim objContact As Outlook.ContactItem Dim objAppointment As Outlook.AppointmentItem 'Get selected contacts Set objSelection = Outlook.Application.ActiveExplorer.Selection If Not objSelection Is Nothing Then Set objAppointment = Outlook.Application.CreateItem(olAppointmentItem) For Each objItem In objSelection If TypeOf objItem Is ContactItem Then Set objContact = objItem 'Attach contacts to appointment objAppointment.Attachments.Add objContact 'Link contacts to appointment objAppointment.Links.Add objContact End If Next objAppointment.Display End If End Sub
- After that, exit the current window.
- Later, add this macro to Quick Access Toolbar according to “Optional Step” in “How to Run VBA Code in Your Outlook“.
- Finally, you can try it.
- First off, select contacts that you want.
- Then, click the macro button in Quick Access Toolbar.
- Immediately, you will get a new appointment linked to the contacts. And the contacts are attached in body as well, like the following screenshot.
Restore Corrupt Outlook Data
It is not strange to encounter Outlook data corruption. In other words, Outlook is vulnerable. And in reality, many users have complained about accidental PST file being inaccessible. Under that circumstance, what users can do is to attempt PST fix if they have no effective ways. Of course, the inbox repair tool is the first resort. Yet, it is proven that the internal tool is helpless in such cases. Therefore, it’s wise to prepare another robust external 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 corrupt mdf and outlook repair software products. For more information visit www.datanumen.com