'Original script from http://forums.mozillazine.org/viewtopic.php?f=39&t=2803277
Option Explicit
Dim objShell
Set objShell = CreateObject("WScript.Shell" )
Dim argumentsArray
Dim argumentsArrayItem
Dim argumentsString
'Transform Wscript.Arguments into a proper ArrayList so we can use the Join function later on
Set argumentsArray = CreateObject("System.Collections.ArrayList" )
For Each argumentsArrayItem In Wscript.Arguments: argumentsArray.Add argumentsArrayItem: Next
'Multiple attachments have to be separated with a ,
'see http://kb.mozillazine.org/Command_line_arguments_%28Thunderbird%29
argumentsString = Join(argumentsArray.ToArray, "," )
'the options passed to the -compose arguments need to be enclosed with double quotes (hence the & """" & )
objShell.Exec("%ProgramFiles(X86)%\Mozilla Thunderbird\thunderbird.exe -compose " & """" & "to='machin@example.com',cc='machin2@example.com,machin3@example.com',subject='alpha beta',body='gamma delta epsilon',attachment='" & argumentsString & "'" & """" )
Set objShell = Nothing
|