Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Anzahl der Mails in einem vorgegebenem Outlook-Ordner ermitteln

Gruppe

Outlook

Problem

Aus dem Outlook-Pfad "Persönliche Ordner/ Posteingang" soll die Anzahl der Emails ermittelt werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: Modul1

Sub SendMessage()
   MsgBox "Vorhandene Mails: " & GrapText
End Sub

Function GrapText() As Long
   Dim objOutlook As Object
   Dim objnSpace As Object
   Dim objFolder As Object
   Set objOutlook = CreateObject("Outlook.Application")
   Set objnSpace = objOutlook.GetNamespace("MAPI")
   Set objFolder = objnSpace.Folders("Persönliche Ordner").Folders("Posteingang")
   GrapText = objFolder.Items.Count
   Set objFolder = Nothing
   Set objnSpace = Nothing
   Set objOutlook = Nothing
End Function