Das Notes Forum
Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: wuwu am 02.09.04 - 12:16:36
-
Hallo,
habe eine DB auf dem Server -> notes\data\dbs\vorlagen.nsf.
Aus dieser DB will ich eine Vorlage per Menü (Fenster) auswählen, der Inhalt vom RichText Feld wird mir dann in die Zwischenablage kopiert, diesen Inhalt kann ich dann z.B. ins Mail kopieren.
Folgender Code ist bei im Agenten hinterlegt:
----------------------------------------
Dim s As New NotesSession
Dim ws As New NotesUIworkspace
Dim coll As NotesdocumentCollection
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim uidoc As NotesUIDocument
Dim blockdb As NotesDatabase
Set blockdb = s.GetDatabase( "Servername", "WHDB\Vorlagen.nsf" )
If Not blockdb.isOpen Then
Msgbox "Die Vorlagen DB wurde nicht gefunden, oder Sie haben keinen Zugriff."
Exit Sub
End If
Set coll = ws.Picklistcollection(PICKLIST, False, blockdb.server, blockdb.filepath, "PICKLIST", "Textbaustein", PROMPT)
Set Doc = coll.getfirstdocument
If Doc Is Nothing Then Exit Sub
Set uidoc = ws.Editdocument(False, Doc )
Call uidoc.copy
Call uidoc.close
Print "Der Textbaustein '" + doc.getItemValue( "txt_Title" )(0) + "' befindet sich jetzt in der Zwischenablage!"
End Sub
--------------------
Die Ansicht PICKLIST ist bei mir in der DB vorhanden, ist aber mit Klammern versehen -> (PICKLIST), da Sie ja nicht offiziell angezeigt werden solle.
Wenn ich den Angenten in meiner Mail-DB starte, öffnet er die Maske, die ist grau hinterlegt, davor die Fehlermeldung: Eintrag nicht in Gestaltungsliste -> wenn ich die mit OK bestätige schließt das Fenster wieder.
bitte um Hilfe,
Mfg Horst
-
Hat die Ansicht (PICKLIST) einen Alias-Namen ? Wenn die nämlich nicht sichtbar ist, dann ist die für den Agenten auch nicht sichtbar !
daher bitte einen Alias-Namen vergeben und diesen im Agenten eintragen.
-
Klaus: Der Agent kann auf die unsichtbare Ansicht zugreifen, vorausgesetzt, man schreibt den Namen richtig, nämlich in Klammern, also "(PICKLIST)", und das dürfte wohl auch das Problem des Codes sein, fehlende Klammern
-
@semeaphoros,
das ist richtig, aber ich habe es mir angewöhnt, in so einem Fall mit Alias-Namen zu arbeiten, weil es sonst mit den tausend Klammerm noch unübersichtlicher werden kann....
-
Dem kann ich nur zustimmen, mit Alias ist es deutlich besser lesbar
-
Merci für die Hilfe,
habe jetzt der Ansicht (PICKLIST) einen Alias Namen vergeben:
VIEWPICK
und die Code Zeile:
Set coll = ws.Picklistcollection(PICKLIST, False, blockdb.server, blockdb.filepath, "PICKLIST", "Textbaustein", PROMPT)
auf
Set coll = ws.Picklistcollection(PICKLIST, False, blockdb.server, blockdb.filepath, "VIEWPICK", "Textbaustein", PROMPT)
geändert, die gleiche Meldung, leider.
Woran kann das liegen?
:'(
mfg
-
Könnte dies hier das Problem sein?
type%
Integer. This parameter is restricted to PICKLIST_CUSTOM (3).
(aus der Hilfe zu NotesUIWorkspace.PicklistCollection)
-
Hallo Semeaphoros:
danke vorerst für deine Hilfe!
Zitat:
type%
Integer. This parameter is restricted to PICKLIST_CUSTOM (3).
(aus der Hilfe zu NotesUIWorkspace.PicklistCollection)
mit dem kann ich leider nichts anfangen, bin relativ neu im Notes Programmierung!
Was kann ich machen bzw. was mus ich machen damit ich das Feld angezeigt bekomme.
danke im vorhinein,
mfg horst
-
Die Hilfe als Vorlage nehmen und die vorgegebenen Prameter durch die eigenen Bezeichnungen ersetzen.... ;D
-
Hallo Horst,
warum gehst Du denn jetzt fremd. ???
Ich hätte Dir in unserem Thread im anderem Forum, wo ich Dir den Code schon gepostet habe, bestimmt geholfen.
Gruß von Ekki