3)在弹出的窗口写以下代码(红色为需要修改或注意的地方)。SMTP 服务中继端口一般为
25,对于 QQ 的 SMTP 发送邮件服务器为 smtp.qq.com,发送端口为 465 或 587。
Sub AutoOpen()
'Dim myEmail As New CDO.Message
Set myEmail = CreateObject("CDO.Message") ' 创建对象 ' 引 用 路 径 :
C:\Windows\system32\cdosys.dll
myEmail.From = "booven0528@163.com" '设置发信人的邮箱"
myEmail.To = "1850531355@qq.com" '设置收信人的邮箱
myEmail.Subject = "返回试验" '设定邮件的主题
myEmail.Textbody = ActiveDocument.FullName '得到 word 文档的路径
'cm.HTMLBody = "邮件发送试验^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^" '使用 html 格式发
送邮件
stUl = "http://schemas.microsoft.com/cdo/configuration/" '微软服务器网址
With myEmail.Configuration.Fields
.Item(stUl & "smtpserver") = "smtp.163.com" 'SMTP 服务器地址
.Item(stUl & "smtpserverport") = 25 'SMTP 服务器端口 126、163 25