Order and save right now! 20% off with the 729824315 dicscount code for Ultimate Pack and any another product for Delphi from Greatis Programming!

Internet

⤷ Create e-mail letter

Use ShellExecute function, like in this example, to create e-mail letter in default mail program.

uses shellapi;
...
procedure TForm1.Button1Click(Sender: TObject);
var
  BodyStr, LineStr: string;
  i: Integer;
begin
  //create body
  BodyStr:='';
  for i:=0 to Memo1.Lines.Count-1 do
  begin
    LineStr:=Memo1.Lines[i];
    while Pos(' ', LineStr)>0 do
      LineStr:=Copy(LineStr,
                    1, 
                    Pos(' ', LineStr)-1)+'%20'+
                      Copy(LineStr, 
                        Pos(' ', LineStr)+1, 
                        Length(LineStr)-Pos(' ', LineStr));
    BodyStr:=BodyStr+LineStr+'%0D%0A';
  end;

ShellExecute(
  Handle,
  'Open',
  PChar('mailto:'+Edit1.Text+
    '?subject='+Edit2.Text+
    '&Body='+BodyStr+
    '&CC='+Edit3.Text),
  nil,
  nil,
  SW_RESTORE);
end;

More for developers

● Delphi Components

● .Net Components

● Software for Android Developers

● Databases for Amazon Associates
Amazon Categories
Amazon Nodes