Einzelnen Beitrag anzeigen

Namron

Registriert seit: 28. Nov 2006
Ort: Bergen auf Rügen
8 Beiträge
 
Delphi 6 Professional
 
#2

Re: Bestimmte Messageparts auswaehlen

  Alt 28. Nov 2006, 18:39
Delphi-Quellcode:
        
.
        _Body := Msg.Body.Text;
        //alles vor 'Content-Transfer-Encoding:' wird entfernt
        _Body := copy(_Body,pos('Content-Transfer-Encoding:',_Body),Length(_Body));
        // die zeile mit 'Content-Transfer-Encoding:' wird entfernt
        _Body := copy(_Body,pos(#13#10,_Body)+2,Length(_Body));
        //der HTML Teil der Mail wird entfernt
        _Body := copy(_Body,3,pos('---',_Body)-5);
        _Body := copy(_Body,0,Length(_Body)-2);
Also das ist nun meine Loesung die recht gut funktioniert. Ist zwar nicht schoen aber das ist mir im Moment noch nicht sooooooooo wichtig. Aber fuer andere Vorschlaege bin ich gerne offen.
  Mit Zitat antworten Zitat