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!