Email-Adressen aus Emails auslesen

[benseven]

Ok,

habe jetzt

            vSt0 = cleanRecordLine(vSt1, "E-Mail:")

diese Zeile in Rot (F9 Gegklickt) wenn ich Play drücke dauerts einige Sekunden, dann kommt:"keine Datensätze exportiert ..."

Habe mal Email: _leerzeichen und Email: _Tabulator probiert, hat nichts geholfen

[tAgedObject]

Versuch mal eine andere IF-Anweisung

Hallo,

Vermutlich wird es schon am "Guten Tag Herr " scheitern.
Dann kommt das Programm natürlich nicht zu der Stelle
mit "E-Mail:".

Versuch mal die IF-Anweisung so zu schreiben (wie bereits vorgeschlagen):

...
( Not ( lCase( vSt1) Like "*guten*tag*herr*")) And _
...

Also quasi anstelle der If-Klausel :

...
(InStr(vSt1, "Guten Tag Herr ") < 1) And _
...

Viele Grüße,
tAgedObject

[benseven]

    vSt1 = Left(aMailItem.Body, 100)
    If (InStr(vSt1, "Soeben hat sich ein Interessent in das Kontaktformular eingetragen und folgende Daten übermittelt:") < 1) And _
       (InStr(vSt1, "Guten Tag Herr") < 1) And _
       (Not (LCase(vSt1) Like "guten*tag*herr")) And _
       (InStr(vSt1, "URL:") < 1) Then
       Exit Sub
    End If

endet immernoch mit "Keine Datensätze" gefunden

[tAgedObject]

Da gehen mir doch glatt die Vorschläge aus ;-)

Hallo,

Im Augenblick bin ich auch ziemlich ratlos, woran es noch liegen könnte.
Evt. hast Du in Deinem kollegialen Umfeld jemanden, der mal draufguggen kann.
Ich bin gerade situationsblind ;-)

Viele Grüße,
tAgedObject

[benseven]

hm ok, danke trotzdem.

aber muss ich nicht

ElseIf InStr(vSt1, "eMail-Adresse: ") > 0 Then
            vSt0 = cleanRecordLine(vSt1, "eMail-Adresse: ")

auch auf dieses *xxx* ummünzen?