如何得到本机上的OUTLOOK的帐号的EMAIL地址?

Question

到绿盟找个VBS病毒的源代码，看看就明白了！

Answer 1

直接利用Outlook的对象模型就可以了

Answer 2

Outlook的对象模型里面应该如何使用.
meditate(黑梦)兄 给个例子吧

Answer 3

[Outlook的对象模型]的帮助有吗？

Answer 4

Dim outA As Object
Dim ns As NameSpace
Dim AL As AddressList
Dim AE As AddressEntry
Dim AES As AddressEntriesPrivate Sub Command1_Click()
    Set outA = CreateObject("Outlook.Application")
    Set ns = outA.GetNamespace("MAPI")
    Set AL = ns.AddressLists("联系人")
    Set AES = AL.AddressEntries
    Set AE = AES(1)
    
    Debug.Print AE.Address
    Debug.Print AE.Name
    
    Set outA = Nothing
End Sub当点击Command1后，地址簿中第一个联系人的电子邮件地址以及姓名就会在Debug窗口显示。