Hallo,
vielen Dank für eure bisherige Hilfe.
Leider klappt es immer noch nicht
Bekomme beim Klick auf den Button eine Meldung "Variant enthält keinen Container"
Was bedeutet denn das??
1)
Das berechnete Feld mit dem Query übernimmt mein Start- und Endedatum nicht.
Das Feld ist als "Formel" mit Typ "berechnet". Ist das so richtig? Als Wert hatte ich dann
die Formel des Query eingetragen...
"(@TextToTime(" + @Text(startDate) + ") <= [adatum] OR Not @TextToTime(" + @Text(startDate) + ") < 1/1/1900) AND
@TextToTime(" + @Text(endDate) + ") >= [adatum] OR Not @TextToTime(" + @Text(endDate) + ") < 1/1/1900)"
2)
Bei meinem Button in der Maske habe ich folgenden Code bei "Click" hinterlegt:
Sub Click(Source As Button)
Dim ws As New NotesUIWorkSpace
Dim db As NotesDatabase
Dim uidoc As NotesUIdocument
Dim doc As NotesDocument
Dim view As NotesView
Set uidoc = ws.CurrentDocument
Set doc = uidoc.document
Set db = doc.ParentDatabase
' hier Ansicht als Objekt holen
Set view = db.GetView("E-Datum")
' Suche ausführen
j = view.FTSearch(doc.Query(0), 0)
' ale Dokumente durchgehen
Set doc = view.GetFirstDocument()
While Not(doc Is Nothing)
Call doc.Send( True, "max.mustermann@xyz.de" )
Set doc = view.GetNextDocument(doc)
Wend
Call view.Clear
End Sub
Gruß