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

Question

我找到了以下 VBA，我在 excel 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 以后也会有所帮助。