Mails abholen und als .txt Dateien speichern

[emsländer]

Hier anbei ein Auzug aus einem Programm(Dienst), welches PDFs, die von einem HP-Digital Sender an einen POP3-Server geschickt werden, speichert. Allerdings werden hier nur die Anhänge verarbeitet! Du musst also auch noch den Body speichern!!! Auch musst Du nach getaner Arbeit die Mail vom Server noch löschen ( fddpop3.delete(1) )

fddpop3 ist die pop3-Komponente von den Indy(10) Tools
logdatei ist eine einfache proc, die nix macht als den übergebenen Text in ein .txt zu schreiben.

Delphi-Quellcode:

function abholen(inMsgCount : integer) :boolean;
var betreff : string;
    anhangfile : string;
    anhangMime : string;
    intIndex: integer;
    mystringstream : Tstringstream;
    fs : Tfilestream;
    s_filename : string;
    inhalt : string;
    sAppDir : string;
begin
  result := true;
  sAppDir := 'd:\scans\';
  taxelogdatei('Mail abholen Start');
  scanservice.fddpop3.Retrieve(inMsgCount, scanservice.Msg);
  betreff := trim(scanservice.msg.Subject);
  for intIndex := 0 to Pred(scanservice.Msg.MessageParts.Count) do begin
    if (scanservice.Msg.MessageParts.Items[intindex] is TIdAttachmentFile) then  begin //general attachment
      mystringstream := tstringstream.Create('');
      anhangfile := TIdAttachmentFile(scanservice.Msg.MessageParts.Items[intIndex]).Filename;
      anhangmime := TIdAttachmentFile(scanservice.Msg.MessageParts.Items[intIndex]).ContentType;
      tidattachmentMemory(scanservice.msg.MessageParts.Items[intIndex]).savetostream(myStringstream);
      inhalt := mystringstream.DataString;
      freeandnil(mystringstream);
      s_filename := anhangfile+'_'+save_reg(1);  //Hier wird ein neuer Unique-Name anhand eines
                                                 //anhand eines Counters, der die Daten in die
                                                 //Registry schreibt, generiert
      fs := tfilestream.Create(sAppDir+s_filename, fmcreate);
      fs.Write(inhalt[1],length(inhalt));
      fs.Free;
      inhalt := '';
      if fileexists(sAppDir+s_filename) then logdatei('Datei: '+sAppDir+s_filename+' gespeichert')
         else logdatei('speichern: '+sAppDir+s_filename+' fehlgeschlagen');
    end;
  end;
end;

Gruss

EL