prosedyre THtmlMailForm.SendButtonClick (Sender: TObject); begynne hvis FRunning deretter begynne MessageBeep (MB_OK); Display ( '**** allerede kjører ****'); Gå; enden,
FRunning: = true; try {Gi komponenten de ulike dataene han trenger} HtmlSmtpClient.PlainText: = PlainTextMemo.Lines; HtmlSmtpClient.HtmlText: = HtmlTextMemo.Lines; HtmlSmtpClient.EmailImages: = ImageFilesMemo.Lines; HtmlSmtpClient.EmailFiles: = AttachedFilesMemo.Lines; product: {Initial alle SMTP komponent egenskaper fra vår 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; product: {mottakerlisten beregnes fra Til, Kopi og Blindkopi} HtmlSmtpClient.RcptName.Clear; HtmlSmtpClient.RcptNameAdd (ToEdit.Text, CcEdit.Text, BccEdit.text); hvis PlainTextCheckBox.Checked deretter HtmlSmtpClient.ContentType: = smtpPlainText annet HtmlSmtpClient.ContentType: = smtpHtml;
Display ( «Tilkobling til SMTP server ... '); product: {Begynn første operasjon for å gjøre å sende en e-post} { Neste virksomhet er startet fra OnRequestDone event} HtmlSmtpClient.Connect; unntatt på E: Unntaks ikke begynne Display (E.ClassName + ':' + E.Message); FRunning: = false; slutt; enden,
enden, product: {* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *}
prosedyre THtmlMailForm.HtmlSmtpClientRequestDone (Sender: TObject; RqType: TSmtpRequest; CODE: Word); begin {For hver operasjon, viser vi statusen} if (errorcode > 0) og (errorcode < 10000) deretter display ( ' RequestDone Rq = '+ IntToStr (Ord (RqType)) +' Error = '+ HtmlSmtpClient.ErrorMessage)
annet display (' RequestDone RQ = '+ IntToStr (Ord (RqType)) +' Error = '+ IntToStr (errorcode ));
hvis ikke FRunning deretter Avslutt;
{start neste operasjon, men først sjekke om forrige var OK} hvis CODE < > 0 da begynne FRunning: = false; {Avslutt Alt-i-ett-demo} Display ( 'Feil, stopp.'); Gå; enden,
tilfelle RqType av smtpConnect: begynne hvis HtmlSmtpClient.AuthType = smtpAuthNone deretter HtmlSmtpClient.Helo annet HtmlSmtpClient.Ehlo; enden,
smtpHelo: HtmlSmtpClient.MailFrom; smtpEhlo: HtmlSmtpClient.Auth; smtpAuth: HtmlSmtpClient.MailFrom; smtpMailFrom: HtmlSmtpClient.RcptTo; smtpRcptTo: HtmlSmtpClient.Data; smtpData: HtmlSmtpClient.Quit; smtpQuit: begynne display; ( 'Ferdig!') FRunning: = false; slutt; end, end,