ich würde gerne aus Outlook (Microsoft Exchange)bestimmte Mails lesen. Suchen nach Absender und Datum dann Inhalt kopieren usw....
Geht das...?
Danke jegliche hilfe
ALF
ich würde gerne aus Outlook (Microsoft Exchange)bestimmte Mails lesen. Suchen nach Absender und Datum dann Inhalt kopieren usw....
Geht das...?
Danke jegliche hilfe
ALF
Sub Teile_aus_Mail_holen()
Dim olApp As Outlook.Application
Dim ns As NameSpace
Dim myFolder As MAPIFolder
Dim Post As MailItem
Dim i As Long
Set olApp = CreateObject("Outlook.Application")
Set ns = olApp.GetNamespace("MAPI")
Set myFolder = ns.Folders("Archivordner").Folders("Posteingang").Folders("Herber-Forum")
i = 1
For Each Post In myFolder.Items
Cells(i, 1) = Post.SenderName
Cells(i, 2) = Post.CreationTime
Cells(i, 3) = Post.ReceivedTime
Cells(i, 4) = Post.Body
i = i + 1
Next
End Sub
Gutes Gelingen
Martin
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen