UIdoc geht bei Notes 5 aber bei 6 nicht?!

  • Hi ...


    ich möchte mir das aktuelle NotesDokument als UI Doc holen, allerdings bereits beim initialisieren eines seiner Felder.


    Das geht bei Notes 5 normal mit


    Dim ws As New NotesUIWorkspace
    Dim uidoc As NotesUIDocument
    Set uidoc = ws.CurrentDocument


    im Initialisierungsbereich des Feldes.


    bei 6 kann er es dann plötzlich nicht ... was kann ich tun?


    Ziel ist, ein Skript mit einigen Feldern aus diesem NotesDokument zu versorgen, bevor der Benutzer auf dem UI Doc rumklicken kann.


    Hintergrund: das Skript versorgt dann das NotesUIDoc mit Werten, die dieses an ein eingebettetes MSWord Doc überträgt.


    Kann der Benutzer nun "vor dem Skriptaufruf" auf das WordSymbol klicken, werden dort die Textmarken nicht ausgefüllt.


    :-?

  • So geht das eigentlich immer noch. Was genau tut denn nicht?

    Life is not a journey to the grave with the intention of arriving safely in a pretty and well-preserved body, but rather to skid in broadside, thoroughly used up, totally worn out, and loudly proclaiming "Wow, what a ride!!! :evil:
    Beschleunigung ist, wenn die Tränen der Ergriffenheit waagrecht zum Ohr hin abfliessen - Walter Röhrl

  • also er füllt dann kein UIdoc mehr ..., sodass ich auf die UIdoc Felder nicht zugreifen kann ...


    er steigt also schon an der Stelle


    Set uidoc = ws.CurrentDocument


    aus ...


    Vielleicht geht es mit einem onFocus ... kann man per Javascript ein Lotusskript ausführen bzw. anstossen?


    ich hab bisher nur alert("Test"); ausprobiert ... das geht

  • so sieht das ganze Feldinitialize aus


    Sub Initialize
    Dim ws As New NotesUIWorkspace
    Dim uidoc As NotesUIDocument
    Set uidoc = ws.CurrentDocument
    WordSender$ = uidoc.FieldGetText( "WordSender")
    WordDate$ = uidoc.FieldGetText("WordDate")
    SendingOption$ = uidoc.FieldGetText("WordSendingOption")
    WordSubject$ = uidoc.FieldGetText("Subject")
    WordSalutation$ = uidoc.FieldGetText("AnredeKomplett")
    WordSignOption$ = uidoc.FieldGetText("WordSignOption")

    Call SetWordFields(uidoc.Document,WordSender$,WordDate$,SendingOption$,WordSubject$, WordSalutation$, WordSignOption$)
    End Sub