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;
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!
