Adding Entry to Outlook Address Book
Posted on 2000-04-12
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:
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", _
' 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"
' add new AddressEntry to AddressEntries collection of AddressList
Set objNewEntry = objMyPAB.AddressEntries.Add "SMTP", "Jane Doe"
objNewEntry.address = "firstname.lastname@example.org"
' 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
MsgBox “New address book entry successfully added”
MsgBox "Error " & Str(Err) & ": " & Error$(Err)
Exit Function ' so many steps to succeed; just exit on error
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