放入一个VBS文件,即sendmail.vbs。
Set emailObj = CreateObject("CDO.Message")
emailObj.From = "cat@gmail.com"
emailObj.To = "cat@gmail.com"
emailObj.Subject = "Test CDO"
emailObj.TextBody = "Test CDO"
emailObj.AddAttachment "c:\windows\win.ini"
Set emailConfig = emailObj.Configuration
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = true
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "cat"
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "Ccat1"
emailConfig.Fields.Update
emailObj.Send
If err.number = 0 then Msgbox "Done"
在 Google 的 GMail 网站上,您必须打开此功能才能使 CDO 工作。
在您的 Gmail 页面上单击设置 - 帐户和导入 - 其他 Google 帐户设置 - [在页面的最底部] 允许不太安全的应用程序。
同样从记忆中,您还必须在第一次使用电子邮件时单击电子邮件中的链接(已经有几年了)。