Habe es nicht ausprobiert, aber ich könnte mir vorstellen, dass es nicht funktioniert, solange Source noch existiert. Tritt das erst seit einer neuen Notesversion auf, oder waren es bisher immer nur neue Dokumente?
Probier es doch mal so:
If bReopen Then
Dim Workspace As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim id As String
id = Source.Document.UniversalID
Delete Source ' Falls Delete einen Fehler bringt, nimm Erase, ich verwechsel die gerne
Set db = session.CurrentDatabase
Set doc = db.GetDocumentByUNID (id)
Call Workspace.EditDocument (True, doc, False, "", False, False)
End If
Du schließt das Dokument sicherlich aus einer Routine, warum öffnest Du es nicht in der gleichen Routine? Auch dort musst Du m.W. die Variablen/Objekte vor dem Öffnen löschen, damit das klappt.