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
herr_bert
