|
Dim Email As Object
NameS = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = CreateObject("CDO.Message")
Email.From = "****@qq.com" '//你自己的油箱号码
Email.To = "" ' // 要发的人
Email.Subject = "" '//相当于邮件里的标题
Email.Textbody = "" '//相当于邮件里的内容
Email.Configuration.Fields.Item(NameS & "sendusing") = 2
Email.Configuration.Fields.Item(NameS & "smtpserver") = "smtp.qq.com" '// 服务器
Email.Configuration.Fields.Item(NameS & "smtpserverport") = 25 '//端口号
Email.Configuration.Fields.Item(NameS & "smtpauthenticate") = 1
Email.Configuration.Fields.Item(NameS & "sendusername") = "**" '//油箱号码@前面的名字
Email.Configuration.Fields.Item(NameS & "sendpassword") = "**" '//你油箱的密码
Email.Configuration.Fields.Update
Email.Send
| |
本文作者:aawolf 来源:http://www.cnblogs.com/aawolf/archive/2008/05/20/1
CIO之家 www.ciozj.com 微信公众号:imciow 版权声明:CIO之家尊重行业规范，每篇文章都注明有明确的作者和来源；CIO之家的原创文章，请转载时务必注明文章作者和来源；
延伸阅读