outlook contacts

C

chriske911

I have to set a contact per record
I could let users enter an email address manually but...
it would be handy if they could select it using the contacts folder in
Outlook
can this be done from within access?

thnx
 
A

Arvin Meyer [MVP]

Yes, but you should use an Exchange mail server and link on the 128
character GUID string located in the Outlook public folder record. Here's
some code to use from Access to open the Outlook contact. You will need to
set a reference to the Outlook Object Library. Watch out for newsreader line
wrapping:

Private Sub cmdOutlook_Click()
Dim olApp As Object
Dim nsMAPI As NameSpace
Dim ContactFolder As MAPIFolder
Dim contact As Object
Dim EntryID As Variant

Set olApp = GetObject("", "Outlook.Application")
Set nsMAPI = olApp.GetNamespace("MAPI")
Set ContactFolder = nsMAPI.Folders("Public Folders").Folders("All Public
Folders").Folders("Contacts")
EntryID = DLookup("ContactExchangeEntryID", "tblContacts",
"[ContactCode] = '" & Me.ContactCode & "'")

If Not IsNull(EntryID) Then
Set contact = nsMAPI.GetItemFromID(EntryID, ContactFolder.StoreID)
contact.Display
Else
MsgBox ("This customer is not available in the Contact folder.")
End If
End Sub
--
Arvin Meyer, MCP, MVP
Microsoft Access
Free Access downloads:
http://www.datastrat.com
http://www.mvps.org/access
 
Top