Eintrag nicht in Gestaltungsliste

[wuwu]

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

[klaussal]

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.

[Semeaphoros]

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

[klaussal]

@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....

[Semeaphoros]

Dem kann ich nur zustimmen, mit Alias ist es deutlich besser lesbar

[wuwu]

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

[Semeaphoros]

Könnte dies hier das Problem sein?

type%
Integer. This parameter is restricted to PICKLIST_CUSTOM (3).

(aus der Hilfe zu NotesUIWorkspace.PicklistCollection)

[wuwu]

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

[klaussal]

Die Hilfe als Vorlage nehmen und die vorgegebenen Prameter durch die eigenen Bezeichnungen ersetzen....

[elajen]

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