Delphi dicas

Desvendando o enigma de envio de email com o terra

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';//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)