Invoking the default mailer program to send an email

Copyright © 2000 Ernesto De Spirito

You can invoke the "New Message" or "Compose Message" window of the default mailer program using the API function ShellExecute declared in the ShellApi unit, passing 'mailto:' as the third parameter (lpFile), as shown below:

uses ShellAPI;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(Self.Handle, nil, 'mailto:', nil, nil, SW_NORMAL);
end;

You can also add the email address of the recipient:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(Self.Handle, nil,
    'mailto:eds2004 @ latiumsoftware.com',
    nil, nil, SW_NORMAL);
end;

The subject line can be also be included:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(Self.Handle, nil,
    'mailto:eds2004 @ latiumsoftware.com?Subject=Test',
    nil, nil, SW_NORMAL);
end;

And even the body of the message:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(Self.Handle, nil,
    'mailto:eds2004 @ latiumsoftware.com' +
    '?Subject=Test&Body=Just testing the example',
    nil, nil, SW_NORMAL);
end;

 
NOTE: The mailto protocol does not support attachments.