Outlook2003 mail opslaan als text bestand, next message is nothing

[mrbombastic]

Ik wil mijn oude mails in Outlook 2003 opslaan in aparte tekstbestanden. Hiervoor heb ik een macro gevonden en aangepast. Nu is het probleem dat het mail uit een IMAP map is en ik niet meer kan inloggen. Er zijn 4 berichten, ergens halverwege, die niet geopend/verwijderd/verplaatst kunnen worden.

Bij deze berichten crasht de VBA-code: Next Message Is Nothing.
Hoe kan ik ervoor zorgen dat de code deze berichten overslaat?

Function ReplaceSpecialChars(filename As String)
    Dim specialChars As String
    
    specialChars = """\/:*?<>|"
    
    For iCount = 0 To Len(specialChars)
        filename = Replace(filename, Mid(specialChars, iCount + 1, 1), "_")
    Next
    
    ReplaceSpecialChars = filename
End Function

Function MakeDate(mydate As String)
    MakeDate = Format(mydate, "yyyymmdd hh_mm_ss")
End Function

Sub ExportAll()
    Dim olFolder As Outlook.MAPIFolder
    Dim olTest As Outlook.MAPIFolder
    Dim Message As MailItem
    Set myNameSpace = Application.GetNamespace("MAPI")
    Set olFolder = myNameSpace.Folders("imap.mijnserver.nl")
    Set olTest = olFolder.Folders("Postvak IN")
    
    For Each Message In olTest.Items
        Message.SaveAs "D:\Mijn documenten\Mail\" & MakeDate(Message.ReceivedTime) & " " & ReplaceSpecialChars(Message.Subject) & ".txt", olTXT
    Next Message

End Sub

 

[Wigi]

On Error Resume Next
'jouw code