, thtmlmailform. Sendbuttonclick (afzender: TObject); beginnen, als frunning dan beginnen, MessageBeep (mb_ok); en ("* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *" hebben); intrekking;,, aan het einde van frunning:= waar;,,, voor de poging, {- hij moet alle gegevens), htmlsmtpclient.plaintext:= plaintextmemo. Lijn;, htmlsmtpclient.htmltext:= htmltextmemo. Lijn;, htmlsmtpclient.emailimages:= imagefilesmemo. Lijn;, htmlsmtpclient.emailfiles:= attachedfilesmemo. Lijn; {- alle smtp - onderdeel van ons eigendom -}, htmlsmtpclient.host:= hostedit. Tekst; portedit, htmlsmtpclient.port:=. Tekst; signonedit, htmlsmtpclient.signon:=. De tekst, htmlsmtpclient.fromname:= fromedit;. Tekst, htmlsmtpclient.hdrfrom:= f;Romedit. Tekst;, htmlsmtpclient.hdrto:= uitgegeven. De tekst, htmlsmtpclient.hdrcc:=; ccedit. Tekst; subjectedit, htmlsmtpclient.hdrsubject:=. De tekst, htmlsmtpclient.authtype:=; smtpauthnone; de lijst van begunstigden, de berekening van {, cc en BSO gebied), htmlsmtpclient. Rcptname. Duidelijk htmlsmtpclient;,. Rcptnameadd (toedit.text, ccedit. De tekst, bccedit. Tekst); als plaintextcheckbox. Na het onderzoek, htmlsmtpclient.contenttype:= smtpplaintext, andere, htmlsmtpclient.contenttype:= smtphtml; ('connecting smtp server,... ""); de eerste operatie doen, {e - mail} {} onrequestdone gebeurtenissen die vanaf het begin van de verbinding, htmlsmtpclient.; behalve in e:,,, met uitzondering van een (e.clas beginnensName + ': ' + E.Message);,\t\t\tFRunning := FALSE;,\t\tend;,\tend;, end;, {* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *}, procedure THtmlMailForm.HtmlSmtpClientRequestDone(,\tSender : TObject;,\tRqType : TSmtpRequest;,\tErrorCode : Word);,begin,\t{ For every operation, we display the status },\tif (ErrorCode > 0) and (ErrorCode < 10000) then,\t\tDisplay('RequestDone Rq=' + IntToStr(Ord(RqType)) +,\t\t' Error='+ HtmlSmtpClient.ErrorMessage), \telse,\t\tDisplay('RequestDone Rq=' + IntToStr(Ord(RqType)) +,\t\t' Error='+ IntToStr(ErrorCode));, \tif not FRunning then,\t\tExit;, \t{ Start next operation, but first check if previous one was OK },\tif ErrorCode <> 0 then begin,\t\tFRunning := FALSE; { Terminate All-In-One demo },\tEen fout, stop. ");,,, in het geval van intrekking; aan het einde van rqtype, smtpconnect;: begin, als htmlsmtpclient.authtype = smtpauthnone dan, htmlsmtpclient. Hallo, andere, htmlsmtpclient. Huang, aan het einde van smtphelo:;,; htmlsmtpclient. Mailfrom;, smtpehlo:htmlsmtpclient. Certificering;, smtpauth:htmlsmtpclient. Mailfrom; rcptto, smtpmailfrom:htmlsmtpclient.;, smtprcptto:htmlsmtpclient. Gegevens;, smtpdata:htmlsmtpclient. Stop, smtpquit: begint, blijkt; ('done!")Frunning:= valse;;,, aan het einde van het einde;,,,,