Display PF contact folder items to select contact to link to appointment

Not open for further replies.


New Member
Outlook version
Outlook 2010 32 bit
Email Account
Office 365 Exchange
Set-up: Windows 7 Pro/Outlook 2010/Office 365 Exchange

Goal: I have a custom appointment form. We are heavy users of contact linking and have a number of contact folders. When we go to link a record, we have to navigate to the correct contact folder in order to select the contact record to link. I'd like to ease the process of creating the link by using a button that would display the items of a specific contact folder (Public Folder) in a window and allow the user to select the desired contact and have the link created in the appointment.

Any assistance in pointing me in the right direction would be greatly appreciated.


I wasn't quite sure where to start, but have included what code I have so far.

Sub AddLink_Click()

Dim myOLApp
Dim myNS
Dim objAppt
Dim lnkfolder

Set myOLApp = CreateObject ("Outlook.Application")
Set myNS = myOLApp.GetNamespace("MAPI")
Set objAppt = Application.ActiveInspector.CurrentItem
Set lnkfolder = myNS.GetFolderFromID("000000001A447390...240000")

'Display lnkfolder in window so desired contact can be selected

'Save contact link in objAppt

Set myOLApp = Nothing
Set myNS = Nothing
Set objAppt = Nothing
Set lnkfolder = Nothing

End Sub

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
Shoot... i don't recall if contact linking still works in Outlook 2010 - it was removed from newer versions. Yes.. still in Outlook 2010: Links.Add Method (Outlook)

That sample uses an input box for the user to type a name. I believe you would call the address book, not a folder, to pick..
Not open for further replies.
Thread starter Similar threads Forum Replies Date
N Contact display as Using Outlook 2
C Display Sender As Contact Outlook VBA and Custom Forms 4
Diane Poremsky Search for All Messages from Contact and Display in New Window New Slipstick.com Articles 0
F Outlook 2010 contact e-mail Display as: does not show contact name Using Outlook 2
R contact names does not display in compose emails using Outlook2013 Using Outlook 3
W OL2013 contact display name not showing Using Outlook 2
K Change default "Display As" for contact email addresses Using Outlook 1
E Getting all items in Outlook contact activities to display properly Using Outlook 2
T "Look up Outlook Contact" from a received email does not display all of the contact information Using Outlook 9
D Display on Address Cards Does not Reflect the Name of the Contact Using Outlook 2
F Contact under notes does not display image Using Outlook 3
S Contact Photo does not display in email messages. Using Outlook 3
L Outlook contact does not display on computer monitor. Using Outlook 1
C Display CONTACT folders as nested (AKA Tree) Using Outlook 6
A Compare incoming FROM display name to contact Outlook VBA and Custom Forms 3
C Account view display narrowed, contact names hidden BCM (Business Contact Manager) 6
M In Outlook Calendar remove the buttons: 'Today' and '<' (Back a day) and '>' (Forward a day) that are below the Ribbon and above the calendar display. Using Outlook 0
C Why won't Title display in message list? Using Outlook 1
R Auto display of new email does not work on non-default account Outlook VBA and Custom Forms 0
E How to display "Change Folder" in Change Default Email Delivery Location in Exchange Outlook 2016 Using Outlook 1
T Column to display which email alias a message was sent to Outlook VBA and Custom Forms 6
M Daily Task List Minimized Cannot Display Using Outlook 2
C Outlook Mobile app email order randomized and display names stripped Using Outlook 6
J Reminders Display then Disappear Using Outlook 13
O How to display senders email address (column) Using Outlook 1
I How to display sender's name instead of email address in outlook 2013 message Using Outlook 5
O How to display number of items per .pst file Using Outlook 7
J Outlook 2016 message content does not display - outlook.com; exchange Using Outlook.com accounts in Outlook 9
O Display more months in 'Tasks' Using Outlook 3
soadfan Outlook rules look up display name only Using Outlook 4
O How to display folder icons? Using Outlook 2
Treebys Array out of bounds .display 2016 Outlook VBA and Custom Forms 3
copperberry How to display incomplete tasks due on or before 7 days from now Using Outlook 0
T outlook 2010 mail item count doesnt match display Outlook VBA and Custom Forms 3
Diane Poremsky Category Color doesn't Display in Inbox New Slipstick.com Articles 0
P How to make outlook display alert appear on top of other windows whenever a new email is received? Outlook VBA and Custom Forms 1
T Outlook 2016 Calendar multiday event display Using Outlook 4
Diane Poremsky Display the Created Date field of any Outlook item New Slipstick.com Articles 0
Diane Poremsky Replace Display Names with Email Addresses New Slipstick.com Articles 0
K Display sub-folders in body of outlook Using Outlook 1
O How to display multi-line task in To-Do List - Outlook 2010 Using Outlook 1
Diane Poremsky Display the Recipient Email Address in the Sent Items Folder New Slipstick.com Articles 0
Diane Poremsky Excel Files Won't Display in Reading Pane New Slipstick.com Articles 1
D Display of Open Folders Using Outlook 0
Fozzie Bear Change the Display Name recipients see for Exchange account Exchange Server Administration 0
Diane Poremsky Pictures don't display in Outlook messages New Slipstick.com Articles 4
M Outlook VBA Macro that could retrieve/display the (From, Subject, Date Received) Outlook VBA and Custom Forms 2
William Yeack Outlook/Exchange - Changing display of “From” user Using Outlook 3
M Display as name in outlook contacts changes Using Outlook 5
R Coming from Thunderbird: "Always prefer display name over message header" Using Outlook 1
Similar threads