cara.. qual a dll que voces tao usando. pq aqui continua dando erro. t+ 2009/8/15 Rafael Jorge <rafael.jo...@gmail.com>
> 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 > -- _________________________ Rafael jorge alves Desenvolvedor/analista Ativa Soluções em TI. Recife - PE [As partes desta mensagem que não continham texto foram removidas]
