option explicit
 
'Parameters: 
'  /to:  to address
'  /from:  from address
'  /text:  mail format=text
'  /html:  mail format=html
'  /body:  file
'  /sub:  subject
'

dim NamedArgs,oEmail, sTo,sFrom,sText,sHtml,sBody,sSub, objfso, objfile, sMessage
 
if wscript.arguments.count < 4 then 
	'show usage options
	usage
else
 Set NamedArgs = WScript.Arguments.Named
 sText=false
 sHtml=false
 
 'get parameters
 sTo = NamedArgs.Item("to")
 sFrom = NamedArgs.Item("from")
 sText = NamedArgs.Item("text")
 if(NamedArgs.Exists("text")) then sText=true end if
 if(NamedArgs.Exists("html")) then sHtml=true end if
 sBody = NamedArgs.Item("body")
 sSub = NamedArgs.Item("sub")
 
 'create file system object
 set objfso = CreateObject("Scripting.FileSystemObject")
 
 if ((sText="true" and sHtml="true") or ( sText="false" and sHtml="false" ))  then 
  wscript.echo "/text and /html are mutually exclusive options"
  usage
 elseif (objfso.FileExists(sBody)= false) then 
  wscript.echo "file : [" & sBody & "] does not exist or there is some access issue."
  usage()
 else
  Set objfile = objfso.OpenTextFile(sBody, 1)
 
 if (objFile.AtEndOfStream = false) then
  'read file content
  sMessage=objFile.ReadAll()
 end if
 objFile.close
 
 'create mail object
 set oEmail = CreateObject("CDO.Message")
 oEmail.From = sFrom
 oEmail.To = sTo
 oEmail.Subject = sSub
 if(sHtml=true) then 	
  oEmail.HTMLbody = sMessage
 else 
  oEmail.Textbody = sMessage
 end if
 
 oEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
 oEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "your-smtp-server-name"
 oEmail.Configuration.Fields.Update
 oEmail.Send
 end if
end if
 
 
function usage
 wscript.echo ""
 wscript.echo " ------ vbs sendmail ------ "
 wscript.echo "/to:      to address"
 wscript.echo "/from:    from address"
 wscript.echo "/text:    mail format=text"
 wscript.echo "/html:    mail format=html"
 wscript.echo "/body:    file"
 wscript.echo "/sub:     subject"
 wscript.echo ""
 wscript.echo "- Example :"
 wscript.echo ""
 wscript.echo " >sendmail /to:navket@my-domain.com /from:my-server@my-domain.com.com /text /body:c:\some\log-file.txt /sub:""JOB Results"" ! "
 wscript.echo ""
end function