Outlook Archivordner abfragen
Marc
Im Excel möchte ich die emails aus Outlook auflisten. So weit, so gut, gibt ja genug Beispiele. Für die unter "Postfach" angelegten Ordner klappt das auch gut.
Ich hätte aber gern auch die Elemente aus dem Archivordner\Posteingang.
Kann mir bitte jemand helfen? Vielen Dank, Gruß, Marc
Folgendes hab ich schon:
Dim ChosenFolder As Object
Auswahl:
Set ChosenFolder = CreateObject("Outlook.Application").GetNamespace("MAPI").PickFolder
Debug.Print ChosenFolder.fullfolderpath
If ChosenFolder Is Nothing Then
MsgBox ("Du hast keinen Ordner ausgewählt!")
End If
numMails = ChosenFolder.Items.Count
i = 0
While i Bearb And kenn = 1 Then
zeitraum = Bearb - eing
Anfangs_WE = IIf(Weekday(eing, 2) >= 5, Abs(-7 + Weekday(eing, 2)), 0)
Ende_WE = IIf(Weekday(Bearb, 2) 3, 2, 0)
WE_s = IIf(zeitraum > 7, Fix(zeitraum / 7), 0)
Sheets(1).Cells(zeil, sp + 1) = .SenderName
Sheets(1).Cells(zeil, sp + 2) = .Subject
Sheets(1).Cells(zeil, sp + 3) = Format(eing, "dd.mm.yyyy")
Sheets(1).Cells(zeil, sp + 4) = Format(eing, "hh:mm")
Sheets(1).Cells(zeil, sp + 5) = Bearb - eing - Anfangs_WE - Ende_WE - _
WorksheetFunction.Max((WE_s * 2) - Anfangs_WE - Ende_WE, 0)
zeil = zeil + 1
'End If
End If
End With
Wend
Columns("C:C").TextToColumns DataType:=xlDelimited, FieldInfo:=Array(1, 4)
[A:E].Columns.AutoFit
Set OLF = Nothing
Set ChosenFolder = Nothing
Application.StatusBar = False