Outlookで転送した後、電子メールを特定のフォルダーに自動移動する方法

Outlookソリューション 2025 年 9 月 29 日

メールボックスを整理整頓するには、特定のメールを特定のフォルダーに保存することに慣れている場合があります。この記事では、Outlook VBA を使用して、メールを転送した後にメールを自動的に移動する方法について説明します。

類似したメールを特定のメールフォルダーに保存することは、大量のメールを管理するための良いヒントです。さまざまなユーザーがメールの分類と管理に関して独自の基準を持っている必要があります。たとえば、返信、転送などのフォローアップアクションに応じてメールを分類したい場合があります。メールを転送するときに、「転送済み」などの特定のフォルダーにメールを自動的に移動したい場合は、次の操作と VBA コードを適用すると、すぐにメールを取得できます。

電子メールを転送した後、特定のフォルダーに自動的に移動します

まず、Outlookを起動します。
次に「開発者」タブに切り替えます。

メモ: このタブが見つからない場合は、まず「ファイル」>「オプション」>「リボンのカスタマイズ」に移動して有効にする必要があります。

このタブが表示されたら、その下にある「Visual Basic」ボタンを見つけてクリックします。
その後、新しい「Microsoft Visual Basic for Applications」ウィンドウがポップアップ表示されます。その中で、左側にある「ThisOutlookSession」プロジェクトをダブルクリックして開きます。
その後、次の VBA コードをコピーして貼り付けることができます。

Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
    Set objExplorer = Outlook.Application.ActiveExplorer
End Sub

Private Sub objExplorer_SelectionChange()
    On Error Resume Next
    Set objMail = objExplorer.Selection.Item(1)
End Sub

Private Sub objMail_Forward(ByVal Response As Object, Cancel As Boolean)
    Dim objInboxFolder As Folder
    Dim objTargetFolder As Folder
 
    Set objInboxFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
 
    On Error Resume Next
    Set objTargetFolder = objInboxFolder.parent.Folders("Forwarded")
    If objTargetFolder Is Nothing Then
       Set objTargetFolder = objInboxFolder.parent.Folders.Add("Forwarded")
    End If
    objMail.Categories = "Forwarded"
    objMail.Move objTargetFolder
End Sub

後で、新しい VBA プロジェクトに署名する必要があります。

まず、「VBA プロジェクトのデジタル証明書」組み込みツールを使用してデジタル証明書を作成します。
次に、次のスクリーンショットのように、このマクロに証明書を割り当てます。

後でマクロ設定を変更して、デジタル署名されたマクロを許可することができます。
最後に解像度tart Outlook で新しいマクロをアクティブにします。今後は、メールを選択して「転送」ボタンをクリックすると、そのメールは一括で「転送済み」フォルダに移動されます。

Outlook PST データの望ましくない破損を回避する

それらの中の一つost Outlook ユーザーを長い間悩ませてきた問題は、Outlook が破損しやすいことです。つまり苦しみ PSTの損傷は一般的な事項です。したがって、Outlook データの損失を防ぐために、PST データの一貫性のある最新のバックアップを作成することをお勧めします。

著者紹介：

Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。腐敗した SQL Server と見通し修理ソフトウェア製品。詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com