3 Quick Methods to Create an Outlook Appointment Linked to Multiple Contacts

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

  1. For a start, access the Contacts folder.
  2. Then, select the contacts in the list.
  3. Next, hold down the right click of mouse and meanwhile drag and drop the selected contacts to the “Calendar” icon in the navigation pane.Drag & Drop Contacts to Calendar
  4. Then, in Shortcut Menu, choose “Copy Here as Appointments as Shortcuts”.Select "Copy Here as Appointments as Shortcuts"
  5. Lastly, a new appointment will be displayed, in which the selected contacts have been attached, as shown in the following figure.Attached Contacts in Appointment

Method 2: Create an Appointment Linked to Multiple Contacts via “Meeting” Button

  1. At first, select the contacts you want.
  2. Then, click the “Meeting” button in the “Communicate” group.Create Meeting to Contacts
  3. In the opened Meeting window, locate and click “Cancel Meeting” button.Cancel Meeting
  4. At once, the meeting will be converted to an appointment. And the meeting recipients will be filled in “Contacts” line, like the screenshot below.Linked Contacts in Appointment

Method 3: Create an Appointment Linked to Multiple Contacts via VBA

  1. At the beginning, trigger Outlook VBA editor via “Alt + F11”.
  2. 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
    End If
End Sub

VBA Code - Create an Appointment Linked to Multiple Contacts

  1. After that, exit the current window.
  2. Later, add this macro to Quick Access Toolbar according to “Optional Step” in “How to Run VBA Code in Your Outlook“.
  3. 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.Attached and Linked Contacts in Appointment

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.

Author Introduction:

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

Comments are closed.