Mit der Klasse TAdapterSMTP ist es möglich eine Mail mit Attachment über den Server zu schicken.
Das bedeuted, daß die Daten zuerst zum Server geschickt werden und dann versendet der Server die EMail.
Das hat den Vorteil, daß nur der Server einen SMTP Zugriff braucht und nicht die Clients.
Zuerst müssen aber folgende Einstellungen am Server in der Web.Config gemacht werden.
Und zwar in dem Bereich appSettings
Beispiel:
procedure ButtonNeu_OnClick(Sender: Integer);
var
aSMTP: TAdapterSMTP;
begin
aSMTP:= TAdapterSMTP.Create;
try
aSMTP.MailTo := 'test1@cp-austria.at;test2@cp-austria.at'
aSMTP.MailFrom := 'Sender@Test.com'
aSMTP.MailSubject := 'Das ist eine Test Mail';
aSMTP.MailBody.Text := 'Das ist der Body';
aSMTP.AttachmentFileName := 'c:\windows32\calc.exe';
aSMTP.SendMail();
finally
aSMTP.Free;
end;
end;