Question

我使用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"

Answer 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

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

1 个答案: