Domino 9 und frühere Versionen > Entwicklung

evaluate + mailsend + doclink

<< < (3/3)

klaussal:
... appenddoclink   ???

--- Code: ---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 )

--- Ende Code ---

Axel_Janssen:
naja appendDocLink nicht mit Datenbank-Objekt sondern mit dem Dokument als Parameter. Steht in der Hilfe (falls das Fragezeichen-Icon auf eine Unklarheit verweisen soll).

Und ich würde mir dringend überlegen mit Funktionen zu arbeiten.

Sowas wie dieser stub -->

function sendMailWithDocLink (curDb As NotesDatabase, curDoc As NotesDocument) as Integer

onError goto Fehler

sendMailWithDocLink = true

exit function

Fehler:
print "Fehler " & Error$ & "(" & Cstr(Err) & ") in Zeile: " & Cstr(Erln)
sendMailWithDocLink = false
end function

Raabiat:
 ;D ;D

perfekto...

vielen dank

läuft alles bestens und viel eleganter ;)

Navigation

[0] Themen-Index

[*] Vorherige Sete