☰

在 Outlook 中，如何一鍵選擇所有郵件並將它們移至資料夾？

tag-icon • tag-icon microsoft-outlook automation
在 Outlook 中，如何一鍵選擇所有郵件並將它們移至資料夾？

我喜歡頂部可自訂的“快速操作”，我已經設定了一些將內容移動到各個資料夾或將訊息轉換為約會等。中的所有郵件，並將它們移至另一個指定的（預先配置的）資料夾。

基本上，從我的收件匣中，我需要一個按鈕將所有郵件移至另一個資料夾中，而不必先按 Ctrl+A 將它們全部選取。

這可能嗎？

答案1

有可能的;不過，您需要編寫一個巨集來做到這一點。

從 ”編寫 Outlook 巨集」：

巨集是程式碼模組中的任何公共子程式。函數或私有子程式不能是宏，且巨集不能位於類別或表單模組中。

建立新巨集

  1. 在 Outlook 中，指向“工具”功能表上的“巨集”，然後按一下“Visual Basic 編輯器”。
  2. 在「專案」視窗中，雙擊要包含巨集的模組。
  3. 在「插入」功能表上，按一下「流程」。
  4. 在「名稱」方塊中，鍵入巨集的名稱。該名稱不能包含空格。
  5. 按一下“確定”。 （宏子程式的範本出現在程式碼模組視窗中）。
  6. 在子例程主體中鍵入要執行的程式碼。

以下是一些範例（未經測試）程式碼，可協助您入門：

Sub MoveItems() 

  Dim Messages As Selection 
  Dim Msg As MailItem 
  Dim NS As NameSpace 

  Set NS = Application.GetNamespace("MAPI") 
  Set Messages = ActiveExplorer.Selection 

  If Messages.Count = 0 Then 
    Exit Sub 
  End If 

  For Each Msg In Messages 
    Msg.Move NS.Folders("Personal Folders").Folders("SavedMail") 
  Next 

End Sub

相關內容