时间戳

首页 > 解决方案 > 如何使用 VBA 将文件附加到电子邮件？

excel - 如何使用 VBA 将文件附加到电子邮件？

问题描述

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

我试图这样做：

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

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

标签： excelvbafileemailattachment

解决方案

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

推荐阅读