Outlook でさまざまな種類の削除済みアイテムを別のフォルダーに自動的に移動する方法

Outlook では、すべての種類の削除済みアイテム (メール、タスク、連絡先など) が [削除済みアイテム] フォルダーに移動されます。下のスクリーンショットのように、削除済みアイテムフォルダーの下のアイテムの種類に基づいてアイテムを別のフォルダーに移動する場合、Outlook でどのように作成できますか?

VBAコードを使用して、さまざまな種類の削除済みアイテムをさまざまなフォルダーに自動的に移動します

以下の VBA コードは、削除されたアイテムを別のフォルダーに自動的に移動するのに役立ちます。次のようにしてください。

1. Outlook を起動し、長押しします。 Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2。次に、ダブルクリックします このOutlookSession から プロジェクト-Project1 ペインを開き、次のコードをコピーして空白のコードウィンドウに貼り付けます。

VBAコード：さまざまな種類の削除済みアイテムをさまざまなフォルダーに自動的に移動します

Public WithEvents GDeletedFolder As Outlook.Folder
Public WithEvents GDeletedItems As Outlook.Items
Private Sub Application_Startup()
  Set GDeletedFolder = Application.Session.GetDefaultFolder(olFolderDeletedItems)
  Set GDeletedItems = GDeletedFolder.Items
End Sub
Private Sub GDeletedItems_ItemAdd(ByVal Item As Object)
'Updateby ExtendOffice
Dim xTargetFolder As Outlook.Folder
On Error Resume Next
Select Case TypeName(Item)
  Case "MailItem", "PostItem", "ReportItem", "MeetingItem"
    Set xTargetFolder = GDeletedFolder.Folders("Deleted Mails")
    If xTargetFolder Is Nothing Then
      Set xTargetFolder = GDeletedFolder.Folders.Add("Deleted Mails", olFolderInbox)
    End If
  Case "AppointmentItem"
    Set xTargetFolder = GDeletedFolder.Folders("Deleted Appointments")
    If xTargetFolder Is Nothing Then
      Set xTargetFolder = GDeletedFolder.Folders.Add("Deleted Appointments", olFolderCalendar)
    End If
  Case "ContactItem", "DistListItem"
    Set xTargetFolder = GDeletedFolder.Folders("Deleted Contacts")
    If xTargetFolder Is Nothing Then
      Set xTargetFolder = GDeletedFolder.Folders.Add("Deleted Contacts", olFolderContacts)
    End If
  Case "TaskItem"
    Set xTargetFolder = GDeletedFolder.Folders("Deleted Tasks")
    If xTargetFolder Is Nothing Then
      Set xTargetFolder = GDeletedFolder.Folders.Add("Deleted Tasks", olFolderTasks)
    End If
  Case "JournalItem"
    Set xTargetFolder = GDeletedFolder.Folders("Deleted Journals")
    If xTargetFolder Is Nothing Then
      Set xTargetFolder = GDeletedFolder.Folders.Add("Deleted Journals", olFolderJournal)
    End If
  Case "NoteItem"
    Set xTargetFolder = GDeletedFolder.Folders("Deleted Notess")
    If xTargetFolder Is Nothing Then
      Set xTargetFolder = GDeletedFolder.Folders.Add("Deleted Notess", olFolderNotes)
    End If
End Select
If xTargetFolder Is Nothing Then Exit Sub
Item.Move xTargetFolder
Set xTargetFolder = Nothing
End Sub

3. 次に、このコードを保存し、Outlook を再起動してこのコードを有効にします。

4. 今後、アイテムを削除すると、対応するタイプのフォルダーの下に移動されます。 削除されたアイテム 自動的にフォルダ。

5. 結果を表示するには、クリックしてくださいフォルダウィンドウの下部にあるアイコンをクリックし、 フォルダ ペイン内のすべてのフォルダーを展開するには、スクリーンショットを参照してください。

Kutools for Outlook-100の高度な機能をOutlookにもたらし、作業をはるかに簡単にします！

自動CC / BCC メール送信時のルールによる。自動転送カスタムによる複数の電子メール。自動返信 Exchangeサーバーなし、およびより多くの自動機能...
BCC警告 -全員に返信しようとするとメッセージを表示するメールアドレスがBCCリストにある場合; 添付ファイルがない場合に通知する、その他の機能を思い出させる...
メール会話のすべての添付ファイルで（すべて）返信; 多くのメールに返信するすぐに; あいさつを自動追加返信するとき; 件名に日付を追加...
添付ファイルツール：すべてのメールのすべての添付ファイルを管理し、自動デタッチ, すべて圧縮、すべての名前を変更、すべて保存...クイックレポート、選択したメールを数える...
強力な迷惑メール習慣による; 重複するメールと連絡先を削除する... Outlookでよりスマートに、より速く、より良くすることができます。