[code lang=”delphi”]function TMainForm.SendEMail(Recipient, Subject, Body: string): HINST;
\nvar
\n MailMsg: string;
\nbegin
\n MailMsg := Format(‘mailto:%s?subject=%s&body=%s’,
\n [Recipient, Subject, Body]);
\n Result := ShellExecute(Application.Handle,
\n ‘open’,
\n PChar(MailMsg),
\n nil, nil,
\n SW_SHOWNORMAL);
\nend;
\n[\/code]<\/p>\n
usage:<\/p>\n
[code lang=”delphi”] R := ‘anyone@anywhere.com’;
\n S := ‘New files’;
\n B := ‘Attached is NewFiles.zip; save attachment as
\nC:\\Temp\\NewFiles.zip’;
\n try
\n SendEMail(r, s, b);
\n except;
\n \/\/ whatever message you want to put up if it fails
\n end;
\n[\/code]<\/p>\n
Outlook Express does not allow automating attachments in code (i.e.,
\nit’s OLE-compromised). So your user will have to manually attach their
\nfile after OE shows up.<\/p>\n
[tags]Delphi, EMail[\/tags]<\/p>\n","protected":false},"excerpt":{"rendered":"
[code lang=”delphi”]function TMainForm.SendEMail(Recipient, Subject, Body: string): HINST; var MailMsg: string; begin MailMsg := Format(‘mailto:%s?subject=%s&body=%s’, [Recipient, Subject, Body]); Result := ShellExecute(Application.Handle, ‘open’, PChar(MailMsg), nil,…<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"spay_email":""},"categories":[11],"tags":[75,98],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p71Tml-1K","_links":{"self":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/108"}],"collection":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/comments?post=108"}],"version-history":[{"count":0,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/108\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/media?parent=108"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/categories?post=108"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/tags?post=108"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}