Programmieren - alles kontrollieren 4.935 Themen, 20.621 Beiträge

Outlook Posteingang auslesen

Jürgen124 / 6 Antworten / Flachansicht Nickles

Hallo, ich möchte von Access aus den Outlook Posteingang auslesen. Folgender Code funktioniert auch in dem er mir die gewünschten EMails aus dem Posteingang von Outlook anzeigt. Zum Schluß (das nehm ich mal an) sagt er dann aber:

Object unterstürtzt diese Methode oder Eigenschaft nicht
und im Debugger wird diese Zeile markiert>>>>> If brief.SenderName = "eBay" Then

Was mach ich da falsch?


Hier der Orginal-Code:
******************************************************
Dim ol, olns, post, brief, weitersuchen, tag
Dim anzahl As Integer
Dim zahl As Integer

Set ol = CreateObject("Outlook.Application")
Set olns = ol.GetNamespace("MAPI")
Set post = olns.GetDefaultFolder(olFolderInbox)
Set brief = post.Items

For Each brief In post.Items
If brief.SenderName = "eBay" Then
MsgBox "Nachricht: " + vbNewLine + "Betreff:" + brief.Subject + vbNewLine
End If
Next brief

bei Antwort benachrichtigen
herr_bert Jürgen124 „Outlook Posteingang auslesen“
Optionen

schau mal in den quelltext der email, ob dort "ebay" in der form, wie du es abfragst, vorkommt.
zuverlässiger ists vermutlich über die absenderadresse.

bei Antwort benachrichtigen