Choose which Outlook account to send email

[Ehab1511]

Hi,

Please can you help to handle attach macro to let me choose which account will be used to send email as I have two in my PC.

I try to updated attached macro by below code but it is not working.

Dim Account As Outlook.Account

For Each Account In objOutlook.Session.Accounts

    'Debug.Print Account.DisplayName
    If Account.DisplayName = "Insert account name" Then
    
        objOutlookMsg.SendUsingAccount = Account
    
    End If
Next

Thanks;
Ehab

Please read our rules. Code tags are required. --Moderator

[6StringJazzer]

What does "not working" mean?

One problem I see is that the code in your file is using late binding but the code in your post is using early binding. Try this:

Dim Account As Object ' Outlook.Account

[Ehab1511]

Thank you so much for this code. it helped me so much.

Thanks;
Ehab

[AliGW]

This request has been cross-posted on at least one other forum. No further help is to be offered until you have provided cross-post links as per the forum rules.

[AliGW]

Administrative Note:

Sorry, but your post does not comply with Rule #6 of our Forum RULES:

Please do not ignore requests by Administrators, Moderators and senior forum members regarding forum rules.

If you are unclear about the request or instruction, then send a private message to them asking for clarification.

All Participants:

Please do not post a reply in a thread where a Moderator or Administrator has requested an action that has not yet been complied with (e.g. title change, code tags requested, etc.). Thanks.