Programmieren - alles kontrollieren 4.940 Themen, 20.676 Beiträge

Von Access aus Outlook Eingangsemails auslesen

Jürgen124 / 1 Antworten / Baumansicht Nickles

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

bei Antwort benachrichtigen
eohlhau Jürgen124 „Von Access aus Outlook Eingangsemails auslesen“
Optionen

Hi Jürgen,
ohne den Code getestet zu haben; schau mal ob Du auch die Outlook Libary 10.0 als Verweis eingebunden hast.
Gruß
Erwin

eohlhau Mitglied seit 01.04.2005 VDSL 100, Fritz.box 7490, Netgear Switch 1GB 8fach, Asus ROG G752VT, Win 10 Home, Intel Core i7 6700HQ, 16GB, GTX970M, 238GB NVMe SAMSUNG, 931GB Hitachi HGST, O2k16Plus, LR5.7, CS6... Eigenbau Desktoprechner f?r Video und Bildbearbeitung, Asus PB248, Canon IP7250, QNAP Turbo NAS TS-419P+ 4x2TB, 2 x LG G3, 2 x iPAD, RasperryPi3, ..
bei Antwort benachrichtigen