Как отправить email используя почтовую программу поумолчанию USES SHELLAPI;

Как отправить email, используя почтовую программу поумолчанию

USES SHELLAPI;

Procedure AutoSendMail;
Var
EMailDestinationString,SubjectString,Line1String,Line2String,mailstring:String;

BEGIN
EMailDestinationString:=’gbamber@bamber.com’;
SubjectString:=’Message Subject’;
Line1String:=’This is the first line’;
Line2String:=’This is the second line’;

// Можно использовать несколько адресов, разделяя их точкой с запятой //
mailstring:=’mailto:’ + EMailDestinationString +
‘?subject=’ + SubjectString +
‘&body=’+ Line1String +
‘%0d’ + Line2String;

if (ShellExecute(0,’open’,PChar(mailstring),»,»,SW_SHOWNORMAL) ShowMessage(‘Auto method failed.’);
END;