Versenden von HTML e-Mails mit ics

Versenden von HTML e-Mails mit ics

Versenden von HTML e-Mails mit ics : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Prozedur THtmlMailForm.SendButtonClick(Sender: TObject);
beginnen
Wenn FRunning dann beginnen
MessageBeep(MB_OK);
Display ('*** bereits ausgeführt ***');
Ausfahrt;
Ende;

FRunning: = TRUE;
versuchen Sie
{Geben Sie der Komponente die verschiedenen Daten, die er brauchen}
HtmlSmtpClient.PlainText: = PlainTextMemo.Lines;
HtmlSmtpClient.HtmlText: = HtmlTextMemo.Lines;
HtmlSmtpClient.EmailImages: = ImageFilesMemo.Lines;
HtmlSmtpClient.EmailFiles: = AttachedFilesMemo.Lines;

{Initialisieren Sie alle Eigenschaften von SMTP-Komponente aus unseren GUI}
HtmlSmtpClient.Host: = HostEdit.Text;
HtmlSmtpClient.Port: = PortEdit.Text;
HtmlSmtpClient.SignOn: = SignOnEdit.Text;
HtmlSmtpClient.FromName: = FromEdit.Text;
HtmlSmtpClient.HdrFrom: = FromEdit.Text;
HtmlSmtpClient.HdrTo: = ToEdit.Text;
HtmlSmtpClient.HdrCc: = CcEdit.Text;
HtmlSmtpClient.HdrSubject: = SubjectEdit.Text;
HtmlSmtpClient.AuthType: = SmtpAuthNone;

{Empfängerliste wird berechnet und vom an, Cc und Bcc Felder}
HtmlSmtpClient.RcptName.Clear;
HtmlSmtpClient.RcptNameAdd (ToEdit.Text, CcEdit.Text, BccEdit.text);
Wenn PlainTextCheckBox.Checked dann
HtmlSmtpClient.ContentType: = SmtpPlainText
sonst
HtmlSmtpClient.ContentType: = SmtpHtml;

Display ('Verbindung zum SMTP-Server...');

{Start erste Operation zu tun, um eine e-Mail zu senden}
{Die nächste Operationen werden aus OnRequestDone Ereignis gestartet}
HtmlSmtpClient.Connect;
mit Ausnahme von
auf E:Exception fangen
Display (E.ClassName + ':' + E.Message);
FRunning: = FALSE;
Ende;
Ende;

Ende;

{* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *}

Verfahren () THtmlMailForm.HtmlSmtpClientRequestDone
Sender: TObject;
RqType: TSmtpRequest;
ErrorCode: Wort);
beginnen
{Für jeden Vorgang zeigen wir den Status}
Wenn (ErrorCode > 0) und (ErrorCode < 10000) dann
Display ('RequestDone Rq =' + IntToStr(Ord(RqType)) +
Fehler ='+ HtmlSmtpClient.ErrorMessage)

sonst
Display ('RequestDone Rq =' + IntToStr(Ord(RqType)) +
' Fehler = '+ IntToStr(ErrorCode));

Wenn nicht dann FRunning
Ausfahrt;

{Starten Sie nächste Operation zu, sondern zuerst prüfen Sie, ob die vorhergehende war OK}
Wenn dann ErrorCode <> 0 beginnen
FRunning: = FALSE; {Beenden Sie All-In-One Demo}
Display ('Fehler, Stop');
Ausfahrt;
Ende;

RS RqType der
SmtpConnect: beginnen
Wenn HtmlSmtpClient.AuthType = SmtpAuthNone then
HtmlSmtpClient.Helo
sonst
HtmlSmtpClient.Ehlo;
Ende;

SmtpHelo: HtmlSmtpClient.MailFrom;
SmtpEhlo: HtmlSmtpClient.Auth;
SmtpAuth: HtmlSmtpClient.MailFrom;
SmtpMailFrom: HtmlSmtpClient.RcptTo;
SmtpRcptTo: HtmlSmtpClient.Data;
SmtpData: HtmlSmtpClient.Quit;
SmtpQuit: beginnen
Display ('fertig!');
FRunning: = FALSE;
Ende;
Ende;
Ende;