关于报表生成PDF并发送EMAIL - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于报表生成PDF并发送EMAIL

共有2263人关注过本帖树形打印复制链接主题：关于报表生成PDF并发送EMAIL

hnguang

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：二尾狐帖子：521 积分：4714 威望：0 精华：0 注册：2016/12/17 11:51:00

关于报表生成PDF并发送EMAIL 发帖心情

Post By：2017/4/18 10:23:00 [只看该作者]

现在我已经报表生成出来并保存为PDF文件,请问要怎样才能调用邮件客户端并自动发送

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/4/18 10:47:00 [只看该作者]

hnguang

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：二尾狐帖子：521 积分：4714 威望：0 精华：0 注册：2016/12/17 11:51:00

Post By：2017/4/18 10:49:00 [只看该作者]

已测试OK 代码如下:

Dim o As New Outlook.Application

Dim msg As Outlook.MailItem

msg = o.CreateItem(Outlook.OlItemType.olMailItem)

msg.Recipients.Add(strgysemail) '收件人郵件地址

msg.Subject = "采购单" '郵件主旨

msg.Body = "" '郵件內容

msg.Attachments.Add(fl) '添加採購訂單pdf件為附件

msg.Send()

主题：关于报表生成PDF并发送EMAIL