调用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群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
学习心得
最新文章
- ACCESS精华集锦资料.CHM(04.25)
- Access VBA语句If Me...(04.24)
- 【Access修改记录示例】编辑选...(04.22)
- 【Access表名称命名建议】将A...(04.20)
- Access学习笔记--用Acce...(04.19)
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)
- 【Access模块示例】通过模块代...(04.15)
- Access查询里面分组合计功能添...(04.13)
- 【Access删除查询】删除数字最...(04.12)