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