I don't know why but sometimes, this software 'forget' one or a few mails ...

[el]

Hello,

I wrote a tool which read an outlook folder and save the mails to the hard
disk (in .msg files)

Here below one of the main sub of my tool.

I don't know why but sometimes, this software 'forget' one or a few mails
....
For instance : 24 mails in the folder but only 22 are saved.

Any idea ?

Thanks a lot
_______________ _______________ _______________ _______________ ____________

Public Sub save_mails(Opti onal PathName As String)

Dim oOutlook As Outlook.Applica tion
Dim oNs As Outlook.NameSpa ce
Dim oFldr As Outlook.MAPIFol der
Dim oMessage As Object
Dim sPathName As String

On Error Resume Next

Set oOutlook = New Outlook.Applica tion
Set oNs = oOutlook.GetNam espace("MAPI")
Set oFldr = oNs.GetDefaultF older(olFolderI nbox)
Set selected_Fldr = oFldr.Folders(L ist1.Text)

For Each oMessage In selected_Fldr.I tems
oMessage.SaveAs sPathName & nomfichier$ & ".msg", olMSG
Next

Set oMessage = Nothing
Set oFldr = Nothing
Set oNs = Nothing
Set oOutlook = Nothing
End Sub