VBA 용 루프가 예상대로 작동하지 않습니다.

Question

여러분이 저를 도울 수 있는지 궁금합니다. 우리는 최근에 Outlook 2003에서 2010으로 옮겼습니다. 우리는 Outlook VBA 스크립트를 사용하여 특정 들어오는 전자 메일 양식을 읽고, 읽었으며, 정보를 추출하여 파일로 컴파일합니다.

스크립트는 작동하지만 폴더의 절반 만 읽습니다. 나는 폴더에 대한 카운트 테스트를했고, 정확한 숫자를 보여 주지만, 어떤 이유로, for 루프는 아이템의 절반 만 실행한다. 폴더에 8 개의 메시지가있는 경우 4 개만 읽으면 4 개가 있으면 2 개만 읽습니다.

코드의 어느 부분이 폭탄인지 알 수 없습니다. 어떤 도움이라도 대단히 감사하겠습니다. 내 코드의 for 루프 부분 만 게시했습니다. 전체 스크립트가 필요한 경우 알려 주시기 바랍니다.

enter code here Set myOlApp = CreateObject("Outlook.Application") 'Outlook App Obj. 
Set myNameSpace = myOlApp.GetNamespace("MAPI") 'MAPI Namespace 
Set myFolder = myNameSpace.Folders("myemail@mydomain").Folders("TestAccMail") 'Outlook folder to access 

For Each Item In myFolder.Items 'Loop through each mail item 
    If (regex.Test(Item.Subject)) Then 'Test for TestAccX Message 
     strDataSplit = Split(Item.Body, vbNewLine) 'Split the contents of the body to an array 
     strOutput = "" 
     For Each arrItem In strDataSplit 'Loop through the contents of the e-mail body 
      If (regExData.Test(arrItem)) Then 'Test if line contains a field we need 
       field = Split(arrItem, ":")(1) 'Store the value of the field 
       strOutput = strOutput & Trim(Replace(field, Chr(160), "")) & "|" 'Concat the previous field value with current; seperated by | 
      End If 
     Next arrItem 'Next field in array 

     If Not strOutput = "" Then 'Ensure the output var has data 
      WriteToATextFile strOutput, file 'Append the data record to the provided file 
      Item.Move myFolder.Folders("TestAcc Complete") 'Move mail item to completed folder 
      recCount = recCount + 1 
     Else 'If the string is blank, no data was extracted; Error! 
      Item.Move myFolder.Folders("Errors") 'Move mail item to Error folder 
      errCount = errCount + 1 'Incremeant error count 
     End If 
     messCount = messCount + 1 'Incremeant message count, error or not 
    End If 
Next 'Next TestAccX Message 

Answer 1

나는 VBA가 컬렉션을 처리하지만 당신은 당신이 실제로 컬렉션 '을 통해 호핑 "하는 MyFolder에에서 항목을 이동할 때 내가 추측하고있어 어떻게하지 확신합니다. 적절한 언어를 사용하면 각 루프마다 처리중인 콜렉션을 변경할 수 없습니다.