访问2010 PDF,使用VBA代码保存并通过电子邮件发送报告

访问2010 PDF,使用VBA代码保存并通过电子邮件发送报告,vba,ms-access,Vba,Ms Access,我正在使用Access 2010,发现“以PDF格式发送电子邮件”命令必不可少。但是,我有一个问题,我对我的用户隐藏了主功能区,这意味着他们实际上无法单击该按钮 有谁能告诉我VBA代码,它可以让我使用PDF格式,通过Gmail将文件和电子邮件保存为基于给定唯一ID的个人报告?我很高兴用户添加电子邮件地址、主题和邮件正文,并单击发送 我从下面的代码开始,但它不起作用 Dim myPath As String Dim strReportName As String DoCmd.OpenReport

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

有谁能告诉我VBA代码,它可以让我使用PDF格式,通过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"

看起来您可以创建一个只运行ribbon命令的宏

您需要为尝试使用的ribbon函数找到正确的idMso

Sub SendToEmailAsPDF()

Application.CommandBars.ExecuteMso "FileSendAsAttachment"

End Sub

你必须只使用Gmail吗?你可以使用Outlook吗?是的,我可以同时使用这两种工具。我唯一不能理解的是pdf报告中的内容是什么?它是access数据库中的特定表吗?您可以从access表创建pdf报告,并通过outlook轻松地将其作为附件发送。此外,如果您已经知道,您可以填充outlook中的字段。另外,如何运行宏?您想使用按钮还是以其他方式运行它?