I am running the following code: Private Sub bounceInspector_Processed(ByVal sender As Object, ByVal e As ProcessedEventArgs) Handles bounceInspector.Processed Dim r As BounceInspectorResult = e.Result Dim sEmailAddress As String If r.MailMessage Is Nothing Then Return End If If r.Identified Then sEmailAddress = r.Addresses(0) Select Case r.BounceType.Code Case BounceType.Generic Select Case r.BounceCategory.Code Case BounceCategory.Subscribe, BounceCategory.Unsubscribe myResult = isValidEmail(sEmailAddress) If myResult.IsValid Then UpdateDB(sEmailAddress) Else "invalid address kill mail r.Delete = True r.InboxDelete = True End If Case Else "kill mail r.Delete = True r.InboxDelete = True End Select End Select End If End Sub I find that neither the file nor the mesage is removed. I am connecting to a folder via IMAP that is not the inbox. (inbox/unsubscribe) Should I be calling something to action the delete? Regards Duncan
edited 11/16/2017 12:41:33 AM
asked 12/30/2009 12:15:38 PM