hi all,

I've written a script that loops through all the emails in my inbox and, if a folder exists that match the simle criteria it moves it there. for some strange reason after going through a few time the Email object becomes nothing and i cant work out why. Oddly enough if i wait a few seconds i can continue with the code (simply pressing f5.)


Private Sub loop_test()




    Set objNS = GetNamespace("MAPI")
    Set objinbox = objNS.GetDefaultFolder(olFolderInbox)
    Set objFolder = objNS.GetDefaultFolder(olFolderInbox).Folders("Opportunities").Folders("Customers")
    
    Dim currenttime As Date
    
    For Each Email In objinbox.Items
    For Each SubFolder In objFolder.Folders
        If InStr(Email.subject, SubFolder.Name) Then
            
            Email.Move SubFolder
        End If


    Next SubFolder
    Next Email




End Sub
thanks for any help