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:     [ Jetzt bewerten ]	Views:  4.078
ohne Homepage	System:  Win9x, WinNT, Win2000, WinXP, Vista	kein Beispielprojekt

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 9 Bewertung insgesamt: gut Durchschnittliche Bewertung: 3.9 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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