找回密码
 加入
搜索
查看: 2700|回复: 3

[转贴] 用VBA发电子邮件的代码

[复制链接]
发表于 2011-12-7 01:42:48 | 显示全部楼层 |阅读模式
用VBA发电子邮件的代码


Sub EMAIL()
Dim cm As Variant
Set cm = CreateObject("CDO.Message") '创建对象
cm.From = "changxi@bdyz.net" '设置发信人的邮箱
cm.To = "tj_changxi@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.bdyz.net"         'SMTP服务器地址
    .Item(stUl & "smtpserverport") = 25                  'SMTP服务器端口
    .Item(stUl & "sendusing") = 2                        '发送端口
    .Item(stUl & "smtpauthenticate") = 1                 '
    .Item(stUl & "sendusername") = "changxi"                '发送方邮箱名称
    .Item(stUl & "sendpassword") = "*************"                  '发送方邮箱密码
    .Update
End With


cm.Send '最后当然是执行发送了

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

评分

参与人数 1金钱 +20 收起 理由
fbi911 + 20

查看全部评分

发表于 2011-12-7 11:08:43 | 显示全部楼层
支持一个,...........
发表于 2011-12-8 20:38:47 | 显示全部楼层
收藏,以后用得着
发表于 2011-12-9 08:55:16 | 显示全部楼层
学习一下,论坛越发的好
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-12-23 08:58 , Processed in 0.076093 second(s), 20 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表