Ich habe nicht wirklich eine Ahnung, wo das Problem liegt, habe aber mit "CopyToDatabase" schon verschiedene Erfahrungen gemacht und verwende es deshalb nicht, wenn ich es verhindern kann.
Hast Du mal stattdessen folgendes probiert?
Set docOffice = New NotesDocument( dbOffice )
Call doc.CopyAllItems( docOffice )
Was macht ihr denn im Code vorher mit dem doc?
Könnte es vielleicht an der Einstellung ConvertMime liegen?
also ggf. vor dem ersten Zugriff setzen
session.convertMime = False
Set doc = ...
und am besten am Ende wieder so setzen wie es vorher war.
-Werner