Datei-Anhang versenden aber wie ???

[Sharky]

Zitat von matrix68:

ich möchte mit hilfe von Indycomponente einen Datei-Anhang versenden.
Leider weis ich nicht genau wie das gehen soll

Code:

TIdAttachment.Create(IndyMessage.MessageParts, FFilename);

ist das einzige was ich hier gefunden habe.

Hai matrix68,

Willkommen im Forum.

Eigentlich hast Du ja alle Infos die Du braust

In deinem Buttonereigniss zum senden (TForm1.Button1Click) einfach noch eine Zeile einfügen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var
 datei_zum_senden1,
 datei_zum_senden2, : String;
begin 
dateizumsenden1 := 'c:\was_weis_ich.txt';
dateizumsenden1 := 'c:\noch_etwas_anderes.txt';
With IdMessage1 do 
begin 

TIdAttachment.Create(IdMessage1.MessageParts, datei_zum_senden1)
TIdAttachment.Create(IdMessage1.MessageParts, datei_zum_senden2)

From.Address := Edit3.Text; 
From.Name := Edit4.Text; 
Subject := Edit5.Text; 
Sender.Address := Edit3.Text; 
Sender.Name := Edit4.Text; 
.
.
.

Das sollte Dir helfen.