Enviar e-mail para o Outlook pelo Delphi

04/12/2003

1

Bom dia a Todos,

Estou precisando de uma rotina que envie e-mails para o Outlook Delphi.

O que tenho: Dois Edits, Um memo e um botão

Nos Edits eu coloco o endereco e o assunto
No Memo eu digito o corpo do e-mail
No botão, eu Envio os dados para o Outlook ficar pré preenchido.

Estou tentando utilizar a rotina abaixo:

email:=´mailto:xxx@yyy.com.br´; // seu endereço de e-mail
email:=email+´?subject=´+´Log de Erros´; // assunto
email:=email+´&body=´+mensagem; // corpo do e-mail

ShellExecute(Handle,´open´,pchar(email),nil,nil,SW_SHOWNORMAL);

No entanto, quando a mensagem chega no Outlook, o corpo não fica formatado com a tecla ENTER. Fica tudo na mesma linha.

Alguém saberia se é a característica do PChar e se tem alguma solução ?

Obrigado a Todos...

Ylton


Responder