Das Notes Forum
Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: Wiesel am 22.05.07 - 15:49:10
-
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ß!
-
unprocessedDocuments ist dein Freund
-
notesDatabase.UnprocessedDocuments
...
View actions
When used in a view action, UnprocessedDocuments returns the same documents as an agent that runs on selected documents.
-
Das hat super geklappt
:)