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:='[EMAIL PROTECTED]';//email terra
idmessage1.From.Name:='Fulano da Silva';//nome que sairá na menssagem
idmessage1.From.Text:='Fulano da Silva<[EMAIL PROTECTED]>';//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:='[EMAIL PROTECTED]';//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;
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
