Sub Test() Dim oAccount As Outlook.Account For Each oAccount In Application.Session.Accounts MsgBox oAccount Next oAccount End Sub