Send Mail Scripts VBS

   Set objEmail = CreateObject("CDO.Message")

   objEmail.From = "mail_from@test1.xxx"
   objEmail.To = "mail_to@test2.yyy"
   objEmail.Subject = "Test Mail"
   objEmail.Textbody = "Test Message Test Message Test Message "
   
   objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

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

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

   objEmail.Configuration.Fields.Update
   objEmail.Send