Datensammlung in Excel ausgeben
03.03.2020 07:51:51
Addi
eine kurze Frage hätte ich...mit folgendem Coding lese ich die Anzahl der eMail in bestimmten Ordner aus OL aus.
Diese werden mir über debug.print im Direktfenster angezeigt. Leider aber nur 200 Einträge...ich habe aber ungefähr doppelt so viele.
Durch was kann ich den Befehl "debug.print" ersetzten, sodass mir die Ergebnisse in ein neues Excel Sheet exportiert werden?
Hier das ganze Coding...
Sub MailCount()
Dim olApp As Outlook.Application
Dim olName As Outlook.NameSpace
Dim olFolder As Outlook.MAPIFolder
Dim olSubFolder As Outlook.MAPIFolder
Set olApp = Outlook.Application
Set olName = olApp.GetNamespace("MAPI")
Set olFolder = olName.Session.Folders("XXX").Folders("YYY").Folders("ZZZ")
For Each olSubFolder In olFolder.Folders
Debug.Print olSubFolder.Name & ";" & olSubFolder.Items.Count
Next olSubFolder
End Sub
Vielen Dank für Eure Hilfe
VG Addi
Anzeige