Hallo zyrak2003,
in deinem Code speicherst du das Dokument sehr oft im Frontend und im Backend ab. Im unteren Code z.B. hier:
Call uidoc.save
doc.Save True, False
ws.ReloadWindow
ws.ViewRefresh
Call uidoc.save
uidoc.EditMode=False
uidoc.Close(True)
Versuch es mal so:
' Frontend-Dokument speichern
Call uidoc.save
' deine View aktualisieren
ws.ViewRefresh
' Dokument in den Lesemodus setzen
uidoc.EditMode=False
' Frontend-Dokument schliessen
uidoc.Close(True)
Weiter unten kommt dann diese Stelle:
' Neu Öffnen um Speichern zu können
Set uidoc=ws.EditDocument( ,doc)
ws.ReloadWindow
Call uidoc.GotoField("Ausgangsmail")
Call uidoc.save
Das würde ich ändern in:
Dim uidocNeu As NotesUIDocument
' Neu Öffnen
Set uidocNeu = ws.EditDocument(True, doc)
' Referenz auf das alte uidoc löschen
Delete uidoc
' uidoc auf das uidocNeu zuweisen
Set uidoc = uidocNeu
' Evtl. hier dann noch das doc neu setzen
Set doc = uidoc.Document
' dann dein weiterer Code
Call uidoc.GotoField("Ausgangsmail")
' da das doc im Backend bereits zuvor gespeichert wurde und hier noch nichts am "neuen" uidoc geändert wurde, muss hier nicht (unbedingt) gespeichert werden. Falls du es doch brauchst einfach wieder "einkommentieren"
'Call uidoc.save
Ich versuche immer, das Dokument so wenig wie möglich zu speichern, egal ob Frontend oder Backend. Dabei tauchen nämlich solche Probleme dann sehr gerne auf.