Sendto function in Windows 7 broken again

User Help for Mozilla Thunderbird
Post Reply
User avatar
hhgygy
Posts: 26
Joined: January 23rd, 2007, 4:31 am
Location: Budapest, Hungary

Sendto function in Windows 7 broken again

Post by hhgygy »

I tried to fully uninstall and reinstall Thunderbird but it does not even restore the link in the SendTo folder of Windows
:-k
Last edited by hhgygy on October 2nd, 2017, 7:49 am, edited 2 times in total.
User avatar
hhgygy
Posts: 26
Joined: January 23rd, 2007, 4:31 am
Location: Budapest, Hungary

Re: Sendto function in Windows 7 broken again

Post by hhgygy »

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'"
Can someone help me please?

(This bug is arising on my W7 system from time to time but not frequently enough to make me remember how to correct it)
morat
Posts: 6427
Joined: February 3rd, 2009, 6:29 pm

Re: Sendto function in Windows 7 broken again

Post by morat »

I got it working with Thunderbird 52 and Windows Explorer on Windows 7.

* 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
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
Post Reply