Outlook: Ordner-Größe anzeigen Mit Hilfe dieser Funktion ist eine Größen-Anzeige der Outlook-Mailordner in eigenen VBA- und VB-Projekten möglich.
Autor:   Stephan Kraus	Bewertung:	Views:  18.380
ohne Homepage	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	kein Beispielprojekt

Mit Hilfe folgender Funktion ist eine Größen-Anzeige der Outlook-Mailordner in eigenen VBA- und VB-Projekten möglich.

Function OrdnerGroesse(objFolder As MAPIFolder) As String
  Dim i As Long
  Dim nSize As Long
 
  With objFolder.Items
    For i = 1 To .Count
      nSIze = nSize + .Item(i).Size
    Next i
 
    If nSize < 1024 Then
      ' Rückgabe in Bytes
      OrdnerGroesse = CStr(nSize) + " Byte"
    Else
      ' Rückgabe in KB
      OrdnerGroesse = CStr(Int(nSize / 1024)) + " KB"
    End If
  End With    
End Function

Der Funktion braucht lediglich der Outlook-Ordner übergeben werden. Als Ergebnis erhält man einen String mit der Größenangabe des Ordners in Byte oder Kilobyte - ja nach Größe.

Beispiel für die Größe des "Gesendete Objekte"-Ordners im Outlook-Projekt:

Dim objNameSpace As NameSpace
Dim objMailFolder As MAPIFolder
 
Set objNameSpace = GetNamespace("MAPI")
Set objMailFolder = objNameSpace.GetDefaultFolder(olFolderSentMail)
 
MsgBox "Größe des ""Gesendete Objekte""-Ordners: " & _
  OrdnerGroesse(objMailFolder), vbInformation

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.