This Visual Basic for Applications example uses the Add method to add a new AddressEntry to the Personal Address Book. The Name, "John Q. Public" is necessary to avoid errors.
If this entry already exists, the code skips to DialogBox:
. The Details method displays a dialog box that shows the information for this entry.
Set myOlApp = CreateObject("Outlook.Application")
Set myNamespace = myOlApp.GetNamespace("MAPI")
Set myAddrList = myNamespace.AddressLists("Personal Address Book")
Set myAddrEntries = myAddrList.AddressEntries
Set myEntry = myAddrEntries.Add("Microsoft Mail Address")
myEntry.Name = "John Q. Public"
On Error GoTo DialogBox
myEntry.Address = "someone@microsoft.com"
myEntry.Update
DialogBox:
myEntry.Details