View Single Post
 
Old 08-25-2019, 11:21 AM
NoSparks NoSparks is offline Windows 7 64bit Office 2010 64bit
Excel Hobbyist
 
Join Date: Nov 2013
Location: British Columbia, Canada
Posts: 842
NoSparks is a glorious beacon of lightNoSparks is a glorious beacon of lightNoSparks is a glorious beacon of lightNoSparks is a glorious beacon of lightNoSparks is a glorious beacon of light
Default

You can't get around the 255 character limit of the hyperlink,
but you can change your approach and use the Worksheet_Followhyperlink event to call a macro that will shell out to Thunderbird.

I put some email addresses on rows 10 to 30 and copied your existing other stuff.
Ran the AddHyperlink sub to put in the hyperlinks.
Use the Worksheet_Followhyperlink event to get the row for the info and to call the SendEmail macro.

Code to shell to Thunderbird found here:
How can I automatically send email from Thunderbird with Excel VBA? - Stack Overflow

Hyperlink to run macro found here:
Link Hyperlink to Excel Macro — Excel Dashboards VBA and more

Doc to add hyperlink using code found here:
Hyperlinks.Add method (Excel) | Microsoft Docs

Hope this helps.
Attached Files
File Type: xlsm Email_using_Thunderbird.xlsm (18.4 KB, 619 views)
Reply With Quote