Sub OutlookPosteingang()
Dim OLF As Outlook.MAPIFolder
Set OLF = CreateObject("Outlook.Application").GetNamespace("MAPI") _
.Folders("Mein Name") _
.Folders("Posteingang")
open_anlage OLF
Set OLF = Nothing
End Sub
dann auslesen und in eine liste schreiben was wir gemacht haben
Sub open_anlage(olPfad As Outlook.MAPIFolder) 'posteingang und name vom postfach übernehmen
'anlage öffnen
Dim anzEingänge As Integer, i As Integer, email As Integer
anzeinträge = olPfad.Items.Count
email = mLetzteZeile
Cells(email + 2, 1) = olPfad.Parent
i = 0
Do While i 0 Then
'alle Anlagen abgearbeitet, falls welche da waren
.UnRead = False
End If
Cells(email + 1, 5) = Not .UnRead 'merker
End With
i = i + 1
mBearbeitet = mBearbeitet + 1
Loop
mLetzteZeile = email
End Sub
mfg gerwas
Sub OutlookPosteingang()
Dim OLF As Outlook.MAPIFolder
Set OLF = CreateObject("Outlook.Application").GetNamespace("MAPI") _
.Folders("Postfach - Sommer, Alexander ") _
.Folders("Posteingang")
open_anlage OLF
Set OLF = Nothing
End Sub
Sub open_anlage(olPfad As Outlook.MAPIFolder) 'posteingang und name vom postfach übernehmen
'anlage öffnen
Dim anzEingänge As Integer, i As Integer, email As Integer
anzeinträge = olPfad.Items.Count
MsgBox (CStr(anzeinträge))
email = mLetzteZeile
Cells(email + 2, 1) = olPfad.Parent
i = 0
Do While i 0 Then
'alle Anlagen abgearbeitet, falls welche da waren
.UnRead = False
End If
Cells(email + 1, 5) = Not .UnRead 'merker
End With
i = i + 1
mBearbeitet = mBearbeitet + 1
Loop
mLetzteZeile = email
End Sub