VBScript 发送电子邮件

实现用VBScript发送电子邮件很简单。下边用到的CDO是微软协作数据对象库，用于实现到自定义应用程序的消息传送和协作功能。

我们利用微软CDO对象用以下代码实现使用SMTP协议发送电子邮件：

Set objEmail = CreateObject("CDO.Message")

Call SendMail()

Sub SendMail
objEmail.From = "发件人地址" ‘发件人
objEmail.To = "收件人地址" ‘收件人
objEmail.Subject = "电子邮件主题" ‘电子邮件主题主题
objEmail.Textbody = "电子邮件内容" ‘电子邮件内容
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "SMTP服务器地址" ‘SMTP服务器地址
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "用户名" ‘用户名
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "密码" ‘密码
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 ‘明文验证
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ‘SMTP端口号
objEmail.Configuration.Fields.Update
objEmail.Send
End Sub

当然，如果你的SMTP服务器可以匿名，那么用户名、密码、明文验证都可以省略了，估计现在除了自己搭服务器，没有哪个会让匿名。如果你看谁不爽可以尝试用这个发垃圾邮件。