sp; Set objOA=Wscript.CreateObject (“Outlook.Application“) ’创建一个OUTLOOK应用的对象
Set objMapi=objOA.GetNameSpace (“MAPI“) ’取得MAPI名字空间
For i=1 to objMapi.AddressLists.Count ’遍历地址簿
Set objAddList=objMapi.AddressLists (i)
For j=1 To objAddList. AddressEntries.Count
页码:[1] [2] [3] [4] [5] [6] 第4页、共6页 |