e-mail pelo delphi
05/04/2003
0
Caros Amigos
Como faço para mandar um e-mail de dentro de uma programa em Delphi?
Desde já agradeço a ajuda.
Att.
Fabiano
Como faço para mandar um e-mail de dentro de uma programa em Delphi?
Desde já agradeço a ajuda.
Att.
Fabiano
Anonymous
Curtir tópico
+ 0
Responder
Posts
05/04/2003
Marcelo.c
-Use a dica abaixo para enviar pelo OutLook:
uses ShellAPI;
procedure TForm1.Button1Click(Sender: TObject);
var
sEmail: string;
begin
sEmail := ´mailto:falecom@elivaldo.com.br´ +
´?Subject=Teste´ +
´&Body=Enviando email pelo Delphi´;
ShellExecute(Handle, ´open´, PChar(sEmail), nil, nil, SW_SHOW);
end;
uses ShellAPI;
procedure TForm1.Button1Click(Sender: TObject);
var
sEmail: string;
begin
sEmail := ´mailto:falecom@elivaldo.com.br´ +
´?Subject=Teste´ +
´&Body=Enviando email pelo Delphi´;
ShellExecute(Handle, ´open´, PChar(sEmail), nil, nil, SW_SHOW);
end;
Responder
Clique aqui para fazer login e interagir na Comunidade :)