Ir ao topo

Tecnobyte

Logomarca da Tecnobyte
Contato por WhatsApp

WhatsApp

(69) 3421-6756

Contato por Telefone

(69) 3421-6756

(69) 3421-6757

Enviar mensagem

Enviar

mensagem

Contato por Facebook

Facebook

Atendimento de segunda a sexta, das 08h00 às 19h00 (horário de Brasília).

Delphi - Comunicação e Internet

Como abrir o programa cliente de e-mail com uma mensagem para ser enviada?

Banner

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!