Mit MS Access Emails abrufen

[Wiedehopf]

Hallo Experten,

kennt jemand eine Möglichkeit, aus Access heraus automatisch Emails vom Mailserver zu holen, um sie danach automatisch auswerten zu können?

[tAgedObject]

Cdo

Hallo,

Mittels CDO kann man sehr viel mit e-mails machen.
Funktioniert über ActiveY.

Sehr empfehlenswert ist zur Unterstützung "Redemption", womit man einfachen Zugriff auf sehr viele zusätzliche Möglichkeiten hat.

[EDIT]
http://msdn.microsoft.com/en-us/libr...CHG.10%29.aspx
http://www.dimastr.com/redemption/home.htm

Grüße,
tAgedObject

[Bernhard Geyer]

CDO ist standardmäßig nicht mehr installiert. Die Frage ist ob das eh nicht eine deprecated Technik ist mit der man sich (in Kombination Access als Runtime verwendet) auf ein totes Pferd (Technik) setzt?

[tAgedObject]

Outlook-Objektmodell

Hallo,

Für diejenigen, für die CDO nicht (mehr) in Frage kommt,
kann es sinnvoll sein, einen Blick auf das Outlook-Objektmodell zu werfen.

Einen guten generellen Einstieg bietet evt. die folgende Seite :
http://www.outlookcode.com/


Viele Grüße,
tAgedObject

[Wiedehopf]

Emails empfangen mit Access

Hallo liebe Forumgemeinde,

entschuldigt bitte, dass ich jetzt erst antworte und mich für eure Beiträge bedanke. Ich habe im Moment nicht viel Zeit, mich mit dem Thema zu beschäftigen.
Der Tpp mit dem Outlook-Objekt gefällt mir eigentlich am besten, weil ich damit schon mal Emails gesendet habe. Das ging so:

Public Sub send_mail(Adresse As String, Betreff As String, Text As String, Anhang As String)
Dim objOutlook As Object
Dim objNameSpace As Object
Dim objMailItem As Object
Dim d As Date

Set objOutlook = CreateObject("Outlook.Application")
Set objNameSpace = objOutlook.GetNameSpace("MAPI")
Call objNameSpace.Logon

Set objMailItem = objOutlook.CreateItem(0)
objMailItem.To = Adresse
objMailItem.Subject = Betreff
objMailItem.Body = Text
objMailItem.Attachments.Add Anhang
On Error GoTo f
Call objMailItem.send
d = now + 0.00002
While now < d
  DoEvents
Wend
Call objNameSpace.Logoff
Exit Sub
f:
  MsgBox err.Description & " Oder abgebrochen!"
End Sub

In dem Objekt gibt es doch sicher eine Methode, die empfangene Mails vom Server holt. Ich brauche auch keine Anhänge.