My Online Training Hub

Learn Dashboards, Excel, Power BI, Power Query, Power Pivot

You are here: Home
Lost password?
sp_Search
Advanced Search|Last Search Results
Advanced Search
Forum Scope



Match



Forum Options



Minimum search word length is 3 characters - maximum search word length is 84 characters
sp_Search

Please confirm you want to mark all posts read

Mark all topics read

sp_MobileMenu Actions
Avatar

New/Updated Topics

Select Forum

sp_TopicIcon
Choose which Outlook account to send email
Avatar
Marsil Sarvis
Posts: 73
Level 0
October 19, 2020 - 12:51 am

1

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.

 

Thanks,

Marsil

sp_AnswersTopicSeeAnswer
Avatar
Philip Treacy
Posts: 1517
Level 10
October 19, 2020 - 12:21 pm

2

Hi Marsil,

Insert this snippet into your code after you've created objOutlookMsg

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

 

Insert the account name you want to use in place of the red text.  If your not sure of the account name, uncomment the green line and all account names will be printed to the Immediate Window.

Regards

Phil

sp_AnswersTopicAnswer
Avatar
Marsil Sarvis
Posts: 73
Level 0
October 20, 2020 - 6:35 am

3

Hi Phil,

I really appreciate your help and time

It works perfectly. You are amazing! Thank you so much!

Just need help please, can you help to add other column to write another Path for another file.

Please check attached macro.  "Red column"

Thanks;

Marsil

Avatar
Marsil Sarvis
Posts: 73
Level 0
October 22, 2020 - 8:50 am

4

Hi Phil,

It is ok now as I changed the macro to add many attached files, but I face an issue  to add below to select which Outlook account to send email.

please check attached file and I really appreciate your help and time to update the macro.

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;

Marsil

Avatar
Philip Treacy
Posts: 1517
Level 10
October 29, 2020 - 3:14 pm

5

Hi Marsil,

You insert in where I said to insert it in Reply #2 above.

Insert it after Set objOutlookMsg = objOutlook.CreateItem(0)

See attached.

Regards

Phil

Forum Timezone:
Australia/Brisbane
Most Users Ever Online: 245
Currently Online: RAQUEL ACION, Dana Friedt, Nada Perovic
Guest(s) 10

Devices in use: Desktop (8), Phone (5)

Forum Stats:
Groups: 3
Forums: 24
Topics: 6218
Posts: 27266
Member Stats:
Guest Posters: 49
Members: 31901
Moderators: 3
Admins: 4