如何使用后期绑定检索当前用户的Outlook电子邮件地址？

Question

我试图弄清楚如何在Excel模块中使用后期绑定来检索当前用户的电子邮件地址，以便自动发送电子邮件＆＃39;在执行宏时。

我将发布以下解决方案。我使用的是Excel 2010，但它也适用于2013年。

Answer 1

Dim OL, olAllUsers, oExchUser, oentry, myitem As Object
Dim User As String

Set OL = CreateObject("outlook.application")
Set olAllUsers = OL.Session.AddressLists.Item("All Users").AddressEntries

User = OL.Session.CurrentUser.Name

Set oentry = olAllUsers.Item(User)

Set oExchUser = oentry.GetExchangeUser()

msgbox oExchUser.PrimarySmtpAddress