Can you delete Notes from the Message Center via Web Services?
The code looks like:
Dim notePrxy As New Note.NotenotePrxy.Url = strSessionURL
Dim qryOut As Note.NoteWS_NoteQueryPage_Output
Dim qryIn As New Note.NoteWS_NoteQueryPage_Input
qryIn.PageSize = 100
qryIn.ListOfNote = New Note.Note1(1) {}
qryIn.ListOfNote(0) = New Note.Note1
qryIn.ListOfNote(0).CreatedDate = "<='" & Format(dtEndDeleteDate, "Short Date") & "'"
bEnd=True
lngStartRowNum=0
Do While bEnd
qryIn.StartRowNum = lngStartRowNum
qryOut = notePrxy.NoteQueryPage(qryIn)
If qryOut.ListOfNote.Length > 0 Then
For intIndex = 0 To qryOut.ListOfNote.Length - 1