Choose which Outlook account to send email

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