Fórum Como enviar dados para o CORPO DA MENSAGEM do Outlook #159155

//Coloque a unit ShellApi na clausula uses da unit.
Crie um edit para o destinatário.
Crie um edit para o assunto.
Crie um memo para o corpo.
Crie o botão enviear.
No evento onClique do botão enviar escreva o código abaixo:

//código para enviar o e-mail
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
begin
s:= ´mailto: ¬s ?subject= ¬s &body=¬s´;
ShellExecute(Handle,
Pchar(´Open´),
PChar(Format(s,[edEmail.Text,edAssunto.Text,MemoCorpo.Text])),
nil,
nil,
SW_SHOWNORMAL);
end;
//qualquer dúvida entre em contato.

Acho que este código também serve:

const olMailItem = 0;
var
Outlook: OLEVariant;
MailItem: Variant;
begin
try
Outlook:=GetActiveOleObject(´Outlook.Application´);
except
Outlook:=CreateOleObject(´Outlook.Application´);
end;
MailItem := Outlook.CreateItem(olMailItem);
with MailItem do begin
Recipients.Add(´email@email.com´);
Subject := ´Assunto´;
[b:3e0141e84b]Body := ´corpo da mensagem´;[/b:3e0141e84b]
Attachments.Add(´C:\Windows\Win.ini´);
Send;
end;
Outlook := Unassigned;
end;

Para este código é necessário inserir a biblioteca [b:2f43e3bac2]ComObj[/b:2f43e3bac2] no [b:2f43e3bac2]Uses[/b:2f43e3bac2]