[求助]如何用VB/VBA调用Outlook自动登陆Exchange的帐号

大飞

环境：NT局域网，Win2000，Outlook2000，Exchange邮件服务器，VB6 我做的系统中，需要一些通知功能，申请了一个专门的NT域/Exchange邮件帐号，来做自动发送Email通知。 由于公司里Exchange Server的帐号是和NT域的帐号的验证是相关联的，登陆NT域后，使用Outlook时就不用再验证Exchange Server帐号了，用下列代码就可以直接调用Outlook发送Email:
Set my_app = CreateObject("Outlook.Application")
Set my_space = my_app.GetNamespace("MAPI")
Set my_folder = my_space.GetDefaultFolder(olFolderOutbox)
Set my_msg = my_app.CreateItem(olMailItem) 上述做法，一定要用那个专门的帐号登陆NT域，才能使用那个专用邮件帐号自动发送。但现在我想将那个程序放到一个服务器上运行（这台服务器可能使用各管理者自己的帐号登陆域，或根本就不登陆到域。）如果使用其它帐号登陆NT域，即使把Outlook配置到那个专用的邮件帐号，程序以运行后，仍会弹出登陆对话框，要求输入用户名，密码，域名。我尝试过用my_space.logon来登陆，好像不行。这个方法只能提供一个密码，我不知道用户名和域名往哪里添。 我的问题就是怎样才能自动填写Exchange帐号的用户名，密码和域名，不要让那个对话框出来。 这个问题好像有点复杂，我也知道我说明白了没有。请高手指点。

大飞

我把这个板块翻了个遍，好像关于Exchange的都是在Outlook中怎么设置，没有讲怎么调用的呀。

loadhigh

你把这句 Set my_folder = my_space.GetDefaultFolder(olFolderOutbox)
注释掉，再试试看。

winak

你的问题以前很多人也做过，不妨到与派社区看看，以前开过专题的 www.yupai.net 你可以搜索一下