VBA - For eachループは最初の項目の後に終了します

Question

私は電子メールの件名に受け取った日付を追加するかなり簡単なマクロを書こうとしています。
以下のコードをコンパイルしました。これは単一の電子メールで動作します。しかし、最初のメールの後にはFor Eachループが終了しているように見えますが、これを解決する方法は全くありません。私はPickFolder行をActiveExplorer.Selection行で変更しようとしました。まったく同じ問題です。

Sub SelectedMailItemsSubjectWithDate() 
     Dim objMainFolder As Outlook.Folder 
     Dim MObj As Outlook.MailItem 


     Set objMainFolder = Outlook.Application.Session.PickFolder 

      For Each MObj In objMainFolder.Items 
       'Adds the date to the subject 
       MObj.Subject = Format(MObj.ReceivedTime, "YYYYMMDD") & " - " & MObj.Subject 
      Next MObj 
    End Sub 

私にこれを手伝ってくれる人はいますか？私は多くの義務があります！

私が日付を追加しようとしているのは、ファイルの件名行以外の何も表示されないオンラインストレージで.msg形式で何千もの電子メールをアーカイブする必要があるからです。

Answer 1

として、あなたは知っていますか唯一つの項目が処理され秒を待って？コードをステップ実行して、ループが途中で終了することを確認していますか？または、1つのアイテムのみが変更されていますか？あなたがアイテムを保存する必要があります後者の場合：？コードが実行され、一時停止した場合

MObj.Subject = Format(MObj.ReceivedTime, "YYYYMMDD") & " - " & MObj.Subject 
MObj.Save 

Answer 2

は、一般的なObjectむしろOutlook.MailItemよりとしてMObjを宣言 - あなたは、フォルダ内の他のアイテムを持つことができる、などReportItem、MeetingItem、