【Excel VBA】Outlookのメールアドレスを取得する方法

Excel VBAでOutlookでログインしているメールアドレスを取得する方法をご紹介します。

実際のコード

早速ですが、実際のコードはこちらです。

Sub mailaddres()

    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
End Sub

参考

ExchangeUser.PrimarySmtpAddress プロパティ (Outlook)

Office VBA リファレンス トピック

learn.microsoft.com