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

Show Delphi » Redes e Internet, Windows » Como mandar um e-mail pelo aplicativo padrão?

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 Box
  • InfusTec
  • 4.477 views
  • 0 comentários
  • 17 de março de 2015

Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!

Deixe um comentário

    Patrocinado


    Patrocinado

    Patrocinado

Ir ao topo

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