☰

Outlook で、すべてのメッセージを選択し、ワンクリックでフォルダーに移動するにはどうすればよいですか?

tag-icon • tag-icon microsoft-outlook automation
Outlook で、すべてのメッセージを選択し、ワンクリックでフォルダーに移動するにはどうすればよいですか?

上部にあるカスタマイズ可能な「クイック アクション」が気に入っており、さまざまなフォルダーにものを移動したり、メッセージを予定に変換したりするためにいくつか設定しました。ただし、フォルダー内のすべてのメッセージを選択し、別の指定された (事前設定された) フォルダーに移動するボタンを追加する方法がまだわかりません。

基本的に、受信トレイから、Ctrl + A を押して最初にすべてのメールを選択する必要がなく、すべてのメールを別のフォルダーに移動するための単一のボタンが欲しいです。

これは可能ですか？

答え1

可能ですが、そのためにはマクロを書く必要があります。

から "Outlook マクロの作成「：」

マクロとは、コード モジュール内の任意のパブリック サブルーチンです。関数またはプライベート サブルーチンはマクロにできません。また、マクロをクラス モジュールまたはフォーム モジュールに配置することはできません。

新しいマクロを作成するには

  1. Outlook で、[ツール] メニューの [マクロ] をポイントし、[Visual Basic Editor] をクリックします。
  2. プロジェクト ウィンドウで、マクロを含めるモジュールをダブルクリックします。
  3. [挿入] メニューで [手順] をクリックします。
  4. [名前] ボックスにマクロの名前を入力します。名前にスペースを含めることはできません。
  5. [OK] をクリックします。(マクロ サブルーチンのテンプレートがコード モジュール ウィンドウに表示されます)。
  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

関連情報