Improve company productivity with a Business Account.Sign Up

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 245
  • Last Modified:

Adding Entry to Outlook Address Book

I'm trying to add an address entry to the outlook address book.  I found this code in another section but can't get it to work even after adding MAPI components and referencing outlook.

Here's the code:
Function AddEntry()
 
Dim objSession As MAPI.Session   ' Session object
Dim objMyPAB As AddressList      ' personal address book object
Dim objNewEntry As AddressEntry  ' new address entry object
Dim propTag As Long              ' MAPI property tag for new field
 
On Error GoTo error_olemsg
Set objSession = CreateObject("MAPI.Session")
 
' log on to session, supplying username and password
objSession.Logon 'profileName:="MyProfile", _

                 'profilePassword:="my_password"
 
' get PAB AddressList from AddressLists collection of Session
Set objMyPAB = objSession.AddressLists("Personal Address Book")
If objMyPAB Is Nothing Then
    MsgBox "Invalid PAB from session"
    Exit Function
End If
 
' add new AddressEntry to AddressEntries collection of AddressList
Set objNewEntry = objMyPAB.AddressEntries.Add "SMTP", "Jane Doe"
objNewEntry.address = "janed@exchange.microsoft.com"

 
' set MAPI property in new AddressEntry (don’t need to Add it)
propTag = &H3A08001E ' VB4.0: ActMsgPR_BUSINESS_TELEPHONE_NUMBER
objNewEntry.Fields(propTag) = “+1-206-555-9901”
 
' add custom property to new AddressEntry and set its value
objNewEntry.Fields.Add “CellularPhone”, vbString
objNewEntry.Fields(“CellularPhone”) = “+1-206-555-9902”
 
' commit new entry, properties, fields, and values to PAB AddressList
objNewEntry.Update
MsgBox “New address book entry successfully added”

Exit Function
 
error_olemsg:
MsgBox "Error " & Str(Err) & ": " & Error$(Err)
Exit Function ' so many steps to succeed; just exit on error
 
End Function




I've put it all in a module and call the procedure - I keep getting this error: user defined type not defined ... on this line....

dim objSession As MAPI.Session
0
basica
Asked:
basica
  • 2
1 Solution
 
AzraSoundCommented:
perhaps this code will give you some ideas
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

The 14th Annual Expert Award Winners

The results are in! Meet the top members of our 2017 Expert Awards. Congratulations to all who qualified!

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now