Skip to content

Instantly share code, notes, and snippets.

@MySohoWiki
Created October 24, 2022 09:36
Show Gist options
  • Save MySohoWiki/fe231bbc1fc2d2970b3454e0241bb048 to your computer and use it in GitHub Desktop.
Save MySohoWiki/fe231bbc1fc2d2970b3454e0241bb048 to your computer and use it in GitHub Desktop.
SendEmail
procedure SendEmail;
var
fs: tfileStream;
s: string;
begin
if not IsNull(newvalue) then begin
fs:= tfilestream.create('c:\htmlEmail.html', fmOpenRead);
fs.read(s, fs.size);
fs.free;
prg.SendEmail('xxx@gmail.com', '', '', 'subject', s, '', true, true);
end;
end;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment