Skip to content

Instantly share code, notes, and snippets.

@MySohoWiki

MySohoWiki/SendEmail.pas

Created October 24, 2022 09:36
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save MySohoWiki/fe231bbc1fc2d2970b3454e0241bb048 to your computer and use it in GitHub Desktop.
Save MySohoWiki/fe231bbc1fc2d2970b3454e0241bb048 to your computer and use it in GitHub Desktop.
Download ZIP
SendEmail
Raw
SendEmail.pas
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