2011-10-06

   Set objEmail = CreateObject("CDO.Message")

   objEmail.From = "[email protected]"
   objEmail.To = "[email protected]"
   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