|
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
| |