Valeu Wesley. Acabei descobrindo neste meio tempo.. Meu anti-vírus da McAfee estava com uma regra ativa que bloqueava o envio do e-mail: Impedir que worms de e-mail em massa enviem mensagens
Outra correção foi a porta SMTP do Yahoo que não é a 25 mas a 587. Obrigado! Dimitri _____ From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of BandaLemuel Sent: terça-feira, 8 de maio de 2007 15:18 To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Uso do TIdSMTP Tenta assim.... //Envia Email //---------------------------------------------------------- procedure EnviaEmail( Obs : String ; Mensagem : String ; Host : String ; Usuario : String ; Senha : String ; Assunto : String ); var Mail : TIdSMTP ; MailMensagem : TIdMessage ; begin //---------------------------------- //Cria a MEnsagem //---------------------------------- Mail := TIdSMTP.Create( Nil ); MailMensagem := TIdMessage.Create( Nil ); //---------------------------------- //------------------------------------- //Configura a Mensagem //------------------------------------- With MailMensagem do begin From.Name := De; ReplyTo.EMailAddresses := Destinatario ; Recipients.EMailAddresses := Destinatario ; Subject := Assunto ; Body.Add( Mensagem + #13 + #13 ); //Mensgaem que vc quer enviar MessageParts.Clear; //------------------------------------------ //----------------------------------------- //Configura a Conta para Enviar //----------------------------------------- Mail.Host := Host ; Mail.Username := Usuario ; Mail.Password := Senha ; Mail.AuthenticationType := atLogin ; Mail.Connect() ; //Verifica se Conctou if Mail.Connected then begin Mail.Send( MailMensagem ); Mail.Disconnect; Mail.Free; Application.MessageBox('Email enviado com Sucesso!' , 'Mail' , 0 ); end else begin Raise Exception.Create( 'Não foi possivel conectar ao Servidor' ); Mail.Free; end; end; //---------------------------------------------------------- Espero ter ajudado.... Wesley ----- Original Message ----- From: Dimitri Campana To: [EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br> os.com.br Sent: Tuesday, May 08, 2007 11:37 AM Subject: [delphi-br] Uso do TIdSMTP Bom dia! Estou implementando um Serviço Windows que enviará um e-mail de tempos em tempos com algumas informações coletadas.... Em uma unit, tenho 2 objetos do tipo TIdSMTP e TidMessage. O problema é que quando o objeto smtp tenta conectar-se ao servidor, ocorre um erro: "Socket Error # 10061 Connection refused.". Detalhes: . O objeto é criado 'na mão' pois nao existe um form na aplicação . Quanto testado em uma aplicação com um form o código abaixo funciona, só não é necessário o "Create". Alguém poderia me dar uma luz? Abaixo trechos do código: function TThreadRealIP.Send_Email(aFrom, aText, aSubject: string): Boolean; var Sent: Boolean; begin try Sent := False; IdSMTP1 := TIdSMTP.Create(Nil); IdSMTP1.ASCIIFilter := False; IdSMTP1.BoundPort := 0; IdSMTP1.ReadTimeout := 0; IdSMTP1.UseEhlo := True; IdSMTP1.AuthenticationType := atLogin; IdSMTP1.Host := 'smtp.mail.yahoo.com.br'; IdSMTP1.Port := 25; IdSMTP1.Username := 'usuario'; IdSMTP1.Password := 'senha'; IdSMTP1.Connect(3000); if IdSMTP1.Connected then begin ... IdSMTP1.Send(IdMessage1); } Sent := True; IdSMTP1.Disconnect; end; except on e: exception do begin self.gera_log(e.Message); Sent := false; end; end; IdSMTP1.Free; Result := Sent; end; Obrigado! -- Dimitri Campana Project Management Professional - PMP Microsoft Certified Solution Developer - MCSD Microsoft Certified Professional - MCP e-mail: dimitri.campana@ <mailto:dimitri.campana%40gmail.com> gmail.com celular (mobile): +55.48.9911.6119 skype: dimitri.campana MSN (IM): dimitricampana@ <mailto:dimitricampana%40hotmail.com> hotmail.com Profile: www.linkedin.com/in/dimitricampana DSOFT SISTEMAS Rua Desembargador Vitor Lima, 260 - Edifício Madison Center - Sala 504 Bairro: Trindade, 88.040-400, Florianópolis/SC [As partes desta mensagem que não continham texto foram removidas] ---------------------------------------------------------- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.467 / Virus Database: 269.6.5/793 - Release Date: 7/5/2007 14:55 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
