Domino 9 und frühere Versionen > Entwicklung

LotusScript: Wie der aktuelle Doclink senden?

(1/4) > >>

immanuel:
Hallo Zusammen

Wie heisst die Funktion, um ein Mail mit Doclink zu versenen (LotusScript)?
Ein Codebeispiel wäre super!

Danke!

Rob Green:
eine von vielen Möglichkeiten wäre diese hier aus der Help:

Examples: AppendDocLink method  

  1.   This script creates a new mail memo. In the Body item of the memo, the script places a link to the current database.
Dim session As New NotesSession
Dim db As NotesDatabase
Dim newDoc As NotesDocument
Dim rtitem As NotesRichTextItem
Set db = session.CurrentDatabase
Set newDoc = New NotesDocument( db )
Set rtitem = New NotesRichTextItem( newDoc, "Body" )
Call rtitem.AppendDocLink( db, db.Title )
newDoc.Subject = "Here is a link to the database"
newDoc.SendTo = "Lauri Nodwell"
newDoc.Send( False )

In dem Bsp. wird der DocLink zur aktuellen DB erzeugt. Zu einem Document statt DB kann man natürlich auch ein DocLink mitschicken:
Call notesRichTextItem.AppendDocLink( linkTo, comment$ [, HotSpotText$ ])
Parameters
linkTo
NotesDatabase, NotesView, or NotesDocument. The database, view, or document to which you want to create a link....

immanuel:
Hi!

Um das aktuelle Dokument wollte ich folgender Abschnitt verwenden:

   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Set uidoc = workspace.CurrentDocument
   Call rtitem.AppendDocLink(uidoc, "send mail" )

Leider erhalte ich aber eine Fehlermeldung dass ich ein NotedDokument usw. einbinden soll. Dies ist doch ein Notesdokument... Wer hat einen Tipp?

Grüsse
Manuel

Rob Green:
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
Dim Doc as NotesDocument
set doc = uidoc.document
Call rtitem.AppendDocLink(uidoc, "send mail" )

Notestime:
eben nicht. AppendDocLink erwartet, wie Du schon geschreiben hast ein NotesDocument und NICHT ein NotesUIDocument, so wie Du definiert hast

Navigation

[0] Themen-Index

[#] Nächste Seite