Envio de Email utilizando o shellexecute

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (2)  (0)

Envio de Email utilizando o shellexecute

Neste artigo que irei disponibilizar, teremos a oportunidade de incluir em nossas aplicações o envio de email atraves das mesmas utilizando shellexecute...
Para isso devemos incluir na Uses a biblioteca ShellAPI...
Vamos lá devemos desenhar nosso formulário de acordo com a figura ao lado:
Incluiremos 4 edits, 1 button e 1 memo
No evento onclick do button devemos incluiir o seguinte código:
 
procedure TForm1.btnEnviarEmailClick(Sender: TObject);
var
  stringshellexecute: string;
begin
  stringshellexecute := stringshellexecute +'mailto:' + Edit1.Text + '?cc=' + edit2.text + '&cco=' + Edit3.text + '&subject=' + edit4.text + '&body=' + Memo_Mensg.lines.text;
  shellexecute(self.handle, 'open',pchar(stringshellexecute),'','',sw_shownormal);
end;
 
Espero que gostem e seja útil...
AbraçoO... Até a próxima!
 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?