I tried to fully uninstall and reinstall Thunderbird but it does not even restore the link in the SendTo folder of Windows
Sendto function in Windows 7 broken again
- hhgygy
- Posts: 26
- Joined: January 23rd, 2007, 4:31 am
- Location: Budapest, Hungary
Sendto function in Windows 7 broken again
Last edited by hhgygy on October 2nd, 2017, 7:49 am, edited 2 times in total.
- hhgygy
- Posts: 26
- Joined: January 23rd, 2007, 4:31 am
- Location: Budapest, Hungary
Re: Sendto function in Windows 7 broken again
Can someone help me please?hhgygy wrote:Suddenly, my sendto function in Windows 7 does not work again with Thunderbird.
So far I created a new link in the right SendTo folder and it works BUT only for one single file.
I.e. if I select two or more files (in File Manager or in Total Commander) and want to send them by mail, only the first one will be attached.
I am using this command line option:
-compose "attachment='file://%1'"
(This bug is arising on my W7 system from time to time but not frequently enough to make me remember how to correct it)
-
- Posts: 6436
- Joined: February 3rd, 2009, 6:29 pm
Re: Sendto function in Windows 7 broken again
I got it working with Thunderbird 52 and Windows Explorer on Windows 7.
* C:\Users\%USERNAME%\AppData\Roaming\Microsoft\Windows\SendTo\Thunderbird.vbs
Customize the Send To Menu in Windows 10, 8, 7, or Vista
https://www.howtogeek.com/howto/windows ... d-to-menu/
VBScript
http://en.wikipedia.org/wiki/VBScript
An A-Z Index of Windows VBScript commands
http://ss64.com/vb/
Command line arguments
http://kb.mozillazine.org/Command_line_ ... hunderbird
Compose arguments e.g. args.subject
http://dxr.mozilla.org/comm-esr52/sourc ... ommands.js
* C:\Users\%USERNAME%\AppData\Roaming\Microsoft\Windows\SendTo\Thunderbird.vbs
Code: Select all
Option Explicit
ReDim arrArguments(WScript.Arguments.Count - 1)
Dim i
For i = 0 To WScript.Arguments.Count - 1
arrArguments(i) = WScript.Arguments(i)
Next
Dim strAttachment
strAttachment = Join(arrArguments, ",")
Dim objShell
Set objShell = CreateObject("WScript.Shell")
objShell.Exec("C:\Program Files\Mozilla Thunderbird\thunderbird.exe -compose" & _
" preselectid='id1'" & _
",from=''" & _
",to='foo bar <foobar@invalid.com>'" & _
",cc=''" & _
",bcc=''" & _
",newsgroups=''" & _
",newshost=''" & _
",subject='alpha beta'" & _
",message=''" & _
",body='gamma delta epsilon'" & _
",attachment='" & strAttachment & "'" & _
",bodyislink='false'" & _
",type='0'" & _
",format='0'" & _
",originalMsgURI=''" & _
"")
Set objShell = Nothing
https://www.howtogeek.com/howto/windows ... d-to-menu/
VBScript
http://en.wikipedia.org/wiki/VBScript
An A-Z Index of Windows VBScript commands
http://ss64.com/vb/
Command line arguments
http://kb.mozillazine.org/Command_line_ ... hunderbird
Compose arguments e.g. args.subject
http://dxr.mozilla.org/comm-esr52/sourc ... ommands.js