ich führe folgenden Code aus und erhalte eine Fehlermeldung:
Private Sub CommandButton1_Click()
Dim outl As Outlook.Application
Dim baum As NameSpace
Dim ordn As MAPIFolder
Dim mail As MailItem
Dim i As Integer
Dim tabende As Integer
Dim text As String
Set outl = CreateObject("Outlook.Application")
Set baum = outl.GetNamespace("MAPI")
Set ordn = baum.Folders("Persönlicher Ordner").Folders("Posteingang")
' Tabellenende suchen
For i = 10 To 1000
If Cells(i, 1) = "" Then
tabende = i
Exit For
End If
Next i
' Schleife über Anzahl Bestellungen
zeile = tabende
For Each mail In ordn.Items
text = mail.SenderName
MsgBox text
zeile = zeile + 1
Next
Die Fehlermeldung lautet:
Let Prozedur der Eigenschaft ist nicht definiert, und Get-Prozedur hat kein Objekt zurückgegeben.
Was ist hier falsch?
Danke!
Johannes