Unable to delete email from trash

Public Function emptyTrash()
        open()
        Dim nDateTime As NotesDateTime = domS.CreateDateTime("")
        nDateTime.SetNow()
        nDateTime.AdjustMinute(DETECT_EMAIL_WITHIN_MIN)
 
        Dim dc As NotesView = domDB.GetView("($Trash)")
        Call domDB.EnableFolder("$Trash)")
 
        Dim dViewEntry As NotesViewEntryCollection = dc.AllEntries
        Dim counter As Integer
        Dim dEntry As NotesViewEntry
        Dim dDoc As NotesDocument
 
        For counter = 1 To dViewEntry.Count
 
            dEntry = dViewEntry.GetNthEntry(counter)
            dDoc = dEntry.Document
            ' If dDoc.DeliveredDate(0) < nDateTime.LSLocalTime Then
            dDoc.RemoveFromFolder("($Trash)")
            dDoc.Remove(True)
            'End If
 
        Next
 
        Call dc.Refresh()
 
 
        'Dim dc As NotesDocumentCollection = domDB.Search("VIEW = (\$Trash)", nDateTime, 0)
        'Dim domDoc As NotesDocument = dc.GetFirstDocument
        'Dim domDocDel As NotesDocument
        'While Not (domDoc Is Nothing)
        '    domDocDel = Nothing
        '    domDocDel = domDoc
        '    domDoc = dc.GetNextDocument(domDoc)
        '    If domDocDel Is Nothing = False Then
        '        domDocDel.RemoveFromFolder("($Trash)")
        '    End If
 
        'End While
 
        nDateTime = Nothing
        dc = Nothing
        domDocDel = Nothing
        domDoc = Nothing
 
        close()
    End Function

Select allOpen in new window