this bit of code is doing something weird.
doing the doc.putinfolder, isn't really moving the emails to the desired folder..it's creating a stub at the location and the email still remains in the inbox.
If I delete the email from the inbox..it disappears from the desired folder... this has worked just fine for 8 years, but this year, it just created stubs...
Any idea?

Here is the simple script...
 

Sub Initialize
 ' Move emails to a folder based on year. This way inbox keeps clean for this mail-in database
 ' Runs on the 2nd day of january.
 
 Dim s As New NotesSession
 Dim db As NotesDatabase
 Dim view As NotesView
 Dim lookupView As NotesView
 Dim newView As NotesView
 Dim doc As NotesDocument
 
 Dim currentYear as New NotesDateTime( Now )
 Dim item As NotesItem
 Dim i As integer
 Dim thisYear As String 
 Dim docYear As String
 
 Set db = s.Currentdatabase
 Set view = db.Getview("($Inbox)")
 
 thisYear = StrRightBack( currentYear.Dateonly, "/" )
 
 i=0
 Set doc = view.Getfirstdocument()
 While Not (doc Is Nothing)  
  
  Set item = doc.GetFirstItem ( "DeliveredDate" )  
  docYear = StrRightBack ( item.Datetimevalue.Dateonly, "/")
  
  If ( docYear = thisYear) Then
   GoTo skip
  Else   
   Call doc.Putinfolder( docYear, true )
  End If  

skip:
  i = i + 1  
  Set doc = view.Getnextdocument(doc)
 Wend
 
done: 
End Sub

Thanks..
(edit.. apparently used MS Edge cause double posts..sorry about that)