实现用VBScript发送电子邮件很简单。下边用到的CDO是微软协作数据对象库,用于实现到自定义应用程序的消息传送和协作功能。
我们利用微软CDO对象用以下代码实现使用SMTP协议发送电子邮件:
Set objEmail = CreateObject("CDO.Message")
SendMail()
>>>>>>>>>>>>>>>>>>>>>>>>>>>以下SendMail实现发送邮件功能<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
>>>>>>>>>>>>函数仅是功能演示,并没有定义入参,可以根据实现情况将函数中要用到的信息,采用参数传递进来<<<<<<<<<<<<
Function SendMail
objEmail.From = "发件人地址" '发件人
objEmail.To = "收件人地址" '收件人
objEmail.Subject = "电子邮件主题" '电子邮件主题主题
objEmail.Textbody = "电子邮件内容" '电子邮件内容 objEmail.AddAttachment("D:\test.xlsx")
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 set objEmail=nothing
End Function当然,如果你的SMTP服务器可以匿名,那么用户名、密码、明文验证都可以省略了。