nao rolou nao. chega no connect e nada. vou baixar as outras dlls
2009/8/15 Rafael Jorge <rafael.jo...@gmail.com> > pow bixu essa duvida quem postou fui eu e quem fez esse codigo fui eu > mas... > na moral, morria e nao sabia que o objeto sll nao tinha essas propiedades. > valeu meu vei.. vou testar. > > > > 2009/8/12 Ricardo Diniz <ricardo...@yahoo.com.br> > > >> >> Pode enviar o .pas desse fonte para testar melhor! >> >> --- Em ter, 11/8/09, clorenzettibr >> <clorenzett...@gmail.com<clorenzettibr%40gmail.com>> >> escreveu: >> >> De: clorenzettibr <clorenzett...@gmail.com <clorenzettibr%40gmail.com>> >> Assunto: [delphi-br] Re: indy + gmail + delphi 2006 (Solução) >> Para: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br> >> Data: Terça-feira, 11 de Agosto de 2009, 21:12 >> >> >> >> Para registrar: >> >> após pesquisar um "bocado" consegui enviar. >> >> No exemplo abaixo do colega faltava setar duas propriedades. >> >> sll.Host := 'smtp....'; >> sll.Port := 465; >> >> Consegui enviar utilizando o gmail e o brturbo. >> Att, >> >> Celso Lorenzetti >> www.sysrs.com. br >> >> --- Em delphi...@yahoogrup os.com.br, Rafael Jorge <rafael.jorge@ ...> >> escreveu >> >> > >> > estou tentando enviar email usando o gmail.. >> > o pior e que na minha maquina funciona.. >> > ja nos clientes nao. >> > estou usando as dlls. do site http://indy. fulgan.com/ SSL/ >> > mas mesmo assim nao esta funcionando. . >> > abaixo esta a rotina que uso pra enviar email... >> > sempre da erro dizendo que eu tenho que chamar STARTTLS antes.. >> > mas nao sei como proceder.. >> > >> > ------------ --------- ----- codigo ------------ --------- --------- >> ----- >> > >> > class procedure TEmail.enviaEmail( servidor_ usuario, >> > servidor_senha, >> > servidor_host, >> > email_de_quem_ enviou, >> > email_destino, >> > email_copia, >> > assunto, >> > mensagem: string; >> > servidor_porta: integer; >> > autenticacao : boolean; >> > anexo: string); >> > var >> > IdMessage : tIdMessage; >> > IdSMTP : tIdSMTP; >> > sll : tIdSSLIOHandlerSock etOpenSSL; >> > Anx : TIdAttachmentFile; >> > >> > >> > >> > procedure mostraAviso( texto: string; progresso: integer); >> > begin >> > if formenviandoemail = nil then >> > begin >> > formenviandoemail := tformenviandoemail. create(nil) ; >> > formenviandoemail. g.progress := 0; >> > end; >> > formenviandoemail. Show; >> > formenviandoemail. acao.caption := texto; >> > formenviandoemail. G.progress := progresso; >> > Application. ProcessMessages; >> > end; >> > >> > begin >> > //criando os objetos... >> > mostraAviso( 'Configurando para acessar conta...',0) ; >> > IdMessage := tIdMessage.create( nil); >> > IdSMTP := tIdSMTP.create( nil); >> > sll := tIdSSLIOHandlerSock etOpenSSL. Create(nil) ; >> > >> > IdSMTP.ReadTimeOut := 20000; >> > // Configura o servidor >> > if autenticacao then >> > begin >> > mostraAviso( 'Autenticando. ..',1); >> > sll.SSLOptions. Method := sslvSSLv2; >> > sll.SSLOptions. Mode := sslmClient; //sslmUnassigned; >> > idSMTP.IOHandler := sll; >> > idSMTP.UseTLS := utUseExplicitTLS; // utUseRequireTLS; >> > end; >> > >> > idsmtp.Username := servidor_usuario; // Usuário >> > idsmtp.Password := servidor_senha; // Senha >> > idsmtp.host := servidor_host; // Smtp >> > idsmtp.Port := servidor_porta; // Porta >> > >> > // Configura o remetente da Mensagem >> > mostraAviso( 'Configurando Assunto...', 2); >> > IdMessage.Clear; >> > IdMessage.Subject := LowerCase(assunto) ; // Assunto do Email >> > IdMessage.From. Address := email_de_quem_ enviou; // De quem e o Email >> > //Configura os destinatários (to) >> > mostraAviso( 'Configurando email que vai receber msg...',3); >> > IdMessage.Recipient s.Clear; >> > IdMessage.Recipient s.Add; >> > IdMessage.Recipient s.Items[IdMessag e.Recipients. Count-1]. Address := >> > email_destino; // Para quem vai >> > IdMessage.Recipient s.Items[IdMessag e.Recipients. Count-1]. Name := >> > copy(email_destino, 1,pos('@' ,email_destino) -1); >> > >> > // Configura os destinatários (cc) >> > if email_Copia <> '' then >> > begin >> > mostraAviso( 'Configurando Cópia de Email...',4) ; >> > IdMessage.Recipient s.Clear; >> > IdMessage.Recipient s.Add; >> > IdMessage.Recipient s.Items[IdMessag e.Recipients. Count-1]. Address := >> > email_Copia; >> > IdMessage.Recipient s.Items[IdMessag e.Recipients. Count-1]. Name := >> > copy(email_Copia, 1,pos('@' ,email_copia) -1); >> > end; >> > >> > // Adiciona o HTML ao corpo da mensagem >> > mostraAviso( 'Adicionando Texto a msg...',5); >> > idmessage.ContentTy pe:= 'text/html'; >> > IdMessage.Body. clear; >> > IdMessage.body. Text := mensagem; >> > >> > {// Anexa os arquivos >> > // for I := 0 to lstbxAnexos. items.count -1 do} >> > if anexo <> '' then >> > begin >> > mostraAviso( 'Conectando ao servidor SMTP..',6); >> > anx:= TIdAttachmentFile. Create(IdMessage .MessageParts, >> TFileName(anexo) ); >> > IdMessage.ContentTy pe := 'multipart/mixed' ; >> >> > end; >> > >> > IdMessage.Headers. Values['X- Library'] := ''; >> > // Envia Email >> > try >> > try >> > mostraAviso( 'Conectando ao servidor SMTP..',7); >> > idsmtp.connect; >> > if idsmtp.connected then >> > begin >> > mostraAviso( 'Enviando msg..',8); >> > idSmtp.send( IdMessage) ; >> > end; >> > mostraAviso( 'Msg enviada',9); >> > showMessage( 'MENSAGEM ENCAMINHADA COM SUCESSO'); >> > except on E:exception >> > do Showmessage( 'Problemas ao Conectar/enviar mensagem... Tente >> > Novamente'+# 13+ e.message); >> > end; >> > finally >> > idSmtp.disconnect; >> > end; >> > mostraAviso( 'Finalizando. .',8); >> > //limpando memoria >> > IdMessage.free; >> > IdSMTP.Free; >> > if formenviandoemail <> nil then >> > begin >> > formenviandoemail. free; >> > formenviandoemail: = nil; >> > end; >> > end; >> > >> > ------------ --------- ------- fim ------------ --------- --------- >> -------- >> > >> > -- >> > ------------ --------- --------- --------- --------- --------- - >> > Rafael jorge alves (Analista/desenvolv edor) >> > >> > www.sistemafocus. com.br >> > sistema focus de gestão comercial e serviços em informatica. >> > ------------ --------- --------- --------- --------- --------- - >> > >> > >> > [As partes desta mensagem que não continham texto foram removidas] >> > >> >> __________________________________________________ >> Fale com seus amigos de graça com o novo Yahoo! Messenger >> http://br.messenger.yahoo.com/ >> >> [As partes desta mensagem que não continham texto foram removidas] >> >> >> > > > > -- > _________________________ > Rafael jorge alves > Desenvolvedor/analista > Ativa Soluções em TI. > Recife - PE > -- _________________________ Rafael jorge alves Desenvolvedor/analista Ativa Soluções em TI. Recife - PE [As partes desta mensagem que não continham texto foram removidas]
