Beiträge von lotusfee

  • Leserfeld per LS setzen

    Hallo,
    ich habe folgendes Problem...
    Ich kopiere ein Dokument per LS von einer Datenbank in die andere. Dabei wird auch ein Leserfeld geschrieben. Dort stehe dann zwei Datenbank-Rollen drin.
    Leider wirkt das Leserfeld erst, wenn man das Dokument in der Ziel-DB nochmal öffnet und wieder speichert.
    Wie kann ich dafür sorgen, daß das Leserfeld auch direkt als Leserfeld funktioniert und nicht als Textfeld?
    Danke! X/

  • Symbolleiste exportieren

    In Notes 8.5 habe ich mir eine Symbolleiste mit eigenen Symbolen angelegt. Offensichtlich kommt man da aber nur dran über die bookmark.nsf.
    Symbolleisten importieren geht offensichtlich auch, aber wie kann ich in Notes 8.5 meine Symbolleiste exportieren?

  • Notes schließt sich ohne Vorwarnung

    Und schon wieder. Heute bereits 4x
    Es läuft KEIN Zusatztool. Man arbeitet in einem anderen Programm und stellt plötzlich fest, dass sich Notes beendet hat.
    Dann kann ich im TaskManager noch die 3 Prozesse beenden und alles wieder von vorn ;(

  • Evaluate

    Ich wußte doach, daß ich da jedes Mal von der Hilfe verarscht werde ;(


    Habe das Script aber sowieso nochmal auf PickListCollections anstelle von PickListStrings geändert...
    Gibt's da eigentlich große PerformanceUnterschiede?

  • Evaluate

    Hi!


    Irgendwie verstehe ich nicht, wo der Fehler liegt...
    Dim formula As String
    Dim eval As Variant
    Dim se As NotesSession
    Set se = New NotesSession
    Call se.Initialize
    .
    .
    formula = "@Elements(" + picklist + ")"
    eval = se.Evaluate(formula, doc)


    Fehlermeldung beim Speichern des Scriptes: "Note a Member: EVALUATE"

  • RichText Item von einem Dokument zum anderen kopieren

    Ok, mit UIDoc klappt es so leidlich.


    Habe aber gleich noch ein zweites Problem mit RichText... ;(
    Ich kopiere per LS den Inhalt eines RT-Feldes aus einem ausgewählten Dokument in das aktuelle Dokument...
    Set item = maildoc.GetFirstItem( "Body" )
    Call item.CopyItemToDocument( doc, "P_Text" )


    Jetzt ist das Item da und ich kann es auslesen. Es wird aber im Frontend nicht angezeigt. In den Dokumenteigenschaften ist das Feld ebenfalls leer. grrrrrrr

  • Gelesenes Dokument mit Anhang wird als geändert markiert

    Hi!
    In einer Standard-Diskussionsdatenbank passiert es mir immer wieder, daß ein Dokument, nachdem ich einen Anhang (z.B. jpg oder pdf) geöffnet habe, als von mir geändert markiert wird.
    Die Maske ist NICHT auf automatischen Bearbeitungsmodus gesetzt und die pdf wird auch nur im Acrobat Reader geöffnet.


    Kennt Jemand das Problem?

  • "object variable not set" beim Agenten im Server-Kontext

    %REM
    Agent Weitergabe_an_PR
    %END REM
    Option Public
    Option Declare


    Dim se As NotesSession
    Dim db As NotesDatabase
    'Dim view As NotesView
    Dim query As String
    Dim coll As NotesDocumentCollection


    Dim doc As NotesDocument
    Dim profile As NotesDocument
    Dim item As NotesItem


    Dim prdb As NotesDatabase
    Dim prdoc As NotesDocument
    Dim prdb_srv As string
    Dim prdb_name As String


    Dim history_text As String
    Dim akt_user As String


    Sub Initialize
    '**************************************************************************************************
    '* Dokument aus der Einlieferer_DB in die PR_DB kopieren
    '**************************************************************************************************
    Set se = New NotesSession
    Set db = se.Currentdatabase
    Print db.filename
    ' Set view = db.Getview("($Vorlagen_PR_pending)")
    query = {@contains(Form; "ARC") & Status = "1" & copied != "1"}
    Print "query: " + query
    ' Die Abfrage wird korrekt angezeigt.
    Set coll = db.Search(query, Nothing, 0)
    Print "Anzahl: " + CStr(coll.Count)
    ' Im Debugger im User-Kontext wird hier 2 angezeigt. Im Server-Kontext 0

    Set profile = db.Getprofiledocument("($Profile)")
    prdb_srv = profile.PR_DB_Server(0)
    prdb_name = profile.PR_DB_Name(0)

    Set prdb = New NotesDatabase(prdb_srv, prdb_name)
    'akt_user = se.UserNameList(0).Common
    akt_user = "Server"
    'Set doc = view.Getfirstdocument()
    Set doc = coll.Getfirstdocument()

    While Not doc Is Nothing
    Set prdoc = doc.CopyToDatabase(prdb)


    ...