Gruppe
Matrix
Problem
Die Matrixformeln im Bereich B2:M2 liefern die Anzahl der Tage des jeweiligen Monats gemäß Zeitrahmen aus den Zellen A1:A2.
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