sol12-26.vbs

Apress - Managing Enterprise Systems With The Windows Script Host Source Code

' create a session then log on
Set objSession = CreateObject("MAPI.Session")
' change the parameters to valid values for your configuration
objSession.Logon "Valid Profile"

'get a reference to the Recipient
Set objList = objSession.AddressLists("Personal Address Book")
Set objAddressEntries = objList.AddressEntries

'add an Internet mail address
   Set objAddressEntry = objAddressEntries.Add("SMTP", "Fred Smith", "[e-mail]")