VBA：当前Windows登录用户的交换电子邮件地址

Question

我有一个MS Access 2003应用程序，我需要当前Windows登录用户的交换电子邮件地址。

我是否需要查询Active Directory才能执行此操作，还是有更简单的方法？ 我们的组织中有不同的域名，查询AD会很麻烦。

谢谢， 布鲁诺

Answer 1

您可以通过VBA使用环境变量来检索它。

http://vlaurie.com/computers2/Articles/environment.htm

Environ Function code samples for VBA

例如，如果您知道您的用户以'firstname.lastname@exchange.com'的身份登录系统，Environ将为您提供'FirstName.LastName'，然后您可以在最后添加您的交换电子邮件。