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
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.
Similar threads
Thread starter Title 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 Using Outlook 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
S Contact Photo does not display in email messages. Using Outlook 3
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
T How to find or display the sub-folder name for an Archive Search Using Outlook 10
Witzker Outlook 2019 Display the output of a seach in a new Window Outlook VBA and Custom Forms 6
Albert McCann Outlook 2021 Outlook Display of HTML Email from two senders is glitchy Using Outlook 0
K Outlook 365 After migrating to Outlook 365, some contacts display in emails with prefixes Using Outlook 0
K Daily Task List Minimized Cannot Display Using Outlook 5
J images on note field display fraction of size Using Outlook 5
J Outlook 2016 Can't display some embedded HTML images in Outlook 2016 Using Outlook 2
O After filtering, how to display all events on that day? Using Outlook 4
M All fonts in Outlook emails display with exaggerated character spacing Using Outlook 4
G Schedule recurring email and attachments display Outlook VBA and Custom Forms 3
O Tasks - how to display "snoozed" tasks and snooze-times? Using Outlook 7
P Task display now leaves little room for notes Using Outlook 10
R Capture Sender's Display name and Address Outlook VBA and Custom Forms 3
M Outlook 2010 How could I globally redesign an outlook template form/region/inspector template used to display mail lists or an individual mails? Outlook VBA and Custom Forms 0
Travis Lloyd Messages Won't Display In Outlook 2019 Home & Business Using Outlook 0
A Prepending Email Addrs with "Display Name <email>" Has Stopped Working Using Outlook 0
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 Using Outlook 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 Using Outlook 0
Diane Poremsky Replace Display Names with Email Addresses Using Outlook 0
K Display sub-folders in body of outlook Using Outlook 1

Similar threads