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
REPI Jürgen124 „Mir fällt ncoch ein: gibt es keine Art EOF abfrage für das for each, so wie...“
Optionen

Zur Info, ja ein EOF gibt es:
Etwa so:
Set fs = CreateObject("Scripting.FileSystemObject")
set fo = fs.OpenTextFile(Source,ForReading, true)
fo.AtEndOfStream

kann man dann in Abfragen einbauen!


Es empfiehlt sich immer, etwas Linux im Hause zu haben.
bei Antwort benachrichtigen