如何在Outlook中不带附件进行存档？

蓝图分享网 2022-12-15 13:15:23 383阅读 0评论

如何在Outlook中不带附件进行存档？

通常，Outlook的存档功能将保存所有电子邮件元素，包括电子邮件内容，电子邮件标头，电子邮件附件等。但是，附件可能会使存档的PST文件变大。在这里，我将介绍两种在Outlook中不带附件的存档解决方案。

由VBA存档，无附件

不带附件的Microsoft Outlook存档

由VBA存档，无附件

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

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

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

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

Public Sub SaveDeleteAttachments()Dim xMailItem As Outlook.MailItem 'ObjectDim xAttachments As Outlook.AttachmentsDim i As LongDim xFolder As FolderDim xFilePath As StringDim xFldPath As StringDim xDeletedFilePath As StringOn Error Resume NextxFldPath = CreateObject("WScript.Shell").SpecialFolders(16)xFldPath = xFldPath & "MyAttachments"If Dir(xFldPath, vbDirectory) = "" ThenMkDir xFldPathEnd IfSet xFolder = Outlook.Application.ActiveExplorer.CurrentFolderFor Each xMailItem In xFolder.ItemsIf xMailItem.Class = olMail ThenSet xAttachments = xMailItem.AttachmentsWhile xAttachments.Count > 0xFilePath = xAttachments.Item(1).FileNamexFilePath = xFldPath & "" & xFilePathxAttachments.Item(1).SaveAsFile xFilePathxAttachments.Item(1).DeleteIf xMailItem.BodyFormat <> olFormatHTML ThenxDeletedFilePath = xDeletedFilePath & vbCrLf & "<file://" & xFilePath & ">"ElsexDeletedFilePath = xDeletedFilePath & "
" & "" & xFilePath & ""End IfWendIf xDeletedFilePath <> "" ThenIf xMailItem.BodyFormat <> olFormatHTML ThenxMailItem.Body = "The file(s) were saved to: " & xDeletedFilePath & vbCrLf & xMailItem.BodyElsexMailItem.HTMLBody = "

” & _”The file(s) were saved to: ” & xDeletedFilePath & “

" & xMailItem.HTMLBodyEnd IfxMailItem.SavexDeletedFilePath = ""End IfEnd IfNextExit Sub:Set xAttachments = NothingSet xMailItem = NothingEnd Sub

3. Press the F5 key or click the Run button to run the code. Then all attachments are removed from the selected mail folder immediately.

4. Click File > Info > Tools > Clean Up Old Items (or File > Info > Cleanup Tools > Archive).

5. In the Archive dialog box, please click to highlight the copied folder, type TODAY in the Archive items older than box, and then click the Browse button. See screenshot:
如何在Outlook中不带附件进行存档？第1张

6. In the Open Outlook Data Files dialog box, please open the folder you will save the archived PST file in, name the PST file in the File name box, and then click the OK button. See screenshot:
如何在Outlook中不带附件进行存档？第2张

7. Now you return to the Archive dialog box, please click the OK button to finish the archiving.
So far, you have archived the mail folder without any attachments.

Archive without attachments by Microsoft Outlook

If you have Microsoft Outlook installed, you can apply its Detach All feature to quickly delete all attachments from the specified folder you will archive, and then archive without attachments easily.

Microsoft Outlook: Add more than 100 handy tools for Outlook, free to try with no limitation in 60 days. Read More Free Trial Now

1. In the Mail view, open the specified mail folder you will archive, select all emails with pressing Ctrl + A keys, and then click Kutools > Detach All. See screenshot:
如何在Outlook中不带附件进行存档？第3张

2. In the Please select a folder dialog box, click the Browse button 如何在Outlook中不带附件进行存档？第4张 to specify the folder you will save the attachment in, specify a subfolder style from the create subfolders in the following style drop down list, and click the Ok button. See screenshot:
如何在Outlook中不带附件进行存档？第5张

3. Please click Yes button and OK button successively in the popping out dialog boxes.
如何在Outlook中不带附件进行存档？第6张

4. Go on to click File > Info > Tools > Clean Up Old Items (or File > Info > Cleanup Tools > Archive).

5. In the Archive dialog box, please click to highlight the specified folder you will archive without attachments, type TODAY in the Archive items older than box, and then click the Browse button. See screenshot:
如何在Outlook中不带附件进行存档？第7张