Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
956to960
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
956to960
956to960
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Text aus E-Mail auslesen und in Excel einfügen

Text aus E-Mail auslesen und in Excel einfügen
03.03.2008 14:29:00
S.G.
Hallo,
ich möchte aus weitergeleiteten E-Mails die E-Mailadresse und den Betreff auslesen und in ein Excelsheet kopieren.
Die Struktur der weitergeleiteten E-Mail sieht wie folgt aus:
Your message
To: bla.blabla@bla.com
Subject: bla blablablablabla usw usw usw.
Sent: Thu, 28 Feb 2008 15:04:24 +0100
did not reach the following recipient(s):
bla.blabla@bla.com on Thu, 28 Feb 2008 23:42:36 +0100
Fehler bei der SMTP-Kommunikation mit dem E-Mail-Server des
Empfängers. Wenden Sie sich an Ihren Systemadministrator.
usw...
Frage: Hat jemand einen Tipp, wie ich das umsetzen kann?
Problem: Da die E-Mails weitergeleitet sind, kann ich die Mailitems wie bspw. SenderEmailAddress usw. nicht verwenden. Die Adresse muss ich irgendwie als Text auslesen.
Im Forum bin ich auf diesen interessanten code gestoßen, den man glaube ich nur "ein bißchen" abändern muss, um zum Ziel zu gelangen:
siehe https://www.herber.de/mailing/182302h.htm
In diesem Beispiel wird der Text jeder einzelnen E-Mail ausgelesen und in ein neues Excel-Tabellenblatt eingefügt.
Da ich ziemlich viele E-Mails habe funktioniert das so nicht mehr. Außerdem würde es genügen nur die E-Mailadresse und den Betreff auszulesen.
Ein kleiner Hinweis wäre super!
Vielen Dank schonmal!
Gruß
S.G.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text aus E-Mail auslesen und in Excel einfügen
03.03.2008 19:04:00
Tino
Hallo,
habe den von dir vorgeschlagene Code etwas angepasst.
Vielleicht hilft dir dies bei deinem Problem.
Bei Text = kommt der Text rein der in der Mail vorkommt.

Sub GrapText()
Dim objOutlook As Object
Dim objnSpace As Object
Dim objFolder As Object
Dim objMsg As Object
Dim intCounter As Integer, intCount As Integer, iRow As Integer
Dim sTxt As String
Dim Text As String
'   hier der Text der in der EMail vorkommt
Text = "Wenden Sie sich an Ihren Systemadministrator"
Application.ScreenUpdating = False
Set objOutlook = CreateObject("Outlook.Application")
Set objnSpace = objOutlook.GetNamespace("MAPI")
Set objFolder = objnSpace.folders("Persönliche Ordner").folders("Gesendete Objekte")
intCount = objFolder.Items.Count
If intCount > 0 Then
For intCounter = 1 To intCount
Set objMsg = objFolder.Items(intCounter)
If InStr(1, objFolder.Items(intCounter).body, Text) > 0 Then
Worksheets.Add after:=Worksheets(Worksheets.Count)
objMsg.SaveAs ThisWorkbook.Path & "\temp.txt", olTXT
Close
iRow = 0
Open ThisWorkbook.Path & "\temp.txt" For Input As #1
Do Until EOF(1)
iRow = iRow + 1
Line Input #1, sTxt
Cells(iRow, 1).Value = "'" & sTxt
Loop
Close
End If
Next intCounter
Kill ThisWorkbook.Path & "\temp.txt"
End If
Set objnSpace = Nothing
Set objFolder = Nothing
Set objMsg = Nothing
Set objOutlook = Nothing
End Sub


Gruß Tino

Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige