Outlook-Mails auslesen, Laufzeitfehler
Marc
Ich würde gern aus dem Outlook Posteingang die Mails in eine Tabelle listen. Dazu hab ich folgenden code gefunden, den ich für meine Zwecke gebrauchen könnte.
Hallo Markus, Infos gibt's hier: _ http://msdn.microsoft.com/en-us/library/aa210932(v=office.11).aspx Hier aber mal mal ein Beispiel (in Excel-VBA den Verweis auf MS Outlook xx -ObjectLibrary _ setzen!!) Sub OLInfos() Dim myOLAPP, myNameSpace, myFolder, myItems, myItem As Object Set myOLAPP = CreateObject("Outlook.Application") Set myNameSpace = myOLAPP.GetNamespace("MAPI") Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox) Set myItems = myFolder.Items For Each myItem In myItems Debug.Print "Betreff = '" & myItem & "' = " & Format(myItem.Size / 1000, "#.000") & " _ _ kByte" Next End Sub Bei der Zeile
Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox)
Sebstverständlich hab ich die Library in den Verweis aufgenommen.
Ein Verweis in einem anderen Makro mit Verweis auf den Kalender in Outlook funktioniert...
Set myOlApp = CreateObject("Outlook.Application")
Set myOlSpace = myOlApp.GetNamespace("MAPI")
Set myOlFolder = myOlSpace.GetDefaultFolder(9) 'olFolderCalendar
Gruß, Marc