Newsletter ohne "Titel" - warum?

[Ceilling]

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

[Glombi]

Aus der Designer Hilfe
You must set both SubjectItemName and DoSubject before calling FormatMsgWithDoclinks.

Also:

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)
newsletter.DoScore = collection.issorted
newsletter.DoSubject = True
newsletter.SubjectItemName = "f_auftragsname"
Set doc = newsletter.FormatMsgWithDoclinks(db)
doc.Subject = "Mafo - Aufträge"
doc.Form = "(Suchergebnis)"
doc.SaveOptions = "0"
Set uidoc = ws.EditDocument(False, doc)
End If
End Sub


Andreas

[Glombi]

Bitte vermeide zukünftig Doppelpostings oder weise zumindest darauf hin!
Bei der Registrierung hier wurde in den Richtlinien extra darauf hingewiesen.

http://www.dominoforum.de/modules/newbb/viewtopic.php?topic_id=9297&forum=5&post_id=48734#forumpost48734

Dort ist bereits der gleiche Tipp gegeben worden!

Andreas
P.S: Willkommen übrigens noch hier im Forum!

[Ceilling]

Hallo Glombi!

Das Script war gestern wohl nicht mein einziges Problem :-()

Irgendwie ist mit der Registrierung und dem Hin und Her auf dem Firmenrechner etwas schiefgegangen. Aber, ich werde mich bessern!

Das Problem ist mit Deinem Hinweis gelöst worden - vielen Dank!

Es war auch eigentlich so, dass der Befehl folgend war, ich hatte diesen jedoch bei der Lösung eines anderen Problemes nach oben verfrachtet und dann nicht mehr daran gedacht.

Aber, macht nichts, ich bin glücklich :-))

Viele Grüße
Ceilling