如何获取Excel用户的outlook邮件ID - 使用VBA

Question

我们为项目经理准备了 Excel 工具。如果他们使用公司凭据登录 Excel，该工具就可以使用。但是，如果他们使用个人帐户登录，则该帐户将无法运行。

我想知道用户的 Outlook 电子邮件凭据以授予他们使用它的权限，或者如果您对如何实现此目的有任何其他建议，请告诉我

在此输入图片描述

Answer 1

子 GetOutlookEmailAddress() 将 OutlookApp 调暗为对象 昏暗的命名空间作为对象 将当前用户调暗为对象 将电子邮件地址变暗为字符串

On Error Resume Next
' Create Outlook Application object
Set OutlookApp = CreateObject("Outlook.Application")
If OutlookApp Is Nothing Then
    MsgBox "Outlook is not installed or configured on this system.", vbExclamation
    Exit Sub
End If

' Get Namespace object
Set Namespace = OutlookApp.GetNamespace("MAPI")

' Get the current user information
Set CurrentUser = Namespace.Session.CurrentUser

' Retrieve email address
EmailAddress = CurrentUser.AddressEntry.GetExchangeUser().PrimarySmtpAddress

' Display the email address
MsgBox "Your email address is: " & EmailAddress, vbInformation

' Clean up objects
Set CurrentUser = Nothing
Set Namespace = Nothing
Set OutlookApp = Nothing

结束子