Mailsend mit Link zu einer Sicht

[Alexis]

Hallöchen,

Ich tue mich als Laie schwer mit einem Lotus Script, welches ich mir aus dem internationalen Forum herausgepickt habe in der Hoffnung, dieses auf meine Belange verbiegen zu können.

Folgende Aufgabe: Ich möchte zeitgesteuert (1. jeden Monats) einer festen Gruppe von Mitarbeitern eine Mail zukommen lassen - jedoch - mit einem Link zu einer bestimmten Sicht (z.B. „News“).

Hier das Script, bei dem die Zeile <Set db = session.CurrentDatabase> bereits eine Fehlermeldung auslöst: „Variant does not contain an object“.

Dim db As NotesDatabase      
Dim docmail As notesdocument
Dim view As NotesView
Dim id As String ' UNID of view
Dim rItem As NotesRichTextItem ' mail body
Dim mailDoc As NotesDocument ' memo

Sub Initialize
Set db = session.CurrentDatabase
Set view = db.GetView("News")
id = view.UniversalID
Set mailDoc = New NotesDocument(db)
mailDoc.Form = "Memo"
mailDoc.SendTo = “Alexis”
Set rItem = mailDoc.GetFirstItem("Body")
Call rItem.AppendDocLink(view, "Click here to open view")
Call mailDoc.Save(True, True)
End Sub

Kann mir jemand dabei helfen oder gibt es eine Lösung in der Formula-Sprache für die obige Aufgabenstellung?

Alexis

[klaussal]

... dim session  fehlt  

[Alexis]

Hallo,

noch ne Hürde im obigen Script:

Call rItem.AppendDocLink(id, "Click here to open view")

läuft auf die Fehlermeldung: Object Variable not set

Any help?

Alexis

[Axel_Janssen]

Hallo,

noch ne Hürde im obigen Script:

Call rItem.AppendDocLink(id, "Click here to open view")

läuft auf die Fehlermeldung: Object Variable not set

Any help?

Alexis

1. auf jeden Fall ist das korrekt (nicht mit UniversalID, sondern mit Objekt selbst:  
Call rItem.AppendDocLink(view, "Click here to open view");

2. Du hast das RichTextItem nicht initialisiert.
Versuch mal statt:
Set rItem = mailDoc.GetFirstItem("Body")
das hier
Dim rtItem As new RichTextItem(docMail, "Body")

3. Mache dich mit dem magischen LotusNotesDebugger vertraut.
File(oder Datei)/ Tools (oder Werkzeuge) Lotus Debugger.
Hak das mal an.

Gruß Axel

[Alexis]

Hallo Axel,

leider führt Dein Tipp zu einem Syntaxfehler.

Ich versuch mich jetzt mal am Debugger. Im ersten Schritt hat er mir lediglich die Zeile gezeigt, an dem der Fehler bei der Ausführung auftritt. Das hilft mir wenig. Vielleicht gibt der Debugger aber auch noch weitere Infos heraus. Ich suche....

Danke für jegliche Mühe

Alexis

[Axel_Janssen]

leider führt Dein Tipp zu einem Syntaxfehler.

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.  

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

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).

[Alexis]

Hallo Axel,

super Hilfe von Dir! Es klappt bestens.

Einige Anpassungen kann ich selber noch einbringen, da jetzt das Gerüst steht.

Danke  

Alexis