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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen