VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Hyperlinks aus Email extrahieren	15.06.2016 11:08:42	Carolin
Hyperlinks aus Email extrahieren	16.06.2016 22:22:50	Gast47880
Hyperlinks aus Email extrahieren	17.06.2016 09:15:11	Gast44800
Hyperlinks aus Email extrahieren	17.06.2016 09:47:37	Gast16287

Ansicht des Beitrags:

Von:
Gast47880

Datum:
16.06.2016 22:22:50

Views:
687

Rating:

Antwort:

Thema:
Hyperlinks aus Email extrahieren

Hallo! Hier nochmal dein Code zum besseren Lesen. Welches Object wird den beim debuggen markiert? Falls es am RegEx liegt, könntest du es auch mit einer splitt Variante versuchen. Vermute, dass die Emailadresse von Leerzeichen eingeramt ist. Dann einfach den strBody nach " " splitte und alle Arrayelemeten durchgehen und schauen, wo ein @ dabei ist. VG

Sub parseMails()


Const FILEPATH = "D:\emails2.txt"
Set myRegExp = CreateObject("vbscript.regexp")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim fldr As Folder
Set fldr = Application.GetNamespace("MAPI").GetFefaultfolder(olPublicFoldersAllPublicFolders).Folders.Item("E-Mail Versand").Folders.Item("Carl").Folders.Item("Berger")
Set objTextFile = objFSO.CreateTextFile(FILEPATH, True)
myRegExp.IgnoreCase = True
myRegExp.Pattern = "([A-Z0-9._%+-]+@[A-Z0-9.-]+\.[A-Z]{2,6})"
For i = 1 To fldr.Items.Count
    If fldr.Items(i).Class = olMail Then
        strBody = fldr.Items(i).Body
        Set myMatches = myRegExp.Execute(strBody)
        If myMatches.Count >= 1 Then
            For Each myMatch In myMatches
                If myMatch.SubMatches.Count >= 1 Then
                    strEMail = myMatch.SubMatches(0)
                    objTextFile.WriteLine (strEMail)
                End If
            Next
        End If
    End If
Next
objTextFile.Close
MsgBox "Verarbeitung abgeschlossen !" & vbNewLine & "Die Datei mit den extrahierten E-Mail-Adressen liegt hier: " & FILEPATH
Set myRegExp = Nothing
Set objFSO = Nothing
End Sub

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema	Datum	Von Nutzer	Rating	Antwort
Hyperlinks aus Email extrahieren	15.06.2016 11:08:42	Carolin
Hyperlinks aus Email extrahieren	16.06.2016 22:22:50	Gast47880
Hyperlinks aus Email extrahieren	17.06.2016 09:15:11	Gast44800
Hyperlinks aus Email extrahieren	17.06.2016 09:47:37	Gast16287