Using Gmail SMTP send email by VBS


Username = "Yourname"
Passwd = "Password"
AttachedFile = "filename"
SMTPServer = "smtp.gmail.com"
Set Email = CreateObject("CDO.Message")
Email.From = "yourname@gmail.com"
Email.To = "recivername@gmail.com"
Email.Subject = "Subject"
Email.Textbody = "Content"
Email.Addattachment AttachedFile
Email.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Email.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTPServer
Email.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
Email.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
Email.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = true
Email.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = Username
Email.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Passwd
Email.Configuration.Fields.Update
Email.Send
set Email=nothing