用cdo发邮件，指定smtpusessl为true就行了
Sub CoDMail(MailCode,Title,Memo)
NameSpace = "http://schemas.microsoft.com/cdo/configuration/" '这个不能更改
set Email = CreateObject("CDO.Message")
Email.From = "guilinbaobao@vip.qq.com" '你自己的地址
Email.To = MailCode '收信人的地址
Email.Subject = Title '邮件的标题
Email.TEXTBody = Memo '邮件的内容
with Email.Configuration.Fields
.Item(NameSpace&"smtpauthenticate") = 1 'SMTP验证,一般都是1,代表普通
.Item(NameSpace&"sendusername") = "xxxxx" '自己邮箱的用户名
.Item(NameSpace&"sendpassword") = "xxxxxx" '密码
''''''''''''''
.Item(NameSpace&"smtpserverport") = 465 'SMTP服务器（端口25）阿里云封了25，需要用ssl端口465
.Item(NameSpace&"smtpusessl") = "true" 'SMTP服务器（端口25）阿里云封了25，需要用ssl端口465
''''''''''''''
.Item(NameSpace&"sendusing") = 2 '1 代表使用 local smtp, 2 为外部 smtp
.Item(NameSpace&"smtpserver") = "xxxxxxxxxx" '邮箱服务器域名地址
.Update
end with
Email.Send
End Sub
注意修改红色的为你自己的邮箱配置 本文来自 https://bbs.csdn.net/topics/392295023
|
