10 August 2011

Test SMTP relay script

When setting up an anonymous SMTP server or when you occasionally need to test certain parameters it is handy to have a script to streamline the process.

The script below will prompt for all the relevant fields:

  • FROM email address
  • TO email address
  • Subject
  • Body
  • SMTP server address

It is also quite simple to modify should you want to keep some of the fields static / edit the default values.

Save the script below as a .vbs file.

Set objEmail = CreateObject("CDO.Message")

objEmail.From = Inputbox("Spefify the FROM: address","VB SMTP","testfrom@mail.com")
objEmail.To = Inputbox("Spefify the TO: address","VB SMTP","testto@mail.com")
objEmail.Subject = Inputbox("Spefify the SUBJECT: address","VB SMTP","Message Subject")
objEmail.Textbody = Inputbox("Spefify the MESSAGE BODY:","VB SMTP","This is the email body")
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = Inputbox("Spefify the SMTP server: name or IP address","VB SMTP") 
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

No comments:

Post a Comment