Access 2010 PDF, Сохранить и отправить отчет по электронной почте с помощью кода VBA

Question

Я использую Access 2010 и нашел команду «Отправить по электронной почте как PDF» незаменимой. Однако у меня есть проблема в том, что я скрыл основную ленту от моих пользователей, а это значит, что они не могут на самом деле нажать эту кнопку.

Может ли кто-нибудь сказать мне код VBA, который позволит мне PDF, сохранить файл и электронную почту через Gmail для отдельного отчета на основе данного уникального идентификатора? Я рад, что пользователь добавил адрес электронной почты, тему и тело сообщения и для них нажмите отправить.

Я начинаю со следующего кода, но он не работает.

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

выглядит, как вы можете создать макрос, который выполняет команды Ribbon

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