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

【问题标题】：How to retrieve current user's Outlook email address with late binding?如何通过后期绑定检索当前用户的 Outlook 电子邮件地址？
【发布时间】：2016-02-29 19:09:49
【问题描述】：

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

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

【问题讨论】：

标签： excel vba outlook outlook-2010

【解决方案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

【讨论】：

您应该在第一个声明中的每个变量后添加as object
感谢您的提示。出于好奇，与我的做法相比，它提供了哪些优势或好处？
如果你 dim a, b, c as x 只有 c 是 x 类型，a 和 b 是没有类型的变体。设置所有 3 的类型看起来像是一种简写，但实际上并非如此。
对我有用，只需要调整地址列表名称。谢谢。