EMail über SMTP senden

Modified on 22/06/2009 10:26 by Manuel Siebert Categorized as Plattform

((([netFramePlattform|netFrame als Plattform Menü] » [TippsundTricks|Tipps und Tricks] » EMail über SMTP senden | {searchbox} [Search.aspx?FullText=1|Erweiterte Suche])))

Mit der Klasse TAdapterSMTP ist es möglich eine Mail mit Attachment über den Server zu schicken.{BR}
Das bedeuted, daß die Daten zuerst zum Server geschickt werden und dann versendet der Server die EMail.{BR}
Das hat den Vorteil, daß nur der Server einen SMTP Zugriff braucht und nicht die Clients.{BR}
{BR}
Zuerst müssen aber folgende Einstellungen am Server in der Web.Config gemacht werden.{BR}
Und zwar in dem Bereich appSettings{BR}
{BR}
{BR}
<code xml><configuration>
  <appSettings>
    <add key="Mail.Host" value="localhost"/>
    <add key="Mail.Port" value="25"/>
    <add key="Mail.UserName" value="User1"/>
    <add key="Mail.Password" value="pwdTest445"/>
    <add key="Mail.DefaultCredentials" value="true"/>
    <add key="Mail.DefaultFrom" value="test@cp-solutions.at"/>
  </appSettings>
</configuration></code>
{BR}
'''Beispiel:'''{BR}{BR}
<code pascal>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;</code>

CP Wiki

Navigation¶

EMail über SMTP senden