Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collectionA As NotesDocumentCollection
Dim docA As NotesDocument
Set db = session.CurrentDatabase
Set CollectionA= db.FTSearch("Hallo",10)
Set docA = collectionA.GetFirstDocument()
If docA Is Nothing Then
Messagebox("Document not found")
Else
Delete.docA
End If
End Sub
Er findet aber die Mail nicht.
Ok Fehler wurde behebt
Hatte auch keine Mail namens Hallo
Danke für die schnelle hilfe
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collectionA As NotesDocumentCollection
Dim docA As NotesDocument
Set db = session.CurrentDatabase
Set CollectionA= db.FTSearch("Hallo",10)
Set docA = collectionA.GetFirstDocument()
If docA Is Nothing Then
Messagebox("Document not found")
Else
call docA.remove(true)
End If