Office: (Office 2010) Email-Adressen aus Text extrahieren

changbob · 5. September 2016

Hallo zusammen,

ich habe eine kleine Mammutaufgabe bekommen und noch nicht so wirklich eine Idee, wie ich diese lösen könnte.

Aus einer Mail-Aktion habe ich diverse Rückläufer (MAILER-DAEMON / postmaster / usw.) erhalten. Diese kann ich aus OL in eine Excel-Tabelle exportieren, so dass der Nachrichtentext in einer Spalte steht.

Wie kann ich jetzt die Emailadressen aus dem Text in der Spalte extrahieren? Gibt es hier einen Weg?

Danke für eure Hilfe,
changbob

:)

EarlFred · 6. September 2016

Hallo changbob,

Du hast doch schon im richtigen Forum gepostet - hier geht es hauptsächlich um Outlook. Warum also nochmal CP ohne Verlinkung auf den richtigen Thread?

Hier geht's weiter:
http://www.ms-office-forum.de/forum/...d.php?t=335355

Grüße
EarlFred

Pit987 · 7. September 2016

Hallo changbob!
Ich weiß nicht, wie OL Daten exportiert. Auf ein Beispiel hast Du verzichtet.
Anbei die grobe Methode, nach dem AT Zeichen zu suchen.
Dazu Text in Spalten - Leerzeichen benutzen.

Code:

Sub Aktenzeichen()
'
' Aktenzeichen Makro
'
Dim i As Long
Dim zelle As Range
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Set zelle = Cells(i, 3).Resize(1, 10).Find(What:="@", LookIn:=xlValues, lookat:=xlPart)
If Not zelle Is Nothing Then

Cells(zelle.Row, "AA") = zelle

End If
Set zelle = Nothing
Next
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Viel Erfolg
Pit

changbob · 12. Januar 2021

von EarlFred

Hallo changbob,

Du hast doch schon im richtigen Forum gepostet - hier geht es hauptsächlich um Outlook. Warum also nochmal CP ohne Verlinkung auf den richtigen Thread?

Hier geht's weiter:
http://www.ms-office-forum.de/forum/...d.php?t=335355

Grüße
EarlFred
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Bitte entschuldige, war mir, da ich das ganze ja in Excel bekomme, nicht so sicher, ob der da richtig aufgehoben war, deswegen hatte ich ihn ja wieder geschlossen.

Ich hoffe einfach, dass ich hier irgendwo Hilfe finde, bin nämlich echt am Verzweifeln, da die Aufgabe händisch kaum zu bewältigen ist.

@Pit987
Mit Beispielen ist das nicht so einfach, da es sich um Firmendaten handelt und ich den Datensatz nicht so einfach nachstellen kann.

Im Endeffekt kann ich aus OL eine Exceldatei erstellen. In dieser gibt es dann eine Spalte, in welcher der Nachrichtentext als Fließtext erscheint. Und dort sind dann auch die Email-Adressen irgendwo mit enthalten.

Aber es sieht so ähnlich aus wie im angehängten Beispiel. In der Spalte mit der Überschrift "Text1" steht dann der Nachrichtentext (ist normalerweise ein klein wenig mehr *Smilie )

Gruß
changbob

EarlFred · 7. September 2016

Hallo changbob,

eine UDF mit Verwendung von Regular Expressions / Code basiert auf Quelle: siehe Link

Code:

Option Explicit

Public cMatches As Object
Public m As Object
Public oRegEx As Object

Function MailExtrakt(rng As Range) As String
Set oRegEx = CreateObject("Vbscript.regexp")
Call fFindMailAdresses(rng.Value)

Debug.Print "Treffer: " & cMatches.Count
For Each m In cMatches
MailExtrakt = m.Value & vbCrLf & MailExtrakt
Next
Set m = Nothing
Set cMatches = Nothing
Set oRegEx = Nothing
End Function

Public Sub fFindMailAdresses(sText As String)
'// Die erzeugte MatchCollection enthält identifizierte Mailadressen,
'// deren (0-basierte) Startposition im Text sowie deren Länge aus einem
'// vorgegebenen Text. Durch die Wiederholung eines gleichen (geklammerten)
'// Teilsuchmusters kann eine gefundene Mailadresse gleich zerlegt werden
'// (Alias, Domainname, Topleveldomain).

With oRegEx
' Suchmuster
.Pattern = "(\w[\wÄÖÜäöüß\.-]+)@(\w[\wÄÖÜäöüß\.-]+)\.(\w[\wÄÖÜäöüß\.-]+)"
' Alle oder nur erste Textstelle berücksichtigen
.Global = True
' Treffer in MatchCollection eintragen
Set cMatches = .Execute(sText)
End With

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Aufruf aus dem Arbeitsblatt mit:
Code:

=MailExtrakt(B2)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die Ergebnisse werden mit CrLf getrennt, wenn mehrere Adressen im Text vorkommen. Kannst Du leicht anpassen.
Ich bin mir bei Maildressen nie sicher, ob es nicht mittlerweile Ausnahmen gibt, die vom Muster nicht gefunden werden. Also verlass Dich nicht zu 100% darauf.

Hier würde es sich empfehlen, den Mailbody insgesamt zu durchsuchen anstelle von Einzelzellen. Also doch eher ein Code im Outlook-Bereich. Aber mit Deiner Tabelle wird es auch gehen, wenn nicht so elegant.

Grüße
EarlFred

Office: (Office 2010) Email-Adressen aus Text extrahieren

Email-Adressen aus Text extrahieren

Email-Adressen aus Text extrahieren

Email-Adressen aus Text extrahieren

Email-Adressen aus Text extrahieren - Similar Threads - Email Adressen Text

Email Adressen

Eigene eMail Adresse in Outlook integrieren

Absende Adresse Outlook, Serienbrief lässt sich nicht andern

Email-Adressen untereinander reihen. WIE ?

Weitere Email-Adresse in Outlook

MS Teams Problem bei Installation Email-Adresse bereits verwendet

Alle jemals verwendeten Email-Adressen aus Outlook extrahieren. Wie ?