Mail funktion mit Lotus script

Ich hatte dafuer mal eine routine geschrieben

Sub mail(doc As notesdocument)
	Dim db As notesdatabase
	Set db = s.currentdatabase
	Dim mail_doc As notesdocument
	Set mail_doc = db.createdocument
	Dim rtitem As New notesrichtextitem(mail_doc,"Body")
	Call rtitem.AppendDocLink( doc, doc.Titel(0) )
	With mail_doc
		.form = "Memo"
		.subject = "Hier steht das subjekt drin"
		.sendTo = "Empfaenger1"
		.send False
	End With
End Sub

nach Belieben aufrufen, veraendern oder ander Werte noch uebergeben

indem Du vor dem Aufruf der Sub mail(doc) das document object dementsprechend erzeugst
Tipp.

set Fremd_doc = andereDB.getDocumentbyID ...z.B.
call mail(Fremd_doc)

klar, aber das Dokumentenobjekt musste dennoch erzeugen...wie sollte Notes sonst wissen von welchem Dok Du einen Link angehaengt haben moechtest.
*Ich fuerchte, das sub ist nicht das primaere Problem

Also, verscuhen wir mal...der nachfolgende Code ist in einem Button untergebracht

Sub Click(Source As Button)
	Dim ws As New notesuiworkspace
	Set s = New notessession
	Dim db As notesdatabase
	Dim link_db As notesdatabase
	Set link_db = New notesdatabase("","names.nsf")  'z.B. das lokale Adressbuch
	Set db = s.currentdatabase
	Set s = New notessession
	Set uidoc = ws.currentdocument
	Dim v As notesview
	Set v = link_db.getView("Locations")
	Set link_doc = v.getDocumentbykey("Internet")
	Dim item As notesitem


	Dim mail_doc As notesdocument
	Set mail_doc = db.createdocument
	Dim rtitem As New notesrichtextitem(mail_doc,"Body")
	Call rtitem.AppendDocLink( link_doc, link_doc.Titel(0) )
	With mail_doc
		.form = "Memo"
		.subject = "Hier steht das subjekt drin"
		.sendTo = "Empfaenger_name"
		.send False
	End With

End Sub

Ich will in dem Beispiel auf das Arbeitsumgebungsdokument in meinem lokalen Adressbuch verlinken (was wenig Sinn fuer andere macht, da sie keinen Zugriff darauf haben..aber als Beispiel egal)
Das link_doc ist das Dokument auf das der link verweisen soll.
ich erzeuge also ein Datenbank objekt...
Set link_db = New notesdatabase("","names.nsf")
ein Ansicht objekt...
Set v = link_db.getView("Locations")
*gehe in die Ansicht "Locations" also und hole mir das Dokument bei dem in der ersten sortierten spalte dieser Ansicht der Wert "Internet" steht....
Set link_doc = v.getDocumentbykey("Internet")

na ja, und der Rest iss anhaengen und schicken . iss doch gar nicht so schwer

und nach der ersten mail..........
:pint: *grins

Dann machste in der reportmaske eine Aktion..z.B. und fuegst folgenden Code dort ein....

Sub Click(Source As Button)
	Dim ws As New notesuiworkspace
	dim s as New notessession
	Dim db As notesdatabase
	Set db = s.currentdatabase


	Set uidoc = ws.currentdocument
	Set link_doc = uidoc.document
	Dim item As notesitem


	Dim mail_doc As notesdocument
	Set mail_doc = db.createdocument
	Dim rtitem As New notesrichtextitem(mail_doc,"Body")
	Call rtitem.AppendDocLink( link_doc, link_doc.Titel(0) )
	With mail_doc
		.form = "Memo"
		.subject = "Hier steht das subjekt drin"
		.sendTo = "Empfaenger_name"
		.send False
	End With

End Sub

Durch druecken dieser Action wird nun das aktuelle Dok versendet. Musst nur naoch sehen wo du den empfaenger herholst...aus einem Feld im Report oder festverdrahtet.

Dazu vielleicht erklaerend etwas..
1. Das Dokument sollte vor oder kurz nach dem Senden gespeichert werden...das Report-Dok. Ihc vermute , Du hast geteste und danach das Dok nicht gespeichert. Dann kann´s nicht gefunden werden.
2. - aber das scheint ja zu funktionieren - braucht man fuer die Doclinks in der DB eine Standard-View...aber wenn die nicht vorhanden ist kommt schon beim Senden eine Fehlermeldung

Da brauchste doch nur den Wert abzufragen, der angeklickt sein soll
Angenommen, du hast eine Checkbox mit 3 Werten.... "Wert1":"Wert2":"Wert3".... und das Feld heisst "checker"
Dann koennte eine Formel so aussehen..
@if ( checker = "Wert2"; action ; s_action) oder
@if( checker = "Wert1" | checker = "Wert3"; dann.......)

Hoffe, ich habe verstanden, was Du meintest

:lol:

Du meinst einen Button..Knopf???
Eine Checkbox habe ich fuer ein Feld mit Mehrfachauswahl gehalten.. :lol:
Also, Du willst wissen, ob ein Button gedrueckt wird oder was??? Oder willste wissen, ob er gedrueckt wurde??

Ich weiss nicht ganz genau was Du willst. Wilste spaeter in einem Dok feststellen, ob ein Button mal gedrueckt wurde?? Oder willste selber in einem Dok sein und weisst nicht mehr ob Du den Button gedrueckt hattest?? *gruebel

Aber auf jeden Fall kannste bei dem Button zusaetzlich hinterlegen das ein feldwert gesetzt werden soll. z.B.
Field click_button := "1" (Formelsprache)

doc.click_button = "1" (LS)

und so kannste aus anderen events heraus abfragen wenn da eine "1" drin steht. wurde der Button mal gedrueckt, ansonste.....