Hallo, ich möchte gerne von Access aus über die Outlook Library 10.0 alle Eingangsemails (am besten des aktuellen Datums) auslesen und in Access speichern. Folgenden Code hab ich dazu gefunden, der leider nicht funktioniert. Kann mir jemand Tipps geben, eventuell sagen wo ich eine Dokumentation oder Erklärung oder Beispielcode finden kann:
Sub EingangsMailsAusOutlookUebernehmen()
Dim OutLN As Outlook.Application
Dim Eingangsbox As Object
Dim objKon As Object
Dim DBS As DAO.Recordset
Dim Conn As Database
Dim IntMailZ As Integer
Set OutLN = New Outlook.Application
Set Conn = CurrentDb
Set DBS = Conn.OpenRecordset("EingangMails", dbOpenDynaset)
IntMailZ = 0
Set Eingangsbox = OutLN.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
Eingangsbox.items.Sort "[ReceivedTime]", True
For IntMailZ = 1 To Eingangsbox.items.Count
Set objKon = Eingangsbox.items(IntMailZ)
With objKon
DBS.AddNew
DBS!Titel = .Subject
DBS!Empfänger = .To
DBS!Mailer = .SenderName
DBS!Datum = .CreationTime
'oder:
'DBS!Datum = Format(.ReceivedTime, "DD.MM.YYYY hh:mm")
DBS!Größe = .Size
DBS!Inhalt = .Body
End With
DBS.Update
Next IntMailZ
MsgBox "Datentransfer erfolgreich beendet! " & vbLf & _
"Es wurden " & IntMailZ & " Sätze angelegt!", vbInformation
DBS.Close
Set objKon = Nothing
Set OutLN = Nothing
Exit Sub
fehlerm:
MsgBox "Es ist ein Fehler aufgetreten!"
End Sub
