Hallo liebe Leut,
nach nun "tausenden" versuchen und vieles lesen, bekomm ich die Migration von Kalenderdaten nicht migriert. (Mit Nupgrade -> kommt keine Meldung usw...)
Allerdings könnte ich die Mails ohne Probleme migrieren.
Der nächste Schritt (war meine Idee) wäre ein Agent der eine csv-Datei impotiert, wie folgt :
++++++++++++++++++++++++++++++++++++++++++++++++
Sub Initialize
'Agent für den Import der Kalendereinträge
Dim session As New notessession
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db = session.CurrentDatabase
'Import eines Termins (Teil1)
Set doc = db.CreateDocument
doc.Form = "Appointment"
doc.AppointmentType = "0"
doc.body = "Beschreibung"
doc.Subject = "Hallo Thema"
doc.Location= Ort
doc.Categories = "KAT"
doc.~_viewicon = 160
doc.Logo = "stdNotesLtr0"
doc.chair = "Matze/FH/AAAAA"
doc.Principal = "Matze/FH/AAAAA"
doc.from = "Matze/FH/AAAAA"
doc. Alarms = "0"
'Import eines Termins (Teil2)
doc.CalendarDateTime = "02.03.2007 11:01:00"
doc.Starttimezone = "Z=-1$DO=1$DL=3 -1 1 10 -1 1$ZX=71$ZN=W. Europe"
doc.endtimezone ="Z=-1$DO=1$DL=3 -1 1 10 -1 1$ZX=71$ZN=W. Europe"
doc.STARTDATETIME = "02.03.2007 11:00"
doc.ENDDATETIME ="02.03.2007 11:01"
doc.startdate_2 = "02.03.2007"
doc.starttime_2 = "11:00"
doc.enddate_2 = "02.03.2007"
doc.endtime_2 = "11:01"
'Sonderfuntkionen
doc.dispdur_2 = " 1 Stunde"
doc.dispdur_1 = " 1 Stunde"
doc.dispduration_1 =" 1 Stunde"
doc.tmpStarttime_local = "02.03.2007 11:01:00"
Call doc.Save( True, True )
Messagebox "Import beendet..."
End Sub
+++++++++++++++++++++++++++++++++++++++++
Ich hoff natürlich das alles soweit passt...*Sfg*
Nach dem ausführen bekomm ich die Meldung "Fehler beim öffen des Dokumentes: Element des Dokuments nicht gefunden" und "Element nicht gefunden" und das anschliessende Speichern des Termineitrags kann ich auch nicht.
Gibts von eurer Seite noch irgendwie Hilfe ?
Vielen Dank schon mal....
