Gruppe
Extern
Problem
Aus dem Outlook-Pfad "Persönliche Ordner/ Posteingang" soll die Anzahl der Emails ermittelt werden.
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