Posts

Showing posts from February, 2018

Windows - Sent e-mail using vbs

Sometimes I need to test my mail server. To do this I use this script below, just change to your address and server. Just copy and paste in a .vbs file. Set objEmail = CreateObject("CDO.Message") objEmail.From = " youremail@mail.com " objEmail.Subject = " Subject " objEmail.To = " youremail@mail.com " objEmail.Textbody = Body objEmail.Configuration.Fields.Item _   (" http://schemas.microsoft.com/cdo/configuration/sendusing ") = 2 objEmail.Configuration.Fields.Item _   (" http://schemas.microsoft.com/cdo/configuration/smtpserver ") = _ " mailserver.yourdomain.com " objEmail.Configuration.Fields.Item _   (" http://schemas.microsoft.com/cdo/configuration/smtpserverport ") = 25 objEmail.Configuration.Fields.Update objEmail.Configuration.Fields.Update objEmail.Send