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

Question

I have found the following VBA, which I'm using in excel VBA, which will return each Outlook account item and its account number.

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

I want to select the account number that is associated to a specific from email address, instead of returning them all one after another.

Answer 1

You just need to set it directly

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

Probably this and this may be helpful as well later on.