Gruppe
Matrix
Problem
Wie kann ich ermitteln, welche Werte in zwei Bereichen an gleicher Position erscheinen?
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