Nee, geht leider nicht. Der Code sieht jetzt so aus:
'------------------------------------------------------------------------------
'Save backend and close UI
'------------------------------------------------------------------------------
Call docThis.Save(False, False)
'docThis.saveoptions = 0
'Call uidocThis.Close
'------------------------------------------------------------------------------
'Reopen UI
'------------------------------------------------------------------------------
'Call uiws.ViewRefresh 'Refresh view
Set uidocThis = uiws.EditDocument(True , docThis)
Msgbox "E-Mail inserted and document saved.",64, dbThis.Title
Es kommt immer noch die gleiche Fehlermeldung.
Ich habe das mal mit verschiedenen Eingangsmails versucht. Manchmal geht es (4 Versuche, 1 x Okay, 3x Absturz). Die Eingangsmail die funktionierte ist eine interne Mail nur mit Text ! Aber schon wenn ich eine externe Mail (auch nur Text) nehme crasht es.