Como mandar um e-mail pelo aplicativo padrão? – Show Delphi

DICAS

Visite a biblioteca de dicas da comunidade.

Saiba mais

ARTIGOS

Abordagens detalhadas sobre assuntos diversos.

Saiba mais

INICIANTES

Aprenda a programar de um modo simples e fácil.

Saiba mais

DOWNLOADS

Acesse os materiais exclusivos aos membros.

Saiba mais
voltar

PARA QUEM GOSTA DE DELPHI

Como mandar um e-mail pelo aplicativo padrão?

 

Esta forma de envio de e-mail é simples e não permite o envio de anexos,
ela simplismente abre o aplicativo padrão de e-mail com os dados informado.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
// É necessário estar declarado ShellAPI na seção uses.
// Em versões unicode declare Winapi.ShellAPI.
 
// Exemplo:
procedure TForm1.Button1Click(Sender: TObject);
var
  StringShellExecute: String;
begin
  StringShellExecute := StringShellExecute +
 
   'mailto:' +
 
   edtPara.Text +
 
   '?cc=' + edtCC.Text +
 
   '&cco=' + edtCCO.Text +
 
   '&subject=' + edtAssunto.Text +
 
   '&body=' + memoMensagem.Lines.Text;
 
  ShellExecute(Self.Handle, 'open', PChar(StringShellExecute), '', '',
     SW_SHOWNORMAL);
end;
Facebook Comments

Posts Relacionados

  • Administrador
  • 907 views
  • 0 comentários
  • 17 de março de 2015

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Ir ao topo

© 2016 Infus Soluções em Tecnologia - Todos os Direitos Reservados