Dim SMTPServer
Dim SMTPPort
Dim Username
Dim Password
Dim SSL
Dim Mail_to
Dim Mail_from
Dim Subject
Dim Body
Dim File

On Error Resume Next

SMTPServer = WScript.Arguments(0)
SMTPPort = WScript.Arguments(1)
Username = WScript.Arguments(2)
Password = WScript.Arguments(3)
SSL = WScript.Arguments(4)
Mail_to = WScript.Arguments(5)
Mail_from = WScript.Arguments(6)
Subject = WScript.Arguments(7)
Body= WScript.Arguments(8)
File = WScript.Arguments(9)

Set imsg = createobject("cdo.message")
Set iconf = createobject("cdo.configuration")
Set Flds = iConf.Fields

If UCase (Username) <> "NULL" Then
     With Flds
       .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = SSL
       .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
       .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = Username
       .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Password
       .Update
     End With
End If

    With Flds
       .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
       .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTPServer
       .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = SMTPPort
       .Update
    End With
     
With iMsg
    Set .Configuration = iConf
       .To = Mail_to
       .From = Mail_from
       .Subject = Subject

     IF Body <> "NULL" Then
       IF FileExists(Body) Then
         .HTMLBody = readFile(Body)
       Else
         .TextBody = Body
       END IF
     END IF

    If UCase (File) <> "NULL" Then
        .addattachment (File)
    END If
End With

imsg.fields.update
imsg.send

set imsg = nothing
set iconf = nothing

Function FileExists(sPath)
  Set fso = CreateObject("Scripting.FileSystemObject")
  If fso.FileExists(sPath) Then
    FileExists=CBool(1)
  Else
    FileExists=CBool(0)
  End If
End Function

Function readFile(sPath) 
    const forReading = 1 
    dim objFSO, objFile, sData 
    set objFSO = createobject("Scripting.FileSystemObject") 
    set objFile = objFSO.openTextFile(sPath, ForReading) 
    sData = "" 
    do until objFile.atEndOfStream 
        sData = sData & objFile.readLine & vbCrLf 
    loop 
    objFile.close 
    set objFile = nothing 
    set objFSO = nothing 
    readFile = sData 
end function