如何将Outlook草稿文件夹中的.msg附加到另一封电子邮件

Question

当我的代码起草带有附件的电子邮件时，公司策略会阻止.SaveAs
我将草稿保存到Outlook文件夹中，但目标是将.msg附加到另一封邮件中。

有没有办法通过VBA创建电子邮件并通过访问Outlook草稿文件夹添加附件？

CCD_ 2和CCD_ 3由于公司政策而失败；无法更改注册表以启用prompttosaveas(错误287(
由于初始消息中的可变文件附件，无法从模板创建。

Answer 1

您可以在Outlook中复制现有的草稿项目，并继续设置它以从"草稿"文件夹发送。MailItem.Copy方法创建对象的另一个实例，因此保存在Drafts文件夹中的模板将保持原样。

Sub CopyItem() 
Dim myNameSpace As Outlook.NameSpace
Dim myFolder As Outlook.Folder 
Dim myItem As Outlook.MailItem
Dim myCopiedItem As Outlook.MailItem 

Set myNameSpace = Application.GetNamespace("MAPI") 
Set myFolder = myNameSpace.GetDefaultFolder(olFolderDrafts) 
Set myItem = myFolder.Items(1)
Set myCopiedItem = myItem.Copy 
myCopiedItem.Send() 

End Sub 

或者，您可以在Outlook中创建一个全新的电子邮件项目，然后使用Attachments.Add方法附加现有项目，该方法将在Attachments集合中创建新的附件。附件的来源。这可以是一个文件(由带有文件名的完整文件系统路径表示(，也可以是构成附件的Outlook项目。因此，您只需要指定要附加的Outlook项目实例。