[firebase-br] RES: Delphi 7 + Indy 10 + SSL SAS

[Alexandre]

Já tive problemas com o envio de e-mail quando o servidor utiliza SSL e na
máquina cliente não tinha as DLLs do OpenSSl (libeay32.dll e ssleay32.dll),
vale a pena dar uma verificada.


Alexandre Camilo.



-----Mensagem original-----
De: lista [mailto:lista-bounces em firebase.com.br] Em nome de Geferson Dietze
Enviada em: segunda-feira, 7 de abril de 2014 08:55
Para: lista em firebase.com.br
Assunto: [firebase-br] Delphi 7 + Indy 10 + SSL SAS

Olá.

Tenho programa que em determinadas situações envia e-mail de notificação
para alguns endereços determinados.

Agora precisei usar smtp do gmail e yahoo e não consigo de maneira alguma
fazer funcionar.

Criei um exemplo bem simples para teste e nem nele consigo enviar e-mail.

Revirei fóruns, baixei N exemplo e nada funciona.

Adicionei TidSMTP, TidSSLIOHandlerSocketOpenSSL, IDMessage e todos
componentes da aba INDY SASL.


  object IdSMTP1: TIdSMTP
    IOHandler = IdSSL1
    AuthType = satSASL
    Host = 'smtp.gmail.com'
    Password = minha senha
    Port = 587
    UseTLS = utUseRequireTLS
    Username = 'dgeferson em gmail.com'
E adicionei todos componentes da aba INDY SASL na
propriedade SASLMechanisms.


  object IdSSL1: TIdSSLIOHandlerSocketOpenSSL
    Destination = 'smtp.gmail.com:587'
    Host = 'smtp.gmail.com'
    MaxLineAction = maException
    Port = 587
    DefaultPort = 0
    SSLOptions.Method = sslvSSLv3
    SSLOptions.SSLVersions = [sslvSSLv3]
    SSLOptions.Mode = sslmClient

*Lembrando que já mudei porta, SSLOptions.Method, UseTLS infinitas vezes.


object IdMessage1: TIdMessage
    AttachmentEncoding = 'UUE'
    BccList = <>
    CCList = <>
    Encoding = meDefault
    FromList = <
      item
        Address = 'dgeferson em gmail.com'
        Text = 'dgeferson em gmail.com'
        Domain = 'gmail.com'
        User = 'dgeferson'
      end>
    From.Address = 'dgeferson em gmail.com'
    From.Text = 'dgeferson em gmail.com'
    From.Domain = 'gmail.com'
    From.User = 'dgeferson'
    ReceiptRecipient.Address = 'geferson.dietze em yahoo.com.br'
    ReceiptRecipient.Text = 'geferson.dietze em yahoo.com.br'
    ReceiptRecipient.Domain = 'yahoo.com.br'
    ReceiptRecipient.User = 'geferson.dietze'
    Recipients = <>
    ReplyTo = <>
    ConvertPreamble = True


Baixei as DLL´s atualizadas, baixei antigas, testei de tudo e nada de
funcionar. Tinha um programa antigo que utilizava gmail q funcionava à
muitos anos q não funciona mais.

Conecta tranquilo, mas na hora de enviar (dependendo das config´s)ou trava
ou dá erro "Project project1.exe raised exception class EidSMTPReplyError
with message 'RCPT first.44sm10758854yhp.17 - gsmtp"

Primeiros erros foram de que faltava adicionar mecanismos de sas na
propriedade SASLMechanisms, depois conectava e travava na hora do envio e
agora isso, já estou ficando sem saber mais oq testar, pensando inclusive
em fazer downgrade do indy.
Alguém está conseguindo usar INDY10 para enviar e-mails?

Obrigado.
______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
Para saber como gerenciar/excluir seu cadastro na lista, use:
http://www.firebase.com.br/fb/artigo.php?id=1107
Para consultar mensagens antigas: http://firebase.com.br/pesquisa