Mailimport nach Umstellung Windows und Office

[Detlef Eberlein]

Hallo
Ich habe eine Access-DB, in der ich Outlook-mails archiviere, sowohl
empfangene als auch gesendete.
Unter Windows XP und Office 2003 (beides deutsch) ging das so: Klick
auf den Button, Freigabe in Outlook, mails wurden importiert.
Jetzt wurde der Rechner auf Windows 7 (englisch) und Office 2010
(deutsch) upgedatet und ich bekomme die Fehlermeldung „Anwendungs-
oder objektorientierter Fehler 287“.
Es wird ein Datensatz angelegt, Datum, Größe und Betreff werden
übernommen, nicht aber Empfänger und Absender oder der mail-Text.
Verweise sind gesetzt (Access 14, DAO 3.6, ADO 6, Office 14, Outlook
14, Word 14).

Haben sich durch die Versionsumstellungen evtl. Bezeichnungen
geändert? Habe nichts gefunden.

Code-schnipsel
:
Set Eingangsbox =
OutlN.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
For IntMailZ = 1 To Eingangsbox.Items.count
Set objKon = Eingangsbox.Items(IntMailZ)
If objKon.CreationTime > DatumletzteAktualisierung Then
With objKon
DBS.AddNew
DBS!Titel = .Subject
DBS!Empfänger = .To
DBS!Mailer = .SenderName
DBS!Datum = .CreationTime
DBS!Größe = .Size
DBS!Inhalt = .Body
DBS!Ordner = 1 ' 1 = Eingangsordner
Zähler = Zähler + 1
If objKon.Attachments.count > 0 Then
'Anhänge speichern
For i = 1 To objKon.Attachments.count
objKon.Attachments.item(i).SaveAsFile
rsOutlookPosteingang!KonstanteWert & "\" & Format(DBS!ID, "00000") &
"_" & Format(Date, "yyyy-mm-dd") & "_" &
objKon.Attachments.item(i).FileName
Next i

End If