Frontend schließen

[Hedwig14]

Hallo !
ich habe folgenden Schalter entwickelt.
Ziel: Eine Telefonnachricht ausfüllen, versenden an Mitarbeiter und das Dokument speichern und schließen.
Soweit klappt auch alles, aber leider wird das Dokument nicht geschlossen. Was mache ich falsch ?



                Dim ws As New NotesUIWorkSpace   
   Dim s As New NotesSession
   Dim db As Notesdatabase
   Dim doc As NotesDocument
   Dim uidoc As notesUIdocument
   Dim ICON As NOTEsItem   
   
   Set db = s.CurrentDatabase   
   Set uidoc = ws.CurrentDocument
   Set doc = uidoc.Document
      
   'vorbereitung der  Mail
   Dim mdoc As notesdocument
   Set mdoc = New NotesDocument(db)   
   mdoc.Form = "Memo"   
   mdoc.Subject = "TEST Memo"   
   Set Icon = New NotesItem ( mdoc , "_ViewIcon" , 44 )
   ICON.IsSummary = True     
   Call Stylefestlegen(s)
   Set rtItem= New NotesRichTextItem( mdoc , "Body")
   
   'Überschrift
   Call rtitem.appendStyle(RS_Title)
   Call rtitem.AppendText ("Telefonnachricht")
   
   usw....
      
   'DocLink
   Call rtitem.appendStyle(RS_Normal)
   Call rtitem.AppendText ("Link zur Telefonnachricht >>> ")
   Call rtitem.AppendDocLink(doc, "")
   Call rtitem.AddNewline (1)   
   
   'bisheriger Verlauf
   Call rtitem.appendStyle(RS_Normal)
   Call rtitem.AddNewline (1)   
   Call rtitem.AppendText ("bisheriger Verlauf:")
   Call rtitem.AddNewline (1)   
   Call rtitem.AppendText (doc.Kommentar_TXT(0))
   Call rtitem.AddNewline (1)   
   Call mdoc.Send (False, doc.sendto(0))

   'Felder für Workflow anpassen
   doc.Status_SWL = "2"
   doc.TN_TNgesendetam = Now()
   doc.Kommentar_TXT = doc.GetItemValue("Kommentar_TXT")(0) & Chr$(10) & jetzt & " -> Rückruf erfolgt durch: " & s.CommonUserName   

   'Dokument speichern
   Call doc.Save( True, True )

   'Dokument schließen   
   Set oldUiDoc = uiDoc
   Set uiDoc = ws.editDocument(True, oldUiDoc.document)
   oldUiDoc.document.saveOptions = "0"
   Call oldUiDoc.close()

[Hedwig14]

so geht das speichern un schließen ->  aber das sieht komisch aus, oder ?
Habt Ihr eine Idee wie es eleganter geht ?


'Mailversand und ende      
Call mdoc.Send (False, doc.sendto(0))
   
Set oldUiDoc = uiDoc
Set uiDoc = ws.editDocument(True, doc)
uidoc.document.saveOptions = "0"
olduidoc.document.saveOptions = "0"
Call uidoc.close()
Call olduidoc.close()

[umi]

Hi
evtl. hilft ein olduidoc.close(true) ?
Beziehungsweise für was ist das olduidoc gedacht ?

Was sagt der Debugger dazu? bzw. gibt es irgendwelche Fehlermeldungen?

evtl. hilft auch einfach
call uidoc.fieldsettext("SaveOptions","0")
call uidoc.close(true)

vorausgesetzt im Form existiert ein bearbeitbares Feld "SaveOptions"

[seal]

Also ich frag noch ab ob ich im Editmode bin:

Call doc.Save(True,True)

If (uiDoc.Editmode) Then
   Call uiDoc.Reload()
   Call uiDoc.save
   uiDoc.Close(True)
Else
   Set uiDoc = WS.CurrentDocument
   uiDoc.close(True)
End If

[ata]

... hattest du irgendwelche Fehlermeldungen erhalten?

Toni