Domino 9 und frühere Versionen > Entwicklung

Mailsend mit Link zu einer Sicht

<< < (2/3) > >>

Axel_Janssen:

--- Zitat von: Alexis am 18.08.03 - 13:40:09 ---leider führt Dein Tipp zu einem Syntaxfehler.

--- Ende Zitat ---

Hi Alexis,

es würde die Sache grundsätzlich ein wenig vereinfachen, wenn du den genauen Syntaxfehler, den das System dir mitteilt, posten würdest.
Meine Kirstallkugel ist nach der Hitzewelle leider immer noch ein wenig beschlagen.  ;D

Gruß Axel

Axel_Janssen:
o.k. ich war syntaktisch bei der Java Implementierung der Notes DOM.

try
Dim rtItem As new NotesRichTextItem(docMail, "Body")

Alexis:
Hallo Axel,

bitte um Nachsicht. Wer Hilfe sucht, sollte wirklich die Problematik so weit wie möglich präzisieren.

Hier die Fehlermeldung bei dem Versuch

Set rItem = mailDoc.GetFirstItem("Body")
zu ersetzen durch:
Dim rtItem As new RichTextItem(docMail, "Body")

"Data not saved due to script error(s)".

Mein Ansatz mit:
Set rItem = mailDoc.GetFirstItem("Body")
führt zu dem oben beschriebenen Fehler. Im Attachment hab' ich mal einen Screenshot des Debuggers eingestellt.

Vielleicht gibt das einen Hinweis.

Danke für jede Hilfe

Alexis

Alexis:
Hallo Axel,

nun bekomme ich "Type mismatch" um die Ohren geschlagen.

???

Alexis

Axel_Janssen:
hab ich getestet:


--- Code: ---Sub Initialize
   Dim session As NotesSession  
   Dim db As NotesDatabase    
   Dim mailDoc As notesdocument
   Dim view As NotesView
   Dim id As String ' UNID of view
   Dim rItem As NotesRichTextItem ' mail body
   
   
   Set session = New NotesSession
   Set db = session.CurrentDatabase
   Set view = db.GetView("EntriesByWeek2")
   'id = view.UniversalID
   Set mailDoc = New NotesDocument(db)
   mailDoc.Form = "Memo"
   mailDoc.SendTo = "Axel/Comp@domain"
   Set rtItem = New NotesRichTextItem(mailDoc, "Body")
   Call rtItem.AppendDocLink(view, "Click here to open view")
   Call mailDoc.Save(True, True)
   
   mailDoc.send False
End Sub

--- Ende Code ---

passe viewName und sendTo an deine Umgebung an und probiers auf. Das Problem mit dem getFirstItem("Body") ist, dass du so kein RichTextItem im Dokument erzeugst, sondern nur auf ein bestehendes zugreifst. Ich glaub nach einem doc.save in diesem Agenten würde es erzeugt und wäre beschreibbar. Das ist aber häßlich.

Hab ich vergessen im code. Versuch
mailDoc.SaveMessageOnSend = true
statt
Call mailDoc.Save(True, True)

(ist besser für performance und mit doc.save sollte man sowieso so sparsam wie möglich umgehen.

Gruß Axel


UND ARBEITE DICH IN DEM DEBUGGER EIN.
LotusScript ohne Debugger zu entwickeln ist ungefähr so, als würdest du beim Autofahren die Augen verbinden (gilt besonders für Anfänger).

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete