通过电子邮件地址引用Outlook帐户

Question

我在excel VBA中找到了以下VBA，它将返回每个Outlook帐户项及其帐号。

Sub Which_Account_Number()
    Dim OutApp As Outlook.Application
    Dim I As Long

    Set OutApp = CreateObject("Outlook.Application")

    For I = 1 To OutApp.Session.Accounts.Count
        MsgBox OutApp.Session.Accounts.Item(I) & " : This is account number " & I
    Next I
End Sub

我想选择与特定电子邮件地址关联的帐号，而不是一个接一个地返回。

Answer 1

您只需要直接设置

Sub Which_Account_Number()
    Dim OutApp As Outlook.Application
    Dim DesiredAccount As Outlook.Account
    Set OutApp = CreateObject("Outlook.Application")
    Set DesiredAccount = OutApp.Session.Accounts.Item("desiredemail@domain.com")
    MsgBox DesiredAccount.DisplayName
    Set DesiredAccount = Nothing
    Set OutApp = Nothing
End Sub

以后可能this和this可能会有所帮助。