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

Question

内置 PDF-Attach 按钮

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



将按钮单击录制为宏时，录制的代码在从 VBA 编辑器执行时将不会以相同的方式运行，因为附件(从 VBAE 运行时)将是 .xlsm 文件，因为 xlDialogSendMail，可能是由于Excel 中的记录错误。 (我不知道这是否已报告给 Office 开发团队)

录制输出:(不重现按钮操作)

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

我的问题

我想将两张纸作为单个 PDF 附加到邮件(不是整个工作簿)

我没有使用 Outlook(实际上是 IBM Notes)

我可以使用 ThisWorkbook.Sheets(Array(... 和传统的 ExportAsFixedFormat 方法将两张工作表导出并保存为一个 pdf，但还没有弄清楚如何使用 VBA 附加已发布的 pdf。

我的问题

你知道按下这个内置按钮时实际执行了哪一行代码吗？

如何将两张纸作为单个 PDF 附加到非 Outlook 邮件应用程序？

I would rather not take use of the Notes VBA object library as i have been down that rabbit hole one too many times.

Answer 1

如果您不想使用 Notes 对象，则只需像现在一样导出 PDF，然后使用 CDO.Message 发送它。

见 this previous question and its answer .请注意，在这种情况下，他们在循环中执行 int ，您不需要，并且他们使用 gmail 发送它 - 但是您可以进行身份​​验证的任何 SMTP 服务器都应该没问题，包括 Lotus Domino 服务器(现在实际上是 HCL，而不是 IBM)。您需要与您组织的 Domino 团队联系，以获取有关如何连接和验证为 SMTP 发件人的信息。