こんにちは、くのへ@MasazaneKunoheです。

選択中のメールがどのフォルダに保存されているのかを調べる基本コードを纏めました。

フォルダ指定してメールを移動

選択中のメールをフォルダに移動（選択式）にする基本コードはこちら。

↓コピペで動くと思います。

Sub MailBoxMove()

  Dim myFolder As Outlook.MAPIFolder

  Dim objSelect As Outlook.Selection
  Dim objItem As Object
  Set objSelect = Outlook.Application.ActiveExplorer.Selection
  Set objItem = objSelect.Item(1)
  
  If TypeOf objItem Is Outlook.MailItem Then
    
    Set myFolder = Application.Session.PickFolder
    If Not (myFolder Is Nothing) Then
       objItem.Move myFolder
    End If
    
  End If
    
  Set objSelect = Nothing
  Set objItem = Nothing

End Sub

解説

Application.Session.PickFolderを使うと、フォルダーを選択画面が出るので、そこに移動させることが出来ます！！

ではまた別の記事で～
🦅バサバサ～

感想等はツイッターにお願いします。こちら。

くのへスタジオはこちら。

Outlook-VBAコーナーはこちら。