Domino 9 und frühere Versionen > Entwicklung

LotusScript: Wie der aktuelle Doclink senden?

<< < (2/4) > >>

Notestime:
@Rob: Du warst schneller und perfekter  ;) ;D

Rob Green:
ich sage lieber "auch ein blindes Huhn findet mal ein Korn"  ;D 8) 8)

immanuel:
Danke schön...

Habs übersehen.

Aber wie kann ich nun auf das aktuelle Dokument, in dem ich drin bin, über den Datentyp NotesDocument als Doclink senden?

Danke für eure Hilfe!

Meff:
Hi immanuel,

probier das mal :

Dim session As New NotesSession
Dim db As New NotesDatabase("", "test.nsf")
Dim view As NotesView
Dim newDoc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim doc As NotesDocument
Set view = db.GetView( "Boots" )
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.Subject( 0 ) )
  Call rtitem.AddNewLine( 1 )
  Set doc = view.GetNextDocument( doc )
Wend
newDoc.Subject = _
"Here are links to all docs in the Boots folder"
newDoc.SendTo = "Lauri Nodwell"
Call newDoc.Send( False )

Dieser Script läuft über einen View und erstellt aus jedem Dokument einen DocLink. Das ganze kannst Du natürlich noch entsprechend anpassen (z.B. eine DocCollection).

Meff

immanuel:
Danke Meff!

So wie ichs sehe wird hier einfach eine Iteration durchgelaufen und alle Doclinks erstellt. Ich hingehen brauche nur den aktuellen Doclink, des Dokuments.

Wer hat weitere Tipps?

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete