Galera tem como enviar um e-mail direto do meu programa sem presisar passar pelo Outlook.
Toshio
Curtidas 0
Respostas
Anonymous
15/02/2003
Olá,
Exsite uma meneira sim.
Se a sua versão do Delphi é igual o inferior a 5 vc pode usar o componente nmsmtp. Caso a sua versão seja maior vc pode usar o componente smtp da palheta indy.
note um pequeno exemplo para o componente nmsmtp:
procedure TForm1.Button1Click(Sender: TObject);
begin
with nmsmtp1 do begin
host := ´´ {seu servidor smtp, ex: smtp.ieg.com.br}
port := 25
userID := ´´ {seu login de email, ex: para pet@ieg.com.br o userID = pet}
if connected then disconnect
connect;
PostMessage.FromAddress := ´´ ; {endereço do email do remetente}
PostMessage.FromName := ´´ ; {Nome do remetente}
PostMessage.ToAddress.add(´´) := ´´; {Email do destinatário}
PostMessage.body.add (´´); {corpo da mesagem}
Sendmail;
end;// with
end;
Espero ter ajudado.
pet@ieg.com.br
Exsite uma meneira sim.
Se a sua versão do Delphi é igual o inferior a 5 vc pode usar o componente nmsmtp. Caso a sua versão seja maior vc pode usar o componente smtp da palheta indy.
note um pequeno exemplo para o componente nmsmtp:
procedure TForm1.Button1Click(Sender: TObject);
begin
with nmsmtp1 do begin
host := ´´ {seu servidor smtp, ex: smtp.ieg.com.br}
port := 25
userID := ´´ {seu login de email, ex: para pet@ieg.com.br o userID = pet}
if connected then disconnect
connect;
PostMessage.FromAddress := ´´ ; {endereço do email do remetente}
PostMessage.FromName := ´´ ; {Nome do remetente}
PostMessage.ToAddress.add(´´) := ´´; {Email do destinatário}
PostMessage.body.add (´´); {corpo da mesagem}
Sendmail;
end;// with
end;
Espero ter ajudado.
pet@ieg.com.br
GOSTEI 0