Közzéteszem, hátha másvalaki is hasznát veszi:
'Filename MakeMail.VBS, to create an Outlook message If Wscript.Arguments.Count = 0 Then msgbox "Használat:" & chr(10) & "MakeMail.VBS /Címzett /Tárgy /Csatolmány /Cc" & _ chr(10) & chr(10) & "min. 1 paramétert meg kell adni",16, "MakeMail" 'For english users: ' msgbox "Usage:" & chr(10) & "MakeMail.VBS /Email Adress /Subject /Attachment /Cc" & _ ' chr(10) & chr(10) & "min. 1 parameter must be used",16, "MakeMail" WScript.Quit ElseIf Wscript.Arguments.Count = 1 then Recipient=right(Wscript.Arguments(0), len(Wscript.Arguments(0))-1) ElseIf Wscript.Arguments.Count = 2 then Recipient=right(Wscript.Arguments(0),len(Wscript.Arguments(0))-1) Subject=right(Wscript.Arguments(1),len(Wscript.Arguments(1))-1) ElseIf Wscript.Arguments.Count = 3 then Recipient=right(Wscript.Arguments(0),len(Wscript.Arguments(0))-1) Subject=right(Wscript.Arguments(1),len(Wscript.Arguments(1))-1) AddFile=right(Wscript.Arguments(2),len(Wscript.Arguments(2))-1) ElseIf Wscript.Arguments.Count = 4 then Recipient=right(Wscript.Arguments(0),len(Wscript.Arguments(0))-1) Subject=right(Wscript.Arguments(1),len(Wscript.Arguments(1))-1) AddFile=right(Wscript.Arguments(2),len(Wscript.Arguments(2))-1) CcTo=right(Wscript.Arguments(3),len(Wscript.Arguments(3))-1) End If Set objOL = CreateObject("Outlook.Application") Set objMail = objOL.CreateItem(0) With objMail If Wscript.Arguments.Count = 1 then .To = Recipient ElseIf Wscript.Arguments.Count = 2 then .To = Recipient .Subject = Subject ElseIf Wscript.Arguments.Count = 3 then .To = Recipient .Subject = Subject .Attachments.Add AddFile ElseIf Wscript.Arguments.Count = 4 then .To = Recipient .Subject = Subject .Attachments.Add AddFile .Cc = CcTo End if .Display End With WScript.Quit
A kódot el kell menteni mint MakeMail.VBS, és azt parancssorból meg lehet hívni 4 paraméterrel:
-Címzett e-mail címe
-Levél tárgya
-Csatolt fájl (teljes elérési úttal kell megadni)
-Másolatot kap
Ha Batch / CMD-ből van meghívva, a paramétereket 852-es kódlappal kell megadni.
A szkript létrehozza az üzenetet, de nem küldi el.