如何使用 VBA 将文件附加到电子邮件？答案

【问题标题】：How to attach a file to an email with VBA?如何使用 VBA 将文件附加到电子邮件？
【发布时间】：2020-01-14 07:56:43
【问题描述】：

我正在尝试使用 VBA 从 Excel 文件中自动化 Excel 上的电子邮件发件人。我想在这封电子邮件中附加一个文件，这个文件在 Excel 单元格中有链接。

我尝试过这样做：

.Attachments.Add ActiveCell.Offset(0, 18).Value

因此，该单元格中的文件可以附加到我的电子邮件中。但它没有用......也许改变“.Value”可能会有所帮助，但我不反对。我不能只附加他文件夹中的文件，因为它总是在变化，唯一可以使用的是来自 Excel 的链接。我真的是 VBA 新手，在此先感谢您的帮助！

【问题讨论】：

你遇到了什么错误？
Ron de Bruin 做了出色的工作，我在这里用了很多方法来做到这一点：rondebruin.nl/win/section1.htm
您正在尝试附加 Cell.Value 尝试引用该单元格上的链接路径。

标签： excel vba file email attachment

【解决方案1】：

Dim app, email As Object
Set app = CreateObject("Outlook.Application")
Set email = app.createitem(0)

With email
    .to = "foo@blahblah.com"
    .cc = ""
    .Attachments.Add Sheet1.Cells(1, 1).Value
    .display
End With

【讨论】：

这如何回答 OP 的问题？您发布了相同的代码。
Answer works 提供了可以解决问题的附加代码，可以与 ActiveCell 或 Cells 一起使用。问题也可能是单元格引用不正确 - 尝试Debug.Print Sheet1.Cells(1, 1).Value 在即时窗口中查看单元格值，需要有完整的文件路径。