excel - 将未保存的 Excel 文件附加到电子邮件

Question

我有一个 Excel 表单供用户填写并作为附件发送(无需将其保存在本地计算机上)。

代码有效。

Dim Names()
Names = Array("testmail@gmail.com")
ActiveWorkbook.SendMail _
Recipients:=Names(), _
Subject:="Test subject"

我希望仅创建电子邮件，并且在用户附加附加文件(在其本地计算机上找到)之前不发送电子邮件。

我编写了以下代码:

Dim olapp As Object
Dim olmail As Object
Dim wb As Workbook
Set olapp = CreateObject("outlook.application")
Set olmail = olapp.CreateItem(olMailItem)
Set wb = ActiveWorkbook

With olmail
.To = "testmail@gmail.com"
.Subject = "Test Subject"
.Body = ""
.Attachments.Add wb.FullName
.Display

我的问题是，只有最新保存的副本才会附加到创建的电子邮件中，并且由于用户不会将表单/Excel 文件本地存储在其计算机上，因此将显示一个空表单(或最后保存的表单)附在电子邮件中。

有没有办法创建包含工作簿副本的电子邮件，但不发送它？

Answer 1

我在立即窗口中尝试了这一行，它成功发送了一个未保存的文件: Application.Workbooks("Book2").SendMail("my.email@company.com","Test subject") 您可以在代码中使用 wb 而不是我的示例中的 Application.Workbooks("Book2") 。请注意，这将发送电子邮件，但无法对其进行编辑。