Thema Datum  Von Nutzer Rating
Antwort
04.01.2023 18:28:27 tolo
Solved
04.01.2023 19:01:39 Gast70358
Solved
05.01.2023 06:37:06 Gast93482
Solved
Blau folder.items aus mehreren Ordnern zusammenfassen
05.01.2023 11:26:53 Gast131
Solved
06.01.2023 10:33:15 tolo
Solved
06.01.2023 12:46:25 Gast54695
NotSolved
Rot ...
05.01.2023 12:21:00 Gast131
Solved

Ansicht des Beitrags:
Von:
Gast131
Datum:
05.01.2023 11:26:53
Views:
361
Rating: Antwort:
 Nein
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.


Ihre Antwort
  • 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: Name: Email:

 
 

  • 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
Solved
04.01.2023 19:01:39 Gast70358
Solved
05.01.2023 06:37:06 Gast93482
Solved
Blau folder.items aus mehreren Ordnern zusammenfassen
05.01.2023 11:26:53 Gast131
Solved
06.01.2023 10:33:15 tolo
Solved
06.01.2023 12:46:25 Gast54695
NotSolved
Rot ...
05.01.2023 12:21:00 Gast131
Solved