OFFICE学习资料 | OFFICE资源下载 | OFFICE知识问答      
设为首页
加入收藏
联系站长
  当前位置:Office学院 >> Outlook >> Outlook应用实例 >> 正文

我要提问
调用outlook生成并发送邮件的代码
[2006年10月27日]  点击数: 【字体: 】【双击滚屏
 
代码说明:
本代码可以在安装了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

上一篇:将邮件中的附件保存至硬盘
下一篇:使用 Outlook 2003 提高招聘过程的效率
最新文章
调用outlook生成并发送邮件的代码10/27
将邮件中的附件保存至硬盘10/27
使用 Outlook 2003 提高招聘过程的效率10/27
热门文章
相关文章
利用EXCEL进行学生成绩管理--快速
用EXCEL轻松的处理学生成绩
利用EXCEL进行学生成绩管理
设置Outlook接收附件的文件类型
介绍一下Outlook 2003有哪些强大
使用Outlook进行会议安排设置
用Word“邮件合并”生成通知单
不让Office XP发送错误报告
office知识问答 | office资源下载
备案许可证号: 津ICP备06003561号
版权所有:Office学院 www.officeXY.com
OFFICE学院致力于成就华人社区最受欢迎的office办公软件学习园地;为大家提供word、excel、access、FrontPage、PowerPoint等Office各个系列产品的最全的教程、用法、技巧、方案;并竭力打造最方便的问题解答系统