Mega Code Archive
Create e mail letter
<![CDATA[
Title: 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;
]]>