Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > 技术类

调用outlook生成并发送邮件的代码

时 间:2009-05-12 08:40:51
作 者:UMVSoft整理   ID:1445  城市:上海
摘 要:调用outlook生成并发送邮件的代码
正 文:


代码说明:
本代码可以在安装了outlook(2000以上版本的)的机器上运行。不过outlook xp 以上
的版本由于出于防止邮件病毒的目的,对发送邮件进行监控,运用本程序每发送一封
email都需要用户确认,会有点麻烦,但是还是出于安全的角度考虑。

可以将这段代码嵌入access的模块、excel的宏中运行。


程序要求:

需要引用"microsoft outlook x.x library"


代码:

sub email_send()

Dim olkapp As Outlook.Application
Dim newmail As MailItem
Dim emailadd,para as String

Set olkapp = CreateObject("outlook.application")
Set newmail = olkapp.CreateItem(olMailItem)

'邮件正文内容
para = para+"祝新春快乐,并友情提醒注意新的邮件病毒。"

'收件人的email地址,这里没有输入内容。
emailadd = ""


With newmail

.To = emailadd
.Subject = "新春快乐" ' 邮件的主题
.Importance = olImportanceHigh '邮件的为重要等级
.Body = para '将邮件正文内容指定para变量内容

.Send '发送

End With


end sub



Access软件网官方交流QQ群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助