Hallo zusammen,
ich habe eine für euch bestimmt einfache Frage.
Ich habe eine Datenbank in der Protokolle gespeichert werden sollen. Über eine Maske (fm_minutes werden die Haupinformationen eingetragen wie Moderator etc.)
In dem jeweiligen Protokoll ist eine eingebetete Ansicht (embeddeprotocolentry), in der die einzelnen Jobs des Protokolls gespeichert, werden. Diese werden über eine zusätzliche Maske db_detail eingegeben. Hier werden Verantwortliche für den jeweiligen Job festgelegt (hresponsible)
jetzt soll über einen Button im Hauptdokument eine Mail an alle verschickt werden, die einen Job bekommen haben.
Mein Code sieht so aus... kann mit Sicherheit auch noch an der ein oder anderen Stelle optimiert werden, aber ich komme an die richtigen Felder und die richtigen Dokumente, er verschickt mir die Mail nur nicht.
Ich nehme an, es liegt daran liegt, daß es Source als Button ist und nicht NotesUIDokument, aber ich steh auf dem Schlauch wie ich das am besten mit den Abfragen als Scriptbibliothek oder Agent starten kann.
Kann ich das so wie es ist kopieren und als Agent anlegen oder muss ich mein Script auseinandernehmen?
Danke schon mal im voraus.
Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim maildoc As NotesDocument
Dim bodyitem As NotesRichTextItem
Dim senddoc As NotesItem
Dim mailrecip As notesitem
Dim view As NotesView
Dim docParent As NotesDocument
Dim responsible As NotesItem
Dim strUnid As String
Dim MainID As String
Dim docnext As NotesDocument
Set db = session.CurrentDatabase
Set view = db.getview("EmbeddedProtocolEntry")
Set docnext = view.GetFirstDocument
Set refdoc = ws.CurrentDocument.Document
MainID = refdoc.Getitemvalue("fm_minutes_DocID")(0)
While Not (docnext Is Nothing)
strUnid = docnext.Getitemvalue( "db_detail_doc_id" )(0)
If Trim (strUnid) = Trim (MainID) Then
Set maildoc = New NotesDocument (db)
maildoc.form="Memo"
maildoc.principal="New Job available"
Call maildoc.Replaceitemvalue("Subject",docnext.Getitemvalue("hDescription")(0))
Call maildoc.Replaceitemvalue("sendto",docnext.Getitemvalue("hresponsible")(0))
'Call maildoc.Replaceitemvalue ("Copyto",mailconf.Getitemvalue("Copy_recp"))
Set bodyitem=maildoc.CreateRichTextItem("Body")
bodyitem.AppendText "New Job for Meeting: " + refdoc.title (0) + " please click attached link to open --> "
Call bodyitem.AppendDocLink( docnext, "" )
Call docnext.Save(True,False)
maildoc.Send (False)
End If
Set docnext = view.GetnextDocument (docnext)
Wend
End Sub
