VBA - Outlookが添付ファイルを削除していない

Question

添付ファイルを削除する必要があるマクロを作成しています。私のデバッグセッションからは、うまくいくかのように見えます。ブレークポイントがヒットし、それがメッセージオブジェクトを認識している：

私はこれは少し愚かな音を知っている、しかし、奇妙なことに、私がブレークポイントを設定した場合に動作するようだ、と表現/時計を開いて、それ以外はそうではない。

私はかなり長い間このことに苦労してきました。私はどんな指導にも感謝します。

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String) 

Dim header As String 
Dim objNewMail As Outlook.MailItem 
Dim Item As Object 
Dim count As Integer 


    Dim objInbox As Outlook.Folder 
    Set objInbox = Outlook.Session.GetDefaultFolder(olFolderInbox) 

    Dim entryIDs 
    entryIDs = Split(EntryIDCollection, ",") 
    Dim i As Integer 

    For i = 0 To UBound(entryIDs) 
     Set objNewMail = Application.Session.GetItemFromID(entryIDs(i)) 
       If objNewMail.Attachments.count > 0 Then 
        header = GetHeader(objNewMail) 
       If DoesIPMatch(header) <> True Then 
        DeleteMessage (objNewMail) 
       ElseIf IsAttachmentPDF(objNewMail) <> True Then 
        For count = 1 To objNewMail.Attachments.count 
         objNewMail.Attachments.Remove (count) 
        Next 
       End If 
      End If 
    Next 

End Sub 

Answer 1

あなたはそれが常に逆の順序で実行する必要があり、コレクションから項目を削除する場合それ以外の場合は、あなたのカウンタ変数をインデックスし直す必要があり、それは厄介なコードになり、最も可能性の高い犯人として、これを試してみてください。

あなたが（添付ファイルを削除することによって、例えば）それを変更した後にまた別の方法として

For count = objNewMail.Attachments.count to 1 Step - 1 
    objNewMail.Attachments.Remove count 
Next 
objNewMail.Save '## Not sure if this is necessary 

objNewMailアイテムを保存する必要があるかもしれない：

With objNewMail.Attachments 
    While .Count > 0 
     .Remove 1 
    Wend 
End With 
objNewMail.Save