Hoi, er is een nieuwe versie die het SMTPSetup form niet meer gebruikt. Inplaats daarvan worden de SMTP setup waarden rechtstreeks uit de registery gelezen (zijn daar wel bv gezet door 'SMTPSetup'). Er is een extra unit vereist met de registry key waar de smtp waarden staan (SMTP_Register.pas). Die laatste wordt nu ook gebruikt door SMTPSetup.pas uiteraard.
De nieuwe interface:
Code:
procedure SetMailOutParams(Host, Port: string; Auth: TAuthenticationType; Id,
Pw: string);
procedure SetMailOutAddresses(From, Answer: string);
procedure Recall_Default_MailOut_Params_and_Addresses;
function SendMail(Subject, Towards: string; Body: TStrings;
CC: string = ''; BCC: string = ''; Attachments: TStrings = nil): Boolean;
overload;
function SendMail(Subject, Towards, Body: string;
CC: string = ''; BCC: string = ''; Attachments: TStrings = nil): Boolean;
overload;
function SendMail(Subject: string; Towards: Tstrings; Body: TStrings;
CC: string = ''; BCC: string = ''; Attachments: TStrings = nil): Boolean;
overload;
function SendMail(Subject: string; Towards: Tstrings; Body: string;
CC: string = ''; BCC: string = ''; Attachments: TStrings = nil): Boolean;
overload;
implementation
De nieuwe extra unit SMTP_Register:
Code:
unit SMTP_Register;
interface
const
SmtpRegister = 'Software\Rcs\Smtp\'; // Uw key komt hier
implementation
end.
Bookmarks