Hallo Manfred,
schau Dir mal die Datenbank in diesen Thread an:
http://atnotes.de/index.php?topic=30806und versuche sie in Verbindung mit einer Schaltfläche (z.B. in einer Mail) zu nutzen.
Code der Schaltfläche:
Dim session As New notessession
Dim tooldb As New notesdatabase("", "")
Dim agent As NotesAgent
Dim code As String
Dim dbname As String
'******************************************************************************************************
dbname = "Server!!Datei.nsf" ' Server !! Pfad der Toolbar-DB
'******************************************************************************************************
If Not tooldb.Open(Strleft(dbname, "!!"), Strright(dbname, "!!")) Then
Msgbox "Die angegebene Projektdatenbank kann nicht geöffnet werden. Bitte wenden Sie sich an Ihren Administrator !", 16, "Fehler"
Exit Sub
End If
Set agent = tooldb.GetAgent("StartProject")
If agent Is Nothing Then
Msgbox "Der angegebene Agent in der Projektdatenbank kann nicht geöffnet werden. Bitte wenden Sie sich an Ihren Administrator !", 16, "Fehler"
Exit Sub
End If
'**** Richtexticon ************************
' Code ins Environment schreiben
code = "DeinProjektCode" ' Codename des auszuführenden Projekts
Call session.SetEnvironmentVar("DBToolbar_Code", code)
Call agent.Run
Msgbox "Bitte starten Sie Ihren Lotus Notes Client noch einmal neu, um die Änderungen sichtbar zu machen.", 64, "Toolbar-Icons installieren"
Mit diesem Code verteilen wir Schaltflächen - wobei sich herausgestellt hat, dass es einfacher ist Icons an bestehende Symbolleisten (z. B. Universal) anzuhängen, da neue Symbolleisten oftmals nicht richtig aktiviert werden.
PS: Der Code kann auch im Hintergrund laufen (z.B. im Postopen der Mail-DB - dann ohne msgbox)
Gruß
André