将附件保存到 Outlook 文件夹答案

【问题标题】：Save attachment to outlook folder将附件保存到 Outlook 文件夹
【发布时间】：2011-12-21 13:15:11
【问题描述】：

我有一些来自我以前的电子邮件提供商的电子邮件已转发到我的 Outlook 2010 收件箱文件夹Received。

我遇到的问题是原始电子邮件已作为附件而不是转发发送！所以我想做的是：

打开Received文件夹中的邮件并运行VBA代码
从Received 文件夹中的转发邮件中提取附件并将该附件保存到Forwarded 文件夹中
删除Received文件夹中转发的邮件。

我不了解 Outlook VBA 代码，所以我什至没有起点！

任何帮助将不胜感激！

【问题讨论】：

标签： vba outlook directory email-attachments

【解决方案1】：

我使用Outlook Attachment Remover Add-In 删除附件并将它们保存在文件系统中。我主要使用它来减少我的配置文件在服务器上所需的空间。一件很棒的事情是该工具添加了指向邮件原始附件的链接。所以你仍然可以打开附件，但它会从文件系统中打开。

【讨论】：

【解决方案2】：

使用我之前来自 VBA Code to save an attachment (excel file) from an Outlook email that was inside another email as an attachment 的代码，这个 Outlook VBA 应该可以解决问题。

请确保

您的文件夹 Forwarded 和 Received 确实存在于收件箱下。

代码需要一个目录C:\temp\ 来处理嵌入的电子邮件

Sub SaveOlAttachments()

Dim olFolder As MAPIFolder
Dim olFolder2 As MAPIFolder
Dim msg As MailItem
Dim msg2 As MailItem
Dim strFilePath As String
Dim strTmpMsg As String

'path for creating attachment msg file for stripping
strFilePath = "C:\temp\"
strTmpMsg = "KillMe.msg"

'My testing done in Outlok using a "temp" folder underneath Inbox
Set olFolder = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
Set olFolder2 = olFolder.Folders("Forwarded")
Set olFolder = olFolder.Folders("Received")

For Each msg In olFolder.Items
    If msg.Attachments.Count > 0 Then
        If Right$(msg.Attachments(1).FileName, 3) = "msg" Then
            msg.Attachments(1).SaveAsFile strFilePath & strTmpMsg
            Set msg2 = Application.CreateItemFromTemplate(strFilePath & strTmpMsg)
        End If
        msg.Delete
        msg2.Move olFolder2
    End If
Next
End Sub

【讨论】：