EMail über SMTP senden

netFrame als Plattform Menü » Tipps und Tricks » EMail über SMTP senden | » Erweiterte Suche

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;