Hallo!
Leider bin ich noch nicht lange im Script "unterwegs" und habe ein Problem, was mich fast wahnsinnig macht:
Ich versuche eine Volltextsuche zu machen und das Ergebnis in einen Newsletter zu stellen. Das gelingt auch soweit. Was nicht gelingt ist die Tatsache, dass im Newsletter zwar das Ranking und auch der Link angegeben werden, nicht jedoch der Titel.
Dieser ist aktiviert (newsletter.DoSubject = True) und soll aus dem Feld "f_auftragsname" des gefundenen Dokumentes übernommen werden. Die Maske "(Suchergebnis)" enthält die Felder "subject" und "body". In "body" werden mir dann auch die Informationen bis auf den Titel richtig angezeigt.
Was mache ich falsch?
Vielen Dank für Eure Hilfe!
Hier das Script:
Sub Click(Source As Navigator)
Dim ws As New NotesUIWorkspace
Dim session As New Notessession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim newsletter As NotesNewsletter
Dim doc As NotesDocument
Dim uidoc As NotesUIDocument
Dim suche As String
suche = ws.Prompt(PROMPT_OKCANCELEDIT, "Suche", "Bitte Suchbegriff eingeben.", "", "")
If suche <> "" Then
Set db = session.CurrentDatabase
Set collection = db.FTSearch(suche, 0)
Set newsletter = New NotesNewsletter(collection)
Set doc = newsletter.FormatMsgWithDoclinks(db)
newsletter.DoScore = collection.issorted
newsletter.DoSubject = True
newsletter.SubjectItemName = "f_auftragsname"
doc.Subject = "Mafo - Aufträge"
doc.Form = "(Suchergebnis)"
doc.SaveOptions = "0"
Set uidoc = ws.EditDocument(False, doc)
End If
End Sub
