Angehängte Datei eines Emails empfangen

[Karl-Heinz Huber]

Hallo zusammen,

ich empfange mit Delphi6 Emails über die Qutlook-Komponenten.
Hat jemand eine Ahnung, wie ich eine Datei, die einem Email angehängt ist, empfangen und ablegen kann.

Über mögliche Tipps wäre ich sehr dankbar.

Gruß Karl-Heinz

[Karl-Heinz Huber]

Hallo zusammen,

ich habe selbst die Lösung gefunden.
Angehängt an das Beispiel von Andreas Kosch zum Empfangen von Emails habe ich den Quellcode um das Attachment erweitert. Somit kann ich eine angehängte Datei empfangen und in einem beliebigen Verzeichnis abspeichern.

procedure TForm1.Button1Click(Sender: TObject);
var
DefNamespace : NameSpace;
Folder : MAPIFolder;
MI : MailItem;
Attach : Attachments;
begin
OutlookApplication1.Connect;
DefNameSpace := OutlookApplication1.GetNamespace('MAPI');
Folder := DefNameSpace.GetDefaultFolder(olFolderInbox);
// 1. eMail anzeigen
MI := Folder.Items.Item(1) as MailItem;
ListBox1.Items.Add(Format('Subject: %s' , [MI.Subject]));
ListBox1.Items.Add(Format('Text: %s' , [MI.Body]));
Attach := MI.Attachments ;

Attach.Item(1).SaveAsFile('C:\TestDat.doc');

// eMail als ungelesen markieren
MI.UnRead := True;
MI.Save;
OutlookApplication1.Disconnect;
end;

Trotzdem vielen Dank

Gruß Karl-Hein