Option Explicit
Dim objArgs, OutApp, oNameSpace, oInbox, oEmailItem, olMailItem
Dim a, oAttachments, subjectStr, olFormatHTML
olMailItem = 0
olFormatHTML = 2
Set objArgs = WScript.Arguments 
Set OutApp = CreateObject("Outlook.Application") 

Set oNamespace = OutApp.GetNamespace("MAPI")
Set oEmailItem = OutApp.CreateItem(olMailItem) 
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),"\"))) & ", " 
Next
If subjectStr = "" then subjectStr = "Brak Tematu  "
oEmailItem.Subject = "Załączono: " & Left(subjectStr, (Len(subjectStr)-2))
oEmailItem.BodyFormat = olFormatHTML
oEmailItem.Display