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

Question

I'm using Access 2010 and found the Send to Email as PDF command indispensable. However, I have a problem in that I've hidden the main ribbon from my users which means they can't actually click that button.

Can anyone tell me the VBA code that will let me PDF, save the file and email via Gmail an individual report based on a given unique ID? I am happy for the user to add the email address, subject and message body and for them to click send.

I begin with the following code, but it doesn't work.

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"

Answer 1

looks like you can create a macro that just runs the ribbon command

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

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

you'll need to find the right idMso for the ribbon function you're trying to use.

Sub SendToEmailAsPDF()

Application.CommandBars.ExecuteMso "FileSendAsAttachment"

End Sub