跳到主要內容

如何在Outlook中不帶附件進行存檔?

通常,Outlook的存檔功能將保存所有電子郵件元素,包括電子郵件內容,電子郵件標頭,電子郵件附件等。但是,附件可能會使存檔的PST文件變大。 在這裡,我將介紹兩種在Outlook中不帶附件的存檔解決方案。

Office 標籤 - 在 Microsoft Office 中啟用選項卡式編輯和瀏覽,讓工作變得輕而易舉
Kutools for Outlook - 透過 100 多個進階功能增強 Outlook,實現卓越效率
使用這些進階功能增強您的 Outlook 2021 - 2010 或 Outlook 365。 享受全面的 60 天免費試用並提升您的電子郵件體驗!

由VBA存檔,無附件

此方法將引入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 檔案的資料夾,將 PST 檔案命名為 文件名 框,然後單擊 OK 按鈕。 看截圖:

7。 現在,您返回到“存檔”對話框,請單擊 OK 按鈕完成存檔。
到目前為止,您已經歸檔了沒有任何附件的郵件資料夾。


Kutools for Outlook不帶附件的存檔

如果您安裝了Kutools for Outlook,則可以應用它 全部分離 功能可快速刪除您要存檔的指定資料夾中的所有附件,然後輕鬆存檔不含附件的檔案。

Kutools for Outlook:終極 Outlook 工具包,包含 100 多個方便的工具。 免費試用 60 天,無任何限制,不用擔心!   閱讀更多...   立即開始免費試用!

1。 在 郵件 查看,開啟您要存檔的指定郵件資料夾,選擇所有電子郵件,然後按 按Ctrl + A 鍵,然後單擊 庫工具 > 全部分離。 看截圖:

2。 在請選擇資料夾對話框中,按一下 瀏覽 按鍵  若要指定儲存附件的資料夾,請指定子資料夾樣式 按以下樣式建立子資料夾 下拉列表,然後單擊 Ok 按鈕。 看截圖:

3。 請點擊 按鈕, OK 在彈出的對話框中依序點擊 按鈕。

4。 繼續點擊 文件 > 聯繫我們 > 工具 > 清理舊物品 文件 > 聯繫我們 > 清理工具 > 檔案).

5。 在「存檔」對話方塊中,請按一下以反白您將不含附件存檔的指定資料夾,然後鍵入 今天 ,在 存檔比以前的項目 框,然後單擊 瀏覽 按鈕。 看截圖:

6。 在「開啟 Outlook 資料檔案」對話方塊中,請開啟將儲存已存檔的 PST 檔案的資料夾,將 PST 檔案命名為 文件名 框,然後單擊 OK 按鈕。 看截圖:

7。 現在,您返回到“存檔”對話框,請單擊 OK 按鈕完成存檔。

到目前為止,您已經歸檔了指定的郵件資料夾,且沒有附件。

Kutools for Outlook:透過 100 多種必備工具增強 Outlook 功能。 60 天免費試駕,無任何附加條件!   閱讀更多...   現在就下載!


相關文章


最佳辦公生產力工具

Kutools for Outlook - 超過 100 種強大的功能可增強您的 Outlook

📧 電子郵件自動化: 外出(適用於 POP 和 IMAP)  /  安排發送電子郵件  /  發送電子郵件時按規則自動抄送/密件副本  /  自動轉送(進階規則)   /  自動添加問候語   /  自動將多收件者電子郵件拆分為單獨的訊息 ...

📨 電子郵件管理: 輕鬆回憶電子郵件  /  按主題和其他人阻止詐騙電子郵件  /  刪除重複的電子郵件  /  進階搜索  /  合併資料夾 ...

📁 附件專業版批量保存  /  批量分離  /  批量壓縮  /  自動保存   /  自動分離  /  自動壓縮 ...

🌟 介面魔法: 😊更多又漂亮又酷的表情符號   /  使用選項卡式視圖提高 Outlook 工作效率  /  最小化 Outlook 而不是關閉 ...

👍 一鍵奇蹟: 使用傳入附件回覆全部  /   反網路釣魚電子郵件  /  🕘顯示寄件者的時區 ...

👩🏼‍🤝‍👩🏻 通訊錄和行事曆: 從選定的電子郵件中大量新增聯絡人  /  將聯絡人群組拆分為各組  /  刪除生日提醒 ...

超過 100特點 等待您的探索! 按此處了解更多。

閱讀更多       免費下載      購買
 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations