Gewählte Doks per Script ansprechen

[Wiesel]

Hallo!

Ich habe ein Script erstellt (was auch toll funzt), indem ich aus einer Ansicht heraus Dokumentverknüpfungen alle dort befindlichen Doks erstelle und die in eine Mail an einen bestimmten Personenkreis verschicke.

Hier mal der Script:

Sub Initialize
   Dim workspace As New NotesUIWorkspace
   Dim session As New NotesSession
   Dim db As  NotesDatabase
   Dim view As NotesView
   Dim newDoc As NotesDocument
   Dim rtitem As NotesRichTextItem
   Dim doc As NotesDocument
   
   Dim picklist As Variant
   picklist = workspace.PickListStrings( PICKLIST_NAMES, True )
   
   Set db = session.CurrentDatabase
   Set view = db.GetView( "nach Abteilung" )
   Set newDoc = New NotesDocument( db )
   Set rtitem = New NotesRichTextItem( newDoc, "Body" )
   Set doc = view.GetFirstDocument
   While Not ( doc Is Nothing )
      Call rtitem.AppendDocLink( doc, db.Title )
      Call rtitem.AddTab( 1 )
      Call rtitem.AppendText( doc.txtBetreff( 0 ) )
      Call rtitem.AddNewLine( 1 )
      Set doc = view.GetNextDocument( doc )
   Wend
   newDoc.Subject = "Beschluss"
   newDoc.SendTo = picklist
   Call newDoc.Send( False )
   
End Sub


Ich möchte aber eigentlich nur Verknüpfungen von gewählten Dokumenten haben und nicht eienr ganzen Ansicht. Wie realisiere ich das?

Dank und Gruß!

[eknori]

unprocessedDocuments ist dein Freund

[m3]

notesDatabase.UnprocessedDocuments
...
View actions
When used in a view action, UnprocessedDocuments returns the same documents as an agent that runs on selected documents.

[Wiesel]

Das hat super geklappt