Microsofft Windows "Send to" Shortcut with Attachments
Hello,
I have been an Outlook user fro more than 20 years Now gmail will not accept my 'Less secure App" anymore!
I have Thunderbird configured the way I like And I like how it works, Thank you
However I miss a very useful shortcut I used with Outlook in the past
I could highlight files, and use the "Send to" "Mail Recipient" Shortcut... To opened a New Email, and attach the files to an automatically, with a list of the files in the Subject Line Saved a lot of steps (time)!
The trick was accomplished using the attached script
Please tell me if anyone has created something to have the same feature using Thunderbird
Thank you, Richard
All Replies (3)
The following link might be helpful (but I have not tested the methods it mentions): https://www.reddit.com/r/Thunderbird/comments/1jvx4mj/comment/mme60au
All that is necessary is to set TB as the default mail app in Windows Settings, and also in TB Settings/General, System Integration, Check Now...
Did not work... Still opens in Outlook I think the Visual Basic script needs tweaking
The CreateObject command need a path to the Thunderbird Application I tried several variants, no Luck (Thunderbird.Application) (Mozilla Thunderbird.Application)
Any suggestions would be applriciated
Thank you, Richard
The script below. runs free standing with a .vbs File Extension
Option Explicit Dim objArgs, OutApp, oNameSpace, oInbox, oEmailItem, olMailItem Dim a, oAttachments, subjectStr, olFormatHTML olMailItem = 0 olFormatHTML = 2 Set objArgs = WScript.Arguments 'gets paths of selected files Set OutApp = CreateObject("Outlook.Application") 'opens Outlook Set oEmailItem = OutApp.CreateItem(olMailItem) 'opens new email For a = 0 to objArgs.Count - 1 Set oAttachments = oEmailItem.Attachments.Add(objArgs(a)) subjectStr = subjectStr & Right(objArgs(a),Len(objArgs(a))-(InStrRev(objArgs(a),"\"))) & ", " 'recreates the default Subject e.g. Emailing: file1.doc, file2.xls Next If subjectStr = "" then subjectStr = "No Subject " oEmailItem.Subject = "Emailing: " & Left(subjectStr, (Len(subjectStr)-2)) oEmailItem.BodyFormat = olFormatHTML oEmailItem.Display