Dateien per EMail versenden

[Mushroomfreak07]

OK genau das Problem habe ich auch!
Ich habe das ganze mal soweit wie möglich nachgebaut,... nur mit ist noch nicht ganz klar wie ich :

var
S: String;
…
S := SendFileMail('C:\Eigene Dateien\_Test\Neu.txt', 'Betreff', 'Meine Nachricht',
'[e-mail]');

if Length(S) > 0 then
begin
Beep;
MessageDlg('Die Datei konnte nicht per E-Mail versendet werden!' + #10#13#10#13 +
'Meldung:' + #10#13 + S, mtError, [mbOK], 0);
end;


--------------

der part aussieht wenn ich 3 Dateien verschicken will...

S := SendFileMail('C:\Eigene Dateien\_Test\Neu.txt','C:\Eigene Dateien\_Test\Neu1.txt','C:\Eigene Dateien\_Test\Neu2.txt', 'Betreff', 'Meine Nachricht',
'[e-mail]');




so ????



und dann meckert er an genau der stelle : [Error] Unit1.pas(113): Incompatible types: 'String' and 'TStrArray'




wäre super wenn mir jmd helfen kann

mach anderer wird ja das ähnliche Problem haben..

vllt. kann einer von euch ja sogar mal seine fertige Musterlösung posten???

Soweit erstmal danke

und Frohe Weihnachten