在 VBA 中将嵌入的 Excel 工作表附加到 Outlook 中答案

【问题标题】：Attaching embedded xl sheet into Outlook in VBA在 VBA 中将嵌入的 Excel 工作表附加到 Outlook 中
【发布时间】：2015-01-23 10:15:13
【问题描述】：

我正在尝试将嵌入的 xl 对象附加到 vb 中的 Outlook 邮件中。我现有的代码是

Sheets("Doc Repository").Shapes.Range(Array("Object 1")).Select
Selection.Copy

这里的“Doc Repository”是一张嵌入了 .zip 文件的表格。使用上面的代码，对象 1（zip 文件夹）被复制到剪贴板。

我不知道如何将复制的 zip 文件粘贴到 Outlook 邮件中。

【问题讨论】：

标签： excel vba outlook

【解决方案1】：

我建议将 zip 文件保存到磁盘，然后使用 Attachments 类的 Add 方法将其作为附件添加到 MailItem 对象（请参阅 MailItem 类的相应属性）。

Sub AddAttachment() 
   Dim myItem As Outlook.MailItem 
   Dim myAttachments As Outlook.Attachments 
   Set myItem = Application.CreateItem(olMailItem) 
   Set myAttachments = myItem.Attachments 
   myAttachments.Add "D:\Test.zip", _ 
   olByValue, 1, "Test" 
   myItem.Display 
End Sub

【讨论】：

嗨，Eugene，作为自动化过程的一部分，一些文档作为对象嵌入到 Excel 中。电子邮件必须以嵌入文档作为附件触发。
您是否尝试将嵌入的文档保存在磁盘上，然后将它们添加为附件？
嗨 Eugene，我需要将嵌入对象附加到 Outlook 邮件中，因为我的电子表格将与许多其他人共享。因此，将文档存储在本地驱动器中，然后通过宏将其附加到 Outlook 中并没有帮助。
没有其他方法可以附加嵌入对象。