Excel VBA高级编程:用VBA发电子邮件的代码

2015-04-13 14:00 阅读 170 次 评论关闭

Sub EMAIL()
Dim cm As Variant
Set cm = CreateObject("CDO.Message") '创建对象
cm.From = "daxuewen8@163.com" '设置发信人的邮箱
cm.To = "daxuewen8@126.com" '设置收信人的邮箱
cm.Subject = "主题:邮件发送试验" '设定邮件的主题
'cm.TextBody = "信息中心/" '使用文本格式发送邮件

cm.HtmlBody = "邮件发送试验^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^" '使用html格式发送邮件

'cm.AddAttachment Server.MapPath("test.zip")
'发送附件test.zip。

stUl = "http://schemas.microsoft.com/cdo/configuration/" '微软服务器网址
With cm.Configuration.Fields
.Item(stUl & "smtpserver") = "smtp.163.com"         'SMTP服务器地址
.Item(stUl & "smtpserverport") = 25                  'SMTP服务器端口
.Item(stUl & "sendusing") = 2                        '发送端口
.Item(stUl & "smtpauthenticate") = 1                 '
.Item(stUl & "sendusername") = "daxuewen8"                '发送方邮箱名称
.Item(stUl & "sendpassword") = "*************"                  '发送方邮箱密码
.Update
End With
cm.Send '最后当然是执行发送了

Set cm = Nothing
'发送成功后即时释放对象
End Sub

版权声明:本文著作权归原作者所有,欢迎分享本文,谢谢支持!
转载请注明:Excel VBA高级编程:用VBA发电子邮件的代码 | 猎微网

评论已关闭!