Domino 9 und frühere Versionen > ND8: Entwicklung

E-Mail Per Lotus Script Versenden

(1/4) > >>

niu:
Hallo Miteinander,

Ich bin relativ neu im Lotus Script und nun habe ich eines erstellt, welches mir eine Mail versenden sollte. Jedoch bekomme ich die Fehlermeldung "Object Variable not set".  Ich finde den Fehler nicht.

Folgende Situation:

Eine Maske mit der man ein neues Dokument erstellen kann. Beim Speichern des Dokuments sollte eine Mail an den User mit einem Link zu dem gerade erstellen Dokument. Das Script habe ich hinter einer Aktion erstellt.

Sub Click(Source As Button)
   
   Dim session As NotesSession
   Dim db As NotesDatabase
   Dim doc As NotesDocument
   Dim newdoc As NotesDocument
   Dim rtitem As NotesRichTextItem
   
   Set db = session.CurrentDatabase
   Set doc = ws.CurrentDocument
   
   Set newdoc = New NotesDocument(db)
   Set rtitem = New NotesRichTextItem(newdoc, "Body")
   
   Call rtitem.AppendText("Nachrichten Text")
   Call rtitem.AddNewline(1)
   Call rtitem.AppendDocLink (doc, "Link zu Dokument")
   newdoc.Form = "aktuelle Maske"
   newdoc.Subject = "Betreff"
   newdoc.SendTo = "user@user.com"
   Call newdoc.Send (True)
   
End Sub

Danke und Gruss

Samuel

ascabg:
Hallo,

Wo in Deinem Script initialisiert Du denn die NotesSession?


Andreas

niu:
Hallo andreas

Ich hatte sie zwischen dem Dim und dem Set db gemacht jedoch erhielt ich dabei einen Fehler "not a member: initialize".
Habe mir dafür die Hilfe von der IBM Seite gezogen, welche mich jedoch nicht weitergebracht hat. Danach habe ich sie weggelassen.

   Dim rtitem As NotesRichTextItem
   
   Call session.Initialize("mailsend")
   
   Set db = session.CurrentDatabase

ascabg:
Hallo,

Kurzer Auszug aus der Hilfe zu Call session.Initialize().

--- Zitat ---Note  This method is supported in COM only.
--- Ende Zitat ---

Ein einfaches Dim session As New NotesSession reicht vokommen aus, wenn Du Dich nur
innerhalb von Notes bewegst.

Ein Dim session As NotesSession verschafft Di nur eine Objekt-Variable vom Typ NotesSession, jedoch
ist diese noch Nothing.


Andreas

TRO:
zwei Änderungen:

Dim session as New NotesSession


Set doc = ws.CurrentDocument.Document


hth

Thomas

Navigation

[0] Themen-Index

[#] Nächste Seite