Eu testei no delphi 7, e qdo tento enviar email pelo gmail usando tais configurações, e mesmo colocando as dll no system32.... ocorre o erro "Could not load SSL library" Detalhe, essas dlls, consegui encontrar num pacote de PHP que andei testando, creio que devam ter compatibilidade com o Delphi.
Alguem sabe como fazer exatamente envio de email com Delphi 7 + Indy + Gmail ? 2009/8/15 Leandro <[email protected]> > > > amigo quebrei muita cabeça com isso.. e quando consegui resolver achei a > coisa mais facil do mundo kkkkk, apanhando q se aprende.. eu uso essas > colocadas no diretorio do sistema: > libeay32.dll > ssleay32.dll > > uso o component IdConnectionInterceptOpenSSL delphi 6 e somente ativo no > idsmtp propriedade interceptenabled para true quando quero usar conexao > segura.. > > nao esqueça de trocar a porta pq no gmail eh diferente.. > > agora n sei se n sua versao do delphi o componente ainda eh parecido > > boa sorte.. > > > 2009/8/15 Rafael Jorge <[email protected] <rafael.jorge%40gmail.com>> > > > > > > > cara.. qual a dll que voces tao usando. > > pq aqui continua dando erro. > > t+ > > > > > > 2009/8/15 Rafael Jorge > > <[email protected]<rafael.jorge%40gmail.com><rafael.jorge% > 40gmail.com>> > > > > > nao rolou nao. > > > chega no connect e nada. > > > vou baixar as outras dlls > > > > > > > > > > > > 2009/8/15 Rafael Jorge <[email protected]<rafael.jorge%40gmail.com> > <rafael.jorge%40gmail.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 > > >> <[email protected]<ricardodnz%40yahoo.com.br> > <ricardodnz%40yahoo.com.br> > > > > > >> > > >> > > >>> > > >>> Pode enviar o .pas desse fonte para testar melhor! > > >>> > > >>> --- Em ter, 11/8/09, clorenzettibr > > >>> <[email protected]<clorenzettibr%40gmail.com> > <clorenzettibr%40gmail.com> > > <clorenzettibr%40gmail.com>> > > >>> escreveu: > > >>> > > >>> De: clorenzettibr > > >>> <[email protected]<clorenzettibr%40gmail.com><clorenzettibr% > 40gmail.com><clorenzettibr% > > 40gmail.com>> > > >>> Assunto: [delphi-br] Re: indy + gmail + delphi 2006 (Solução) > > >>> Para: [email protected] > > >>> <delphi-br%40yahoogrupos.com.br><delphi-br% > 40yahoogrupos.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.jo...@...> > > >>> 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] > > > > > > > > -- > Leandro, MuTukA > > [As partes desta mensagem que não continham texto foram removidas] > > > -- Leonardo Quinino [As partes desta mensagem que não continham texto foram removidas]
