由VBA存档，无附件

通过 Kutools for Outlook 进行无附件存档

此方法将引入VBA，从要存档的指定文件夹中删除所有附件，然后可以不包含附件进行存档。 请执行以下操作：

1。 在 邮箱： 视图，选择要存档的文件夹，然后按 其他 + F11 键以打开“ Microsoft Visual Basic应用程序”窗口。

2。 点击 插页 > 模块，然后在VBA下面粘贴到新的模块窗口中。

VBA：从Outlook中的选定邮件文件夹中删除所有附件

Public Sub SaveDeleteAttachments()
Dim xMailItem As Outlook.MailItem 'Object
Dim xAttachments As Outlook.Attachments
Dim i As Long
Dim xFolder As Folder
Dim xFilePath As String
Dim xFldPath As String
Dim xDeletedFilePath As String
On Error Resume Next
xFldPath = CreateObject("WScript.Shell").SpecialFolders(16)
xFldPath = xFldPath & "\MyAttachments"
If Dir(xFldPath, vbDirectory) = "" Then
MkDir xFldPath
End If
Set xFolder = Outlook.Application.ActiveExplorer.CurrentFolder
For Each xMailItem In xFolder.Items
If xMailItem.Class = olMail Then
Set xAttachments = xMailItem.Attachments
While xAttachments.Count > 0
xFilePath = xAttachments.Item(1).FileName
xFilePath = xFldPath & "\" & xFilePath
xAttachments.Item(1).SaveAsFile xFilePath
xAttachments.Item(1).Delete
If xMailItem.BodyFormat <> olFormatHTML Then
xDeletedFilePath = xDeletedFilePath & vbCrLf & "<file://" & xFilePath & ">"
Else
xDeletedFilePath = xDeletedFilePath & "
" & "" & xFilePath & ""
End If
Wend
If xDeletedFilePath <> "" Then
If xMailItem.BodyFormat <> olFormatHTML Then
xMailItem.Body = "The file(s) were saved to: " & xDeletedFilePath & vbCrLf & xMailItem.Body
Else
xMailItem.HTMLBody = "
" & _
"The file(s) were saved to: " & xDeletedFilePath & "
" & xMailItem.HTMLBody
End If
xMailItem.Save
xDeletedFilePath = ""
End If
End If
Next
Exit Sub:
Set xAttachments = Nothing
Set xMailItem = Nothing
End Sub

3。 按 F5 键或单击 运行 按钮运行代码。 然后，所有附件立即从选定的邮件文件夹中删除。

4。 点击 文件 > 资料包 > 工具 > 清理旧物品 （或 文件 > 资料包 > 清理工具 > 档案).

5。 在“存档”对话框中，请单击以突出显示复制的文件夹，键入 今天 ，在 存档比以前的项目 框，然后单击 浏览 按钮。 看截图：

6。 在“打开Outlook数据文件”对话框中，请打开将要保存存档的PST文件的文件夹，在 文件名 框，然后单击 OK 按钮。 看截图：

7。 现在，您返回到“存档”对话框，请单击 OK 按钮以完成存档。
到目前为止，您已归档了没有任何附件的邮件文件夹。

如果您安装了 Outlook 的 Kutools，您可以应用它 全部分离 此功能可从要归档的指定文件夹中快速删除所有附件，然后轻松归档不带附件的档案。

1。 在 邮箱： 查看，打开您要存档的指定邮件文件夹，按选择所有电子邮件 按Ctrl + A 键，然后单击 库工具 > 全部分离。 看截图：

2。 在“请选择一个文件夹”对话框中，单击 浏览 按键  要指定将附件保存到的文件夹，请从 按照以下样式创建子文件夹 下拉列表，然后单击 Ok 按钮。 看截图：

3。 请点击 USB MIDI（XNUMX通道） 按钮， OK 在弹出的对话框中依次点击“确定”按钮。

4。 继续点击 文件 > 资料包 > 工具 > 清理旧物品 （或 文件 > 资料包 > 清理工具 > 档案).

5。 在“存档”对话框中，请单击以突出显示要存档的不带附件的指定文件夹，键入 今天 ，在 存档比以前的项目 框，然后单击 浏览 按钮。 看截图：

6。 在“打开Outlook数据文件”对话框中，请打开将要保存存档的PST文件的文件夹，在 文件名 框，然后单击 OK 按钮。 看截图：

7。 现在，您返回到“存档”对话框，请单击 OK 按钮以完成存档。

到目前为止，您已经归档了没有附件的指定邮件文件夹。

如何仅在Outlook中自动存档附件？

如何在Outlook中按年/月/日归档电子邮件？