|
Hallo,
ich möchte den email body auslesen in Excel exportieren.
Leider bekomme ich nur Buchstabensalat wenn ich das hier versuche:
Worksheets("Sheet1").Cells(2, 7) = olMail.Body
Kann mir da jemand weiterhelfen wie ich das herüberbekomme?
Ziel ist es aus dem Posteingang alle fehlermeldungen das eine mail nicht gesendet werden konnte herauszufiiltern,
und aus dem body der jeweiligen email die nicht funktionierende Emailadresse
in eine Excel liste einzutragen. Da habe ich auch schon eine Vorstellung wie man das machen kann, nur schaffe ich es nicht den Emailbody überhaupt in excel noch lesbar zu haben.
Vielen Dank schon mal im Voraus,
LG,
Johannes
Sub BetreffsAuslesen()
Dim olApp As Object
Dim olFolder As Object
Dim olMail As Object
Dim i As Integer
Dim Text As String
i = 0
Set olApp = CreateObject("Outlook.Application")
Set olFolder = olApp.ActiveExplorer.currentfolder
For Each olMail In olFolder.items 'Funktionieren tuts bis einschließlich betreff überprüfen
If (olMail.Subject = "Unzustellbar: ") Then Worksheets("Sheet1").Cells(2, 7) = olMail.Body
i = i + 1
Next
End Sub
|