Account.AccountType (Outlook)

Returns a constant in the OlAccountType enumeration that indicates the type of the Account. Possible return values are olEas - An account that uses Exchange ActiveSync (EAS) on mobile devices, olExchange - An Exchange account, olGoogle, olHttp - An HTTP account, olImap - An IMAP account, olOtherAccount - Other or unknown account, olPop3 - A POP3 account.

Dim oatAccountType As OlAccountType
oatAccountType = Session.Accounts(1).AccountType