OLE_Outlook- add Entry to Address book

Keywords: 	OLE Outlook Add Entry to Address book

---

Sample:

myOlApp = ObjectOpen("Outlook.Application")
myNameSpace = myOlApp.GetNameSpace("MAPI")
myAddressList = myNameSpace.AddressLists
mycount=myAddressList.count
For x = 1 to mycount
  Addbook= myAddressList.Item(x)
Next
myAddressEntries = Addbook.AddressEntries
myAddressEntries.Add("SMTP",  "TEST", "Test@Test.com")
exit

---

---

Article ID:   W14683

Filename:   OLE_Outlook- add Entry to Address book.txt