ExctractAddress

[Adam]

Hi
I need the code in VBA who can extract one or some personal address
from address book of the MS.Outlook
Could you help mi
Thank you

 

[Dean]

From Outlook VBA Help:
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 = "(e-mail address removed)"
myEntry.Update
DialogBox:
myEntry.Details