Using the Outlook Object

[crowegreg]

Hello,

I've previously written Access VBA to send an email through Outlook. I'm now on an exchange server, and I can't figure out how to get my Access VBA to recognize my multiple mailbox accounts within Exchange, and set the account I'd like the emails to be sent from.

Here's what I've tried:

            Dim olApp As Outlook.Application
            Dim olOutlookMsg As Outlook.MailItem
            Dim olAccount As Outlook.Account

            For Each olAccount In Outlook.Application.Session.Accounts

                If olAccount = "PMA@cthol.net" Then
            
                    Set olApp = GetObject(, "Outlook.Application")
                    'Create the message.
                    Set olOutlookMsg = olApp.CreateItem(olMailItem)

                    With olOutlookMsg
                        .To = strEmailAddress
                        .SendUsingAccount = olAccount
                        .Subject = "Details"
                        .HTMLBody = strBody
                        .Send       'Go ahead and send right away
                    End With

                End If
            Next

            Set olOutlookMsg = Nothing
            Set olApp = Nothing
            Set olAccount = Nothing

The code above produces no error message. When I execute the code, the for next loop starts with my personal account "gc@cthol.net", goes to the next record, which displays "Live Meeting Transport", then it exits the for next loop.
I've looked into using either the "Store" or "Stores" object(s), but I can't figure anything out.


Thank you in advance!!

[ItsMe]

Maybe something like this would be helpful.

Dim oApp As New Outlook.Application
Dim oNamespace As Outlook.NameSpace
Dim oAccounts As Outlook.Accounts
Dim oAccount As Outlook.account
Dim intCount As Integer
intCount = 1
    
Set oNamespace = oApp.Session
Set oAccounts = oNamespace.Accounts
    
    For Each oAccount In oAccounts
        Debug.Print oAccount.DisplayName
        Debug.Print oNamespace.Accounts.Item(intCount) & " is Item: " & intCount
        intCount = intCount + 1
    Next
    
Set oAccounts = Nothing
Set oNamespace = Nothing
Set oApp = Nothing

[crowegreg]

Thank you for the response.

I get the same results. The for loop only finds the two accounts I previously listed.

[ItsMe]

IIRC, if you use Outlook to connect to exchange AND create an account within Outlook, you will see it in the Accounts collection. I have a tested code snippet specific to Exchange. It is not on this computer, though. So, the code in my previous post is not tested with exchange. But, I don't think that matters.

I believe there are settings on Exchange that allow or disallow keeping copies of emails on the local client. However, this memory is vague and distant.

Are you using Exchange Online? Maybe you can log in and see what you can see from the Admin panel.

[crowegreg]

Hello,
Not using Exchange online. I don't have rights to the Admin panel. I'll try and connect with my Exchange admin to see if their is a setting that can be changed.