将嵌入式Excel工作表附加到VBA中的Outlook中

Question

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

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

此处“Doc Repository”是一个包含.zip文件的工作表。 使用上面的代码，对象1（zip文件夹）将被复制到剪贴板。

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

Answer 1

我建议将zip文件保存到磁盘，然后使用Attachments类的Add mehtod将其作为附件添加到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