SelectDocument selektiert nicht wirklich

    Hi, wieso bekomme ich hier die Meldung "no document ist selected, please select a doc to response to"


    Dim workspace As New NotesUIWorkspace
    Call workspace.OpenDatabase _
    ("Serv1", "DEN.nsf", "Adressen","Huhn",True,False)
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim uidoc As NotesUIDocument
    Dim doc As NotesDocument
    Dim uiview As NotesUIView
    Set db = session.CurrentDatabase
    Set uiview = workspace.CurrentView

    Set doc = db.GetDocumentByUNID("13...2F")

    Call uiview.SelectDocument(doc)

    'An der Stelle steht die Auswahl auch sichtbar korrekt
    'bis hierher also alles in Ordnung


    Set uidoc = workspace.ComposeDocument( "", "", "f_Antwort" )

    Call uidoc.FieldSetText("Subject","Test ")
    Call uidoc.GotoField("Body")

    selectdocument setzt soviel ich weiss nur den haken in der ansicht. ein antwortdokument wird auf dem dokument erstellt, das mit der maus 'markiert' (also angeklickt) wurde.


    evtl. hilft es dir, wenn du das dokument vorher öffnest und dann das antwortdokument erstellst.

    bunt ist das dasein und granatenstark. volle kanne hoshi's!


    IBM Certified Advanced System Administrator (R5, D6, D7)
    IBM Certified Advanced Application Developer (R5, D6, D7, D8)

    ein zauberhafter Kunstgriff :lol:


    aber es funktioniert!



    Vielen Dank


    ...


    Call uiview.SelectDocument(doc)

    Call workspace.EditDocument(False,doc)
    Set uidoc = workspace.CurrentDocument
    Call uidoc.Close

    Set uidoc = workspace.ComposeDocument( "", "", "frm_Memo" )

    Call uidoc.FieldSetText(" ... ...