sol12-27.vbs

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

Set objAddresslist = objSession.AddressLists("Personal Address Book")
Set objAddressEntries = objAddresslist.AddressEntries
'add a new address entry called New List. Make it a distribution list
Set objAddressDLEntry = objAddressEntries.Add("MAPIPDL", "New List", _
"[e-mail]")
objAddressDLEntry.Update 'update AddressEntry so changes are saved

'add user Fred Smith to distribution list
Set objAddressEntry = objAddressDLEntry.Members.Add("SMTP", "Fred Smith", _
"[e-mail]")
objAddressEntry.Update 'update AddressEntry so changes are saved

'add user Joe Blow to distribution list
Set objAddressEntry = objAddressDLEntry.Members.Add("SMTP", "Joe Blow", _
"[e-mail]")
objAddressEntry.Update 'update AddressEntry so changes are saved

'add user Sally Jones to distribution list
Set objAddressEntry = objAddressDLEntry.Members.Add("SMTP", "Sally Jones", _
"[e-mail]")
objAddressEntry.Update 'update AddressEntry so changes are saved