Access爱好者--
所属分类: OLE自动化 作者: LoadHigh 更新日期:2004-1-30 10:32:07 阅读次数:698

调用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

--
Outlook 版 、Access & Sql server 版 版主

--------------------------------------------------------------------------------
相关文章

什么是 API? 2004-1-28 15:01:53
如何建立简单的超级连接?(ShellExecute) 2003-11-6 20:39:18
对 Microsoft Office 命令栏进行更多编程 2003-10-17 19:51:34
MS Jet SQL for Access 2000中级篇 (III) 2003-10-17 18:51:47
MS Jet SQL for Access 2000中级篇 (II) 2003-10-17 18:51:01
数据库规范化技巧 2003-10-10 10:38:06
启动控制面板命令大全 2003-10-10 10:21:08


系统优化
控件使用
数据库设计
数据库连接
系统安全
OLE自动化
常见问题
实用代码
属性详解
网络相关
实用API
经验分享
精选教程
字符处理
ADP相关



文章搜索



制作维护:李寻欢     Mail:[email protected]

关于本站 -- 网站服务 -- 版权条款 -- 联系方法 -- 网站帮助
Access爱好者版权所有 Copyright 2003-2005 All Rights Reserved 未经许可不得盗链