habe gerade noch ein anderes Problem. Und zwar wird in Dokumenten eine Aktion angezeigt "Mail an alle Teilnehmer senden". Ziel soll sein, dass beim Klick über die MailDB des Benutzers eine neue Nachricht erzeugt wird und dort bereits die Felder SendTo und Subject vorbelegt sind. Mein Code ist in einem Agenten hinterlegt, in der Schaltfläche das Kommando den Agenten zu starten. Leider passiert beim Anklicken gar nichts. Könnt ihr mir helfen?
Option Public
Sub Initialize
Dim session As New NotesSession
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim user As New NotesName(session.UserName)
Dim maildb As New NotesDatabase( "", "" )
Set uidoc = workspace.CurrentDocument
Set db = session.CurrentDatabase
Set doc = uidoc.Document
On Error GoTo ErrorHandler
Call maildb.OpenMail
If Not (maildb.IsOpen) Then
MessageBox "Die Maildatenbank <" & maildb.Title & "> auf dem Server <" & maildb.Server & "> konnten nicht geöffnet werden. Evtl. besteht ein Problem mit den Zugriffsrechten oder der Arbeitsumgebung.", 16, "Maildatenbank konnte nicht geöffnet werden"
Exit Sub
End If
Dim newmail As New NotesDocument(maildb)
Call newmail.ReplaceItemValue("Form","Memo")
Call newmail.ReplaceItemValue("Subject",doc.Bezeichnung)
Call newmail.ReplaceItemValue("SendTo",doc.Teilnehmer)
GoTo Ende
ErrorHandler:
MsgBox "Mail --> Fehler in Zeile: " & Erl & " (Error" & Str(Err) & ": " & Error$ & ")"
Exit Sub
Ende:
End Sub