Thema Datum  Von Nutzer Rating
Antwort
04.01.2023 18:28:27 tolo
Solved
Blau folder.items aus mehreren Ordnern zusammenfassen
 04.01.2023 19:01:39 Gast70358
Solved
05.01.2023 06:37:06 Gast93482
Solved
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:
Gast70358		 Datum:
04.01.2023 19:01:39		 Views:
850		 Rating:
     
Antwort:
 Nein
Thema:
folder.items aus mehreren Ordnern zusammenfassen		 
Option Explicit

Public Sub Test()
  
  Dim folder1 As Outlook.Folder
  Dim folder2 As Outlook.Folder
  
  Set folder1 = ...
  Set folder2 = ...
  
  Dim colAllMailItems As VBA.Collection
  Call AddMailItemsFromFolder(folder1, colAllMailItems)
  Call AddMailItemsFromFolder(folder2, 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 Sub AddMailItemsFromFolder(ByVal Folder As Outlook.Folder, 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 Folder.Items
    If TypeOf objItem Is Outlook.MailItem Then
      Call MailItemCollection.Add(objItem)
    End If
  Next
  
End Sub

 

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
Blau folder.items aus mehreren Ordnern zusammenfassen
 04.01.2023 19:01:39 Gast70358
Solved
05.01.2023 06:37:06 Gast93482
Solved
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