|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
04.01.2023 18:28:27 |
tolo |
|
|
|
04.01.2023 19:01:39 |
Gast70358 |
|
|
|
05.01.2023 06:37:06 |
Gast93482 |
|
|
 folder.items aus mehreren Ordnern zusammenfassen |
05.01.2023 11:26:53 |
Gast131 |
|
|
|
06.01.2023 10:33:15 |
tolo |
|
|
|
06.01.2023 12:46:25 |
Gast54695 |
|
|
|
05.01.2023 12:21:00 |
Gast131 |
|
|
Von:
Gast131 |
Datum:
05.01.2023 11:26:53 |
Views:
816 |
Rating:
|
Antwort:
|
Thema:
folder.items aus mehreren Ordnern zusammenfassen |
|
Wird vermutlich am Filter-Ausdruck liegen?
Versuch mal so:
Option Explicit
Sub Test()
Dim folder1 As Outlook.Folder
Dim folder2 As Outlook.Folder
Set folder1 = ...
Set folder2 = ...
Dim strFilter As String
strFilter = CreateDateTimeFilter(DateSerial(2022, 12, 1), DateSerial(2022, 12, 31))
Dim objItems As Outlook.Items
Set objItems = folder1.Items.Restrict(strFilter)
' Set objItems = folder2.Items.Restrict(strFilter)
Dim colAllMailItems As VBA.Collection
Call AddMailItemsFromItems(objItems, colAllMailItems)
Dim objMailItem As Outlook.MailItem
For Each objMailItem In colAllMailItems
' folder-name, mail-subject
Debug.Print objMailItem.Parent.Name, objMailItem.Subject
Next
End Sub
Public Function CreateDateTimeFilter(DateFrom As Date, DateTo As Date)
Const OL_RESTRICT_DATETIME_FORMAT = "ddddd h:nn AMPM"
CreateDateTimeFilter = _
"[SentOn] >= '" & Format$(DateFrom, OL_RESTRICT_DATETIME_FORMAT) & "' " & _
"AND [SentOn] <= '" & Format$(DateTo, OL_RESTRICT_DATETIME_FORMAT) & "'"
End Function
Public Sub AddMailItemsFromItems(ByVal Items As Outlook.Items, ByRef MailItemCollection As VBA.Collection)
If MailItemCollection Is Nothing Then
Set MailItemCollection = New VBA.Collection
End If
Dim objItem As Object
For Each objItem In Items
If TypeOf objItem Is Outlook.MailItem Then
Call MailItemCollection.Add(objItem)
End If
Next
End Sub
Hab den Code mal einfach gehalten / nur auf Folder1 bezogen.
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
04.01.2023 18:28:27 |
tolo |
|
|
|
04.01.2023 19:01:39 |
Gast70358 |
|
|
|
05.01.2023 06:37:06 |
Gast93482 |
|
|
folder.items aus mehreren Ordnern zusammenfassen |
05.01.2023 11:26:53 |
Gast131 |
|
|
|
06.01.2023 10:33:15 |
tolo |
|
|
|
06.01.2023 12:46:25 |
Gast54695 |
|
|
|
05.01.2023 12:21:00 |
Gast131 |
|
|