Tecnobyte

Inclua na seção uses: ShellApi
Problema:
Desejo que meu programa prepare uma mensagem e abra o meu programa cliente de e-mail enviá-la.
Solução:
A solução apresentada abaixo deve funcionar com a maioria dos programas de correio eletrônico.
procedure PrepararEmail(Para, Assunto, Msg: string); var S: string; begin S := 'mailto:' + Para + '?subject=' + Assunto + '&body=' + Msg; ShellExecute(0, 'open', PChar(S), nil, nil, SW_SHOW); end;
Exemplo de uso:
PrepararEmail('fulano@servidor.com.br', 'Teste de e-mail', 'Esta é a mensagem do e-mail de teste.');
Observações
Outra alternativa é o programa preparar e também enviar o e-mail.
O conteúdo desta página pode ajudar alguém? Compartilhe!