The Add method creates and returns a new AddressEntry object in the AddressEntries collection.
Set objAddressEntry = objAddrEntriesColl.Add(emailtype [, name] [, address ] )
The emailtype parameter corresponds to the PR_ADDRTYPE property and qualifies the address parameter by specifying which messaging system the address is valid in. Typical values are SMTP, FAX, and X400.
The emailtype, name, and address parameters correspond to the Type, Name, and Address properties of the AddressEntry object.
You can set the emailtype parameter to any string recognized and supported by the address book providers invoked by the current profile, such as SMTP or X400. In particular, if you are using the Microsoft® Exchange private address book (PAB) provider, you can set emailtype to MAPIPDL to indicate a private distribution list (PDL).
The DisplayType property of the new AddressEntry object is set by the address book provider to either CdoUser or CdoDistList, depending on which kind of address entry is being added. The DisplayType property is read-only and cannot subsequently be changed.
The user must have the appropriate permission to Add, Delete, or Update an AddressEntry object. Most users have this permission only for their personal address book (PAB).
The CDO Library does not support addition, deletion, or modification of members of a distribution list (DL) on the global address list (GAL).
The new AddressEntry object is saved in the MAPI system when you call its Update method.
This code fragment adds a new entry to a user's personal address book (PAB). Note the use of the Item property as the default property of the AddressLists collection.
' get PAB AddressList from AddressLists collection of Session
Dim myList As AddressList ' used to obtain PAB
Dim newEntry As AddressEntry ' new user in PAB
Dim newField As Field ' fax number of new user
' assume objSession created and logged on to without problem
Set myList = objSession.AddressLists("Personal Address Book")
' add new AddressEntry to AddressEntries collection of AddressList
Set newEntry = myList.AddressEntries.Add("FAX", "John Doe")
' add FaxNumber field to new AddressEntry and give it a value
Set newField = newEntry.Fields.Add("FaxNumber", vbString)
newField.Value = "+1-206-555-7069" ' could have supplied this in Add
' commit new entry, field, and value to PAB AddressList
newEntry.Update