Texte aus Emails finden

Computer: Software & Programmierung Visual Basic
#1

Hallo,
ich habe ein Programm das mir einige Daten auswertet, und mir diese per E-Mail schickt.
In dieser E-Mails sind links zu den Webseiten wo meine Besucher herkommen. Ich würde nun gerne wissen ob es möglich ist diese herrauszufinden. Ich würde nach „http://“ suchen und mir die restliche zeile ausgeben. Leider wei ich nicht wie ich das erledigen soll?

könte mir jeman einige Tips geben wie ich das am besten bewerkstellige.
Es muss kein kompletter code sein nur die Funktionen die mich auf die richtige spur bringen könnte.

mfg

Malte

#2

Hallo Malte,

mal fix überlegt…
Wenn du deine Mails mit Outlook abholst, sollte dies kein Problem darstellen. Outlook kannst du so einstellen das es die Mails aller x Minuten abfragt. In dein program kannst du einen timer einbauen der diese Mails abruft von Outlook.
Dessen Inhalt kannst du dann auslesen und hast somit die Links.

Da es sicherlich nur auf deinen Rechner laufen läuft musst du dir keine Sorgen machen was für email installiert ist und in welcher Version denn die daten weisst du ja bereits.

Wenn du diesbezueglich nicht weiter kommst, so melde dich nochmal ich schaue dann mal ob ich was passendes parat habe.

VLG Alex

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#3

Hi Malte!
Poste doch mal bitte den kompletten Inhalt einer Beispiel-Mail.

Besten Gruß.
Timo Engel

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#4

Ok hier ein Auszug aus der Email

…

Top-10 Referer-Sites

http://www.google.de (10)
http://www.malled.de/links.php (8)
usw…

ich hoffe das reicht da ich die Mail nur am anfang des monats erhalte und sie leider nicht gespeichter habe.

mfg

Malte

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#5

Hi Malte!
Wenn ich dich richtig verstanden habe, liegt dir die Mail als Textdatei vor.
Dann kannst du folgendes machen

dim position as integer
dim zeile as string
open „datei.txt“ for input as #1 ’ Quelldatei
open „links.txt“ for append as #2 'Zieldatei
while not eof(1)
line input #1 , zeile 'Zeilenweises Einlesen
position = instr(1,zeile,„http://“)
if position > 0 then
print #2, mid(zeile,position,len(zeile) - position + 1)
end if
wend
close #1
close #2

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]