Löschbefehl

ralph71 · 12. Januar 2006

Hallo zusammen,

habe nachfolgenden Code geschrieben. Dieser soll im Ordner "gesendet" alle Mails mit "FAX=" im Feld sendto löschen.

Jetzt fehlt mir nur der Löschbefehl. Sowohl die Hilfe als auch das Forum haben mir jetzt nicht weitergeholfen (wohl mangels Wissen).

Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Dim view As NotesView
Set view = db.GetView("($Sent)")
Dim doc As NotesDocument
Set doc = view.GetFirstDocument
Dim empf As String
Do Until doc Is Nothing
empf = doc.sendto(0)
If Left$(empf, 4) = "FAX=" Then
'Löschbefehl
End If
Set doc = view.GetNextDocument(doc)
Loop

End Sub

Danke!

taurec · 12. Januar 2006

Wie wäre es mit doc.Remove ?

dnotes · 12. Januar 2006

Beachte bei doc.remove, dass Du Deine DO-Schleife noch etwas anpassen musst dabei.

ralph71 · 12. Januar 2006

Frage1: remove--> denke, das Dokument wird entfernt, nicht gelöscht, oder? Möchte es löschen lassen.

Frage2: Do-Schleife: Wie anpassen bzw. warum?

taurec · 12. Januar 2006

Aus der Notes Hilfe:

Zitat

Permanently removes a document from a database

Deine do Schleife kann sich das nächste Dokument nicht holen wenn du das aktuelle schon gelöscht hast

dnotes · 12. Januar 2006

remove = loeschen

Wie DO anpassen?

Do Until doc Is Nothing
empf = doc.sendto(0)
set del_doc = doc
Set doc = view.GetNextDocument(doc)
If Left$(empf, 4) = "FAX=" Then
del_doc.remove
End If

Loop

Diali · 12. Januar 2006

oder mit einem Search und einer NotesDocumentCollection

Code

dim session as new NotesSession
dim ndt as new NotesDateTime("30.12.1899")
dim db as NotesDatabase
dim dc as NotesDocumentCollection
set db = session.CurrentDatabase


sf = {DeliveredDate = "" & PostedDate != "" & !(@IsMember("S"; ExcludeFromView)) & Left(empf, 4) = "FAX="}
dc = db.Search( sf, ndt, 0)
if dc.Count > 0 Thne
   Call dc.RemoveAll( true )
end if

Alles anzeigen

Schau dir noch den Unterschied von Remove und RemovePermanently an. Bei Softdel. wird bei Remove nur das Dokument in den Papierkorb verschoben, mit RemovePermanently wird das Dokument hart aus der DB gelöscht.

Gruß
Dirk

ralph71 · 13. Januar 2006

Super Sache. Funzt!

Teilen