Hallo,
ich habe jetzt eine Lösung gefunden:
Einfach eine Schaltfläche mit folgenden Script in einem neuen Memo erstelllen:
Sub Initialize
Dim session As NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Set session = New NotesSession
Set db = session.currentdatabase
Set doc = db.getprofiledocument("HolidayProfile")
If doc Is Nothing Then
Msgbox "Kein Holiday Profile...Agent wird beendet"
Else
doc.remove(True)
Msgbox "Holiday Profile gelöscht"
End If
End Sub
Dann diesen Button zu denjenigen mit dem Import Problem schicken. Der klickt einfach
drauf schließt sein Notes und öffnet es wieder, dann der Import und alles ist gut.
Hab das jetzt mehrmals mit erfolg getestet.
Gruß
Hitcher