Set args = Wscript.Arguments

deliveryTo = args.Item(0) 'previsto indirizzo destinatario
msgbox deliveryTo
mailTitle = args.Item(1) 'previsto oggetto mail
msgbox mailTitle
mailBody = args.Item(2) 'previsto corpo mail
msgbox mailBody

Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory. 
Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network). 

Const cdoAnonymous = 0 'Do not authenticate
Const cdoBasic = 1 'basic (clear-text) authentication
Const cdoNTLM = 2 'NTLM

Set objMessage = CreateObject("CDO.Message") 
objMessage.Subject = mailTitle 
objMessage.From = """name sender"" <emailaddress@domainname.com>" 
objMessage.To = deliveryTo
objMessage.TextBody = mailBody

'==This section provides the configuration information for the remote SMTP server.

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 

'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.servername.com"

'Type of authentication, NONE, Basic (Base64 encoded), NTLM
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic

'Your UserID on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "emailaddress@domainname.com"

'Your password on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"

'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 

'Use SSL for the connection (False or True)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

'Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 15

objMessage.Configuration.Fields.Update

'==End remote SMTP server configuration section==

objMessage.Send

if err.number <> 0 then
	msgbox err.description
	On Error Resume Next

	Set objShell = CreateObject("Wscript.Shell")
	errTxtFile = objShell.SpecialFolders("C:\LogErr.txt")
	Set objFSO = WScript.CreateObject("Scripting.Filesystemobject")
	Set FSO_Handle = objFSO.OpenTextFile (errTxtFile,8,True)

    FSO_Handle.WriteLine Now & " - Error : " & Err.Number & ": " & Err.Description
end if