Thread: all folders needs to be saved in hard except Drafts and Sent Items

Hi All,

I want to copy all the folders from outlook to hard disk except Drafts and Sent Items. The following code is copying all the folders. Please kindly tell me the way how can we avoid Drafts and Sent Items folders.

Sub GetFolder(Folders As Collection, EntryID As Collection, StoreID As Collection, Fld As MAPIFolder)
     
    Dim SubFolder       As MAPIFolder
     
     
    Folders.Add Fld.FolderPath
    EntryID.Add Fld.EntryID
    StoreID.Add Fld.StoreID
    For Each SubFolder In Fld.Folders
      ' If Fld.Folders = "Sent items" Or "Drafts" Then
      ' Resume Next
        GetFolder Folders, EntryID, StoreID, SubFolder
       'End If
    Next SubFolder
     
ExitSub:
     
    Set SubFolder = Nothing
     
End Sub

Thanks & Regards
Ramesh

What happens which you check the NAME property of the folder eg

IF NOT Fld.Name = "Drafts" then
"do your magic"
end if