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

[zitjubiz]

OUTLOOK里面有好几个帐号 我想在VB里面得到其中一个的EMAIL
不知道MAPI可不可以?
我是没有找到.
各位,给个例子
谢谢

[water_j]

gz!

[Meditate]

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

[zitjubiz]

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

[uguess]

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

[TechnoFantasy]

Dim outA As Object
Dim ns As NameSpace
Dim AL As AddressList
Dim AE As AddressEntry
Dim AES As AddressEntries

Private 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窗口显示。

[diruser]

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