如果您想快速獲取電子郵件列表中每封電子郵件的附件數量，可以使用本文中的 VBA 代碼。 它將自動計算每封傳入電子郵件中的附件數量，並在新列中顯示計數。
一些用戶經常需要統計電子郵件附件的數量。 在這種情況下，為什麼不創建並啟用一個獨占列來顯示附件計數呢？ 下面，我們將教您如何讓Outlook自動統計電子郵件附件的數量，並在這樣一個新的列中顯示計數。
在電子郵件列表中顯示附件計數
- 首先，啟動 Outlook 應用程式。
- 然後在Outlook主窗口中按“ Alt + F11”鍵按鈕。
- 接下來，在新的 Outlook VBA 編輯器窗口中，您需要打開一個未使用的模塊。
- 隨後，將以下VBA代碼複製並粘貼到該模塊中。
Sub AutoCountAttachments(objMail As Outlook.MailItem)
Dim objAttachments As Outlook.Attachments
Dim objProperties As Outlook.UserProperties
Dim objProperty As Outlook.UserProperty
Dim strPropertyName As String
Set objAttachments = objMail.Attachments
strPropertyName = "Attachment Count"
Set objProperties = objMail.UserProperties
'Check if there is already a column in this name
Set objProperty = objProperties.Find(strPropertyName, True)
If objProperty Is Nothing Then
'If not, add this column
Set objProperty = objProperties.Add(strPropertyName, olText, True)
End If
'Set the column value equal to the count of attachments
objProperty.value = objAttachments.Count
objMail.Save
End Sub
- 之後，您可以退出當前的“ Microsoft Visual Basic for Applications”窗口。
- 稍後您需要創建一個新規則來對每封傳入的電子郵件運行此腳本。
- 首先，轉到“文件”菜單，然後單擊“信息”選項卡下的“管理規則和警報”按鈕。
- 然後在新對話框中，點擊“新建規則”按鈕。
- 在隨後的“規則嚮導”屏幕中，選擇“對我收到的消息應用規則”，然後單擊“下一步”。
- 接下來忽略“選擇條件”並單擊“下一步”。
- 然後選擇“運行腳本”操作並選擇之前添加的宏，如下圖所示。
- 之後，單擊幾次“下一步”，直到到達最終的“完成規則設置”屏幕。
- 稍後，您需要為此規則指定一個新名稱，並啟用“對“收件箱”中已有的郵件運行此規則”選項和“打開此規則”。
- 最後，單擊“完成”按鈕。
- 之後，您應該添加由 VBA 代碼創建的“附件計數”列。 只需執行以下步驟：
- 首先，轉到電子郵件列表屏幕中的“查看”選項卡。
- 然後單擊“查看設置”按鈕。
- 在新彈出的對話框中，點擊“列”按鈕。
- 然後在“顯示列”窗口中，找到並選擇“收件箱中的用戶定義列”下的“附件計數”列，然後單擊“添加”按鈕。
- 最後單擊“確定”按鈕保存更改。
- 最終，您可以在電子郵件列表中看到“附件計數”欄，該欄顯示每封電子郵件的附件計數，如下圖所示：
避免令人沮喪的 PST 數據丟失
相信沒有人願意接受PST數據丟失。 這對你來說也一定是正確的。 因此，您必須採取一些預防措施，例如對 PST 文件進行數據備份並使用信譽良好的修復工具，例如 DataNumen Outlook Repair。 它可以 維修展望 問題不費吹灰之力。
作者簡介：
Shirley Zhang是的數據恢復專家 DataNumen，Inc.是數據恢復技術的全球領導者，包括 SQL修復 和Outlook修復軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM