<<< 返回 access911.net 编程静态资料库索引页

发送邮件(三):用 OFFICE 内置方法发送邮件

 

作者:cg1  摘自:access911.net  录入:cg1  时间:2005-2-13  浏览人次:3608


专题地址:http://access911.net/fixhtm/72FAB31E14DCE6F3.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:发送邮件(三):用 OFFICE 内置方法发送邮件《其他》

 


发送邮件(三):用 OFFICE 内置方法发送邮件

比如使用 ACCESS 中的 Docmd.SendObject 发送邮件
以及使用 EXCEL 中的 ActiveSheet.MailEnvelope 发送邮件
以及建立 OUTLOOK.APPLICATION 用 MailItem 发送邮件

优点:无需安装额外组件
缺点:在发送时有提示,在没有数字签证的时候非常麻烦,不适用于批量发送

关于 SendObject 和 MailEnvelope 的方法请参考相关帮助
举例,要将报表以 SNP 格式,并且作为附件发送邮件给某人,代码如下:
DoCmd.SendObject acSendReport, "报表名称", acFormatSNP, "GetEmail@access911.net", "", "", "标题", "内容"


关于建立 OUTLOOK.APPLICATION 的方法代码如下:

Sub SendMail_Outlook()
    On Error Resume Next
    Dim appOut As New Outlook.Application
    Dim objMailItem As Outlook.MailItem
    Set objMailIt.....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/72FAB31E14DCE6F3.htm

 


上一篇:发送邮件(二):用 CDO 发送邮件

下一篇:EXCEL 中如何进行数字签名

2017年2月22日生成静态资料