gibt eine Möglichkeit, in einem bestimmten Ordner von Outlook alle Betreffzeilen aulesen zu lassen?
Danke mal vorab!
TOM
Sub BetreffsAuslesen()
Dim olApp As Object
Dim olFolder As Object
Dim olMail As Object
Dim i As Integer
i = 0
Set olApp = CreateObject("Outlook.Application")
Set olFolder = olApp.ActiveExplorer.currentfolder
For Each olMail In olFolder.items
ActiveSheet.Range("A1").Offset(i, 0).Value = olMail.Subject
i = i + 1
Next
End Sub
Sub BetreffsAuslesen()
Dim olApp As Object
Dim olFolder As Object
Dim olMail As Object
Dim i As Integer
On Error Resume Next
i = 0
Set olApp = CreateObject("Outlook.Application")
Set olFolder = olApp.ActiveExplorer.currentfolder
For Each olMail In olFolder.items
ActiveSheet.Range("A1").Offset(i, 0).Value = olMail.Subject
ActiveSheet.Range("A1").Offset(i, 1).Value = olMail.ReceivedTime
i = i + 1
Next
End Sub
Bei mir läuft er bei Mails, bei denen die Anhänge mit Livelink archiviert wurden, bei dem Zeitstempel auf den Poller, deshalb das "On Error ..."Private Sub ReadOutlookMail()
Dim olApp, MAPISpace, olFolder, MailItem As Object
Dim ze As Long
Set olApp = CreateObject("Outlook.Application")
Set MAPISpace = olApp.GetNamespace("MAPI")
Set olFolder = MAPISpace.GetDefaultFolder(olFolderInbox)
ze = 2
For Each MailItem In olFolder.Items
Sheets(1).Cells(ze, 3) = MailItem.Subject
ze = ze + 1
Next MailItem
End Sub