如何使用内置PDF的VBA版本将多个工作表作为一个PDF附加到邮件+附加到邮件按钮

Question

内置的PDF附加按钮

在Excel 2013及更高版本中，可以将作为PDF的电子邮件|附件按钮添加到自定义功能区。此按钮将发布整个工作簿，将pdf保存在temp文件夹中，并将其附加到默认电子邮件客户端中的新电子邮件中，该工作簿名称（.xlsm）为主题，没有收件人。

[将按钮单击记录为宏时，当从VBA编辑器执行时，由于附件（从VBAE运行）将成为。xlsm文件，因此记录的代码将不会以相同的方式运行。 xlDialogSendMail的错误，可能是由于Excel中的记录错误。 （我不知道这是否已报告给Office Dev-Team）

记录输出：（不再现按钮动作）

Sub Macro1()

    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\Daghan\AppData\Local\Temp\Book4.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
    Application.Dialogs(xlDialogSendMail).Show

End Sub

我的问题

1. 我想将两张纸作为一个PDF附加到邮件（不是entire工作簿）

2. 我没有使用Outlook（实际上是IBM Notes）

3. 我能够使用ThisWorkbook.Sheets（Array（...和常规的[[ExportAsFixedFormat]方法，将两张纸导出并保存为一个pdf文件，但尚未弄清楚如何附加使用VBA发布的pdf。

我的问题

您知道按下此内置按钮时实际上执行了什么[代码行]吗？

我如何将两张纸作为单个PDF附加到外观不佳的邮件应用程序？

我宁愿不像以前那样使用Notes VBA对象库在那个兔子洞里下了太多次了。

内置PDF附加按钮在Excel 2013及更高版本中，可以将电子邮件作为PDF |附加按钮添加到自定义功能区。该按钮将发布整个工作簿，将pdf保存在临时文件夹中。

Answer 1