選択メールの一括送信

Sub 選択したメールを一括送信する()

'使い方
'   下書きトレイでも送信トレイでもいいので、送信予定のメールをそこに貯めて
'   複数選択する。
'   本マクロを実行する。以上。

Dim myOlSel As Outlook.Selection
Dim x As Integer

Set myOlSel = Application.ActiveExplorer.Selection

For x = 1 To myOlSel.Count

      myOlSel.Item(x).Send
    ' ここに処理を記述
Next
MsgBox "選択メールの送信が完了しました。選択メール数：" & x - 1

End Sub