Buscar por:

Desvendando o enigma de envio de email com o terra

Código

Pessoal, a algum tempo vinha tentando incluir em um software a função de

enviar email, porem usando o SMTP da "TERRA", não dava certo de jeito algum,

muitas perguntas em foruns sem respostas que levassem ao exito e muita

pesquisa na net frustradas depois, através de perssistencia e tentativas

consegui resolver o problema, e assim sendo achei que não devo ser o unico a

ter tido esse problema resolvi compartilhar a solução como segue abaixo:

- Introduza num Form o coponente IdSmtp (no delphi6 está na paleta

IndyClients)

- Introduza num Form o coponente IdMessage (no delphi6 está na paleta

IndyMisc)

Segue Código:

procedure TForm1.Button1Click(Sender: TObject);

begin

idsmtp1.AuthenticationType:=atlogin;//Conexão com autenticação

idsmtp1.Host:='smtp.roo.terra.com.br';//Servidor no caso o Terra

idsmtp1.Password:='suasenhadoterra';//senha

idsmtp1.Port:=25;//porta é sempre essa não mude isso

idsmtp1.UserId:='usuarioteste';//usuario terra

idmessage1.From.Address:='usuarioteste@terra.com.br';//email terra

idmessage1.From.Name:='Fulano da Silva';//nome que sairá na menssagem

idmessage1.From.Text:='Fulano da Silva<usuarioteste@terra.com.br>';//Texto

composto do Nome<Email>

//corpo da mensagem

idmessage1.Body.Add('Envio de email para testar se dá certo');

idmessage1.Body.Add(datetostr(date));

idmessage1.Body.Add(timetostr(now));

idmessage1.Body.Add('Deu Certo');

idmessage1.Recipients.EMailAddresses:='emaildestino@Servidor.com.br';//o

email do destinatario

idmessage1.Subject:='Email de Teste do Programa Delphi';//assunto da

mensagem

//******************************

idsmtp1.Connect;//conecta ao servidor de email

try

idsmtp1.Send(idmessage1);// envia a menssagem

finally

idsmtp1.Disconnect;//Disconecta do servidor

end;

end;

Autor: Emerson Cassio (emcassio@terra.com.br)