https://www.bishopphillips.com/riskwiki/index.php?action=history&feed=atom&title=SendMailThreadUnit
SendMailThreadUnit - Revision history
2026-07-02T21:04:41Z
Revision history for this page on the wiki
MediaWiki 1.45.3
https://www.bishopphillips.com/riskwiki/index.php?title=SendMailThreadUnit&diff=508&oldid=prev
Bishopj: 1 revision imported
2026-04-12T06:39:01Z
<p>1 revision imported</p>
<table style="background-color: #fff; color: #202122;" data-mw="interface">
<tr class="diff-title" lang="en">
<td colspan="1" style="background-color: #fff; color: #202122; text-align: center;">← Older revision</td>
<td colspan="1" style="background-color: #fff; color: #202122; text-align: center;">Revision as of 06:39, 12 April 2026</td>
</tr><tr><td colspan="2" class="diff-notice" lang="en"><div class="mw-diff-empty">(No difference)</div>
</td></tr></table>
Bishopj
https://www.bishopphillips.com/riskwiki/index.php?title=SendMailThreadUnit&diff=507&oldid=prev
Bishopj: Created page with "==SendMailThreadUnit - Threaded emailer for sending emails in the background for SMTPIndySendMail== Language: Delphi 7 - 2007 <pre> uses SysUtils, Classes, EMailUnit, DB,..."
2019-09-11T22:56:47Z
<p>Created page with "==SendMailThreadUnit - Threaded emailer for sending emails in the background for SMTPIndySendMail== Language: Delphi 7 - 2007 <pre> uses SysUtils, Classes, EMailUnit, DB,..."</p>
<p><b>New page</b></p><div>==SendMailThreadUnit - Threaded emailer for sending emails in the background for SMTPIndySendMail==<br />
<br />
Language: Delphi 7 - 2007<br />
<br />
<br />
<br />
<pre><br />
uses SysUtils, Classes, EMailUnit, DB, Provider, DBClient, ADODB;<br />
<br />
type<br />
TSendMailThread = class(TThread)<br />
private<br />
FMailConnectType : TMailConnectType;<br />
FWorkMailMessage: TMailMessage;<br />
public<br />
FConfigSMTP_PortNo : Integer;<br />
FConfigSMTP_Host : String;<br />
FConfigSMTP_UserID : String;<br />
FConfigSMTP_UserPWD : string;<br />
FConfigSMTP_FromAddress : String;<br />
FConfigSMTP_FromName : String;<br />
<br />
ErrorMessage : String;<br />
SendResult : Boolean;<br />
procedure Execute; override;<br />
constructor Create(MailConnectType : TMailConnectType; WorkMailMessage: TMailMessage; myConfigSMTP_PortNo : Integer; myConfigSMTP_Host : String; myConfigSMTP_UserID : String; myConfigSMTP_UserPWD : string; myConfigSMTP_FromAddress : String; myConfigSMTP_FromName : String );<br />
end;<br />
</pre><br />
<br />
=BackLinks=<br />
<br />
{{#dpl: linksto={{FULLPAGENAME}} }}</div>
Bishopj