2 Methods to Create an Appointment Located at the Address of a Contact in Outlook

If you want to create an appointment from a specific contact and use the contact address directly as the appointment location. In this case, you can apply the 2 ways introduced in this article.

Sometimes, you may need to schedule an appointment with someone, who is a contact in your Outlook, and use the contact address as the appointment location straightly, business address or home address. For most people, the most familiar method is to manually create an appointment and copy the contact address to the location field. However, actually, by means of Outlook VBA, you can quickly get it via one click. Now we will introduce the two ways respectively.

Method 1: Copy the Contact Address to a New Appointment Manually

1. In the first place, launch your Outlook application.
2. Then switch to Contacts pane.
3. Next double click on the source contact to open it in its own window.
4. Subsequently, you should find the “Address” section and copy the address.
5. After that, you can click on the “Meeting” button in the “Communicate” group under “Contact” tab.
6. Later, a meeting will show up. Now you can click into the “Location” field and press “Ctrl + V” to paste the previously copied address.
7. Finally, to turn a meeting to a standard appointment, you can just hit “Cancel Invitation” button.

Method 2: Use Outlook VBA to Accomplish It in Quick Time

1. At the very outset, press “Alt + F11” key shortcut.
2. Then in the opened VBA editor window, you can open a not-in-use module.
3. Next copy and paste the following VBA codes into it.

Sub CreateAppointmentLocatedAtContactAddress()
    Dim objContact As Outlook.ContactItem
    Dim objAppointment As Outlook.AppointmentItem
    Dim nPrompt As Integer
 
    On Error Resume Next
    Set objContact = Application.ActiveExplorer.Selection.Item(1)
 
    If TypeOf objContact Is ContactItem Then
       Set objAppointment = Application.CreateItem(olAppointmentItem)
       objAppointment.Subject = "Appointment with " & objContact.FullName
 
       'Use the business address as the first choice
       If objContact.BusinessAddress <> "" Then
          With objAppointment
               .Location = objContact.BusinessAddress
               .Display
          End With
       'If no business address, then use the home address
       ElseIf objContact.HomeAddress <> "" Then
          With objAppointment
               .Location = objContact.HomeAddress
               .Display
          End With
       'If no address, then display a prompt
       Else
          nPrompt = MsgBox("You haven't filled in the contact's address!", vbExclamation, "Check Address")
       End If
    End If
End Sub

4. After that, add the macro to Quick Access Toolbar as usual.
5. Eventually, you can have a try.

• First, select a contact.
• Then click on the macro button in Quick Access Toolbar.
• At once, a new appointment will display with the contact address as the location, like the following screenshot:

Effectively Resolve Outlook Problems

In order to get rid of Outlook issues efficiently, it is suggested to prepare a robust Outlook fix tool in advance, such as DataNumen Outlook Repair. Otherwise, if you simply reply on the inbox repair tool, Scanpst.exe, you will finally find it useless in case of severe Outlook crashes. Moreover, it is much better if you’ve developed a good habit of making regular data backups.

Author Introduction:

Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including repair sql and outlook repair software products. For more information visit www.datanumen.com