Newsletter / Documentcollection Problem

[MrXYZ]

hi @ALL,

wo ist hier der Fehler  In der View sind 6 Dokumente und verschickt wird das Memo nur mit dem ersten Link, sollen aber alle 6 sein ...

Function sendNewsletter ()
   
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim dc As NotesDocumentCollection
   
   Dim news As NotesNewsletter
   Set db = session.CurrentDatabase
   Set view = db.GetView( "By Category" )
   Dim doc As NotesDocument
   
   
   Set dc = view.GetAllDocumentsByKey("Spanish Leather", False)
   
   
   Set news = New NotesNewsletter(dc)
   news.DoSubject = True
   news.SubjectItemName = "Title"
   Set doc = news.FormatMsgWithDoclinks( db )
   doc.Form = "Memo"
   doc.Subject = "Test Report Newsletter"
   Call doc.Send( False, "User/DE" )
   
End Function

[TMC]

Ich habe mit der NotesNewsletter - Klasse noch nie gearbeitet, aber was gibt denn dc.Count bei Dir aus?