Domino 9 und frühere Versionen > Entwicklung

LotusScript: Wie der aktuelle Doclink senden?

<< < (3/4) > >>

immanuel:
Hallo Zusammen

Nun ist es wieder aktuell: Ich möchte per Lotus Script ein Doclink + Text per Mail versenen. Folgenden Code habe ich versucht, erhalte jedoch die Fehlermeldung "Couldn't get default view id..."


--- Code: ---' BEGIN send mail with doclink
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Dim newDoc As NotesDocument
Set newDoc = New NotesDocument( db )
Dim ret_eval As Variant

Dim aktuellesDoc As NotesDocument
Set aktuellesDoc = workspace.CurrentDocument.Document 'aktuelles Dokument für DocLink

Dim rtitem As NotesRichTextItem
Set rtitem = New NotesRichTextItem( newDoc, "Body" )
Call rtitem.AppendDocLink( aktuellesDoc, "comment")

newDoc.Subject = "IT-Helpdesk - bitte als gelöst bestätigen: "+ticketTitle
newDoc.Body = "Bla bla bla"
ret_eval = Evaluate( |FIELD SendTo := @Trim(@Unique("| + ticketCreator + |":"| + ticketCreatedFor + |"));@True|,newDoc )
newDoc.Send( False )
' END send mail with doclink
--- Ende Code ---

Habt ihr Tipps?

Lieber Gruss
Manuel

koehlerbv:
Die Meldung besagt genau dieses - Du musst in Deiner DB für das Mailen eine Default-View festlegen (egal, welche - Hauptsache, es gibt eine).

HTH,
Bernhard

koehlerbv:
Was in Deinem Code noch fehlt:
newdoc.Form = "Memo"

Und das
newDoc.Body = "Bla bla bla"

wird nicht gut kommen - Du hast Body ja bereits als neues RTItem angelegt und mit einem DocLink gefüllt. Du musst also AppendText einsetzen.

Bernhard

immanuel:
Hi Bernhard!

Danke für deine Tipps!
Im Navigator habe ich eine Initial View definiert, jedoch erhalte ich diese Fehlermeldung. Muss ich sonst noch irgendwo eine default view definieren? Wo könnte ich diese sonst noch angeben?

Gruss
Manuel

koehlerbv:
Navigator ? Das wird in den View properties selbst eingestellt (zweiter Tab, erste Checkbox).

Bernhard

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete