使用 VBA 代码访问 2010 PDF、保存和通过电子邮件发送报告答案

【问题标题】：Access 2010 PDF, Save and Email a Report Using VBA Code使用 VBA 代码访问 2010 PDF、保存和通过电子邮件发送报告
【发布时间】：2020-07-05 21:42:49
【问题描述】：

我正在使用 Access 2010，发现“以 PDF 格式发送到电子邮件”命令必不可少。但是，我有一个问题，我已经向用户隐藏了主功能区，这意味着他们实际上无法点击该按钮。

谁能告诉我 VBA 代码可以让我通过 Gmail 保存文件并通过电子邮件发送基于给定唯一 ID 的个人报告？我很高兴用户添加电子邮件地址、主题和消息正文并让他们点击发送。

我从下面的代码开始，但它不起作用。

Dim myPath As String
Dim strReportName As String

DoCmd.OpenReport "rptsuivi", acViewPreview, , "tblsuivi.[N°Suivi] = '" & Me.[CompanyName] & "' "

myPath = "C:\"
strReportName = "Raport de suivi" + "-" + ".pdf"

DoCmd.OutputTo acOutputReport, acFormatPDF, , myPath + strReportName, True
DoCmd.Close acReport, "rptsuivi"

【问题讨论】：

您只能使用 Gmail 吗？可以使用 Outlook 吗？
是的，我都可以使用
我唯一无法理解的是 pdf 报告中的内容是什么？它是您访问数据库中的特定表吗？您可以从访问表创建 pdf 报告，并通过 Outlook 轻松将其作为附件发送。此外，如果您已经知道，您可以填充 Outlook 中的字段。另外，你将如何运行宏？你想使用按钮还是想以其他方式运行它？

标签： vba ms-access

【解决方案1】：

看起来你可以创建一个只运行功能区命令的宏

https://msdn.microsoft.com/en-us/library/office/ff862419.aspx

http://www.ribboncreator2010.de/Onlinehelp/EN/_2el0osmon.htm

您需要为您尝试使用的功能区功能找到正确的 idMso。

Sub SendToEmailAsPDF()

Application.CommandBars.ExecuteMso "FileSendAsAttachment"

End Sub

【讨论】：