diegobolognini

Bom dia caros amigos... Solucionei o problema de envio utilizando o Indy 10 para servidores Gmail, Hotmail, Yahoo e Servidor Próprio! Abaixo segue o código fonte: var IdSMTP1: TIdSMTP; Idmessage: TIdMessage; TextoMsg: TidText; IdSSL: TIdSSLIOHandlerSocketOpenSSL; begin IdSMTP1 := TIdSMTP.create(nil); IdSMTP1.ConnectTimeout := 10000; IdSMTP1.ReadTimeout := 10000; IdMessage := TIdMessage.create(nil); IdMessage.Clear; IdMessage.CharSet := 'iso-8859-1'; IdMessage.Encoding := MeMIME; IdMessage.ContentType := 'multipart/related' ; IdMessage.subject := 'Assunto'; textomsg := TIdText.Create(IdMessage.MessageParts); textomsg.Body.Text := 'Se você consegue ler isto então é porque funcionou o teste!'; textomsg.ContentType := 'text/html'; if ((cbtipo.itemindex = 0) or (cbtipo.itemindex = 2)) then begin // GMAIL e YAHOO if cbtipo.itemindex = 0 then begin idSMTP1.Host := 'smtp.gmail.com'; idSMTP1.Username := '[email protected]'; idSMTP1.Password := 'senha'; end else begin idSMTP1.Host := 'smtp.mail.yahoo.com'; idSMTP1.Username := '[email protected]'; idSMTP1.Password := 'senha'; end; IdMessage.from.address := idSMTP1.Username; IdMessage.recipients.emailaddresses := '[email protected]'; with idSMTP1 do begin IdSSL := nil; try port := 465; IdSSL := TIdSSLIOHandlerSocketOpenSSL.Create( nil ); IdSMTP1.IOHandler := IdSSL; UseTLS := utUseImplicitTLS; except on E: Exception do begin IOHandler := TIdIOHandler.MakeDefaultIOHandler( nil ); UseTLS := utNoTLSSupport; end; end; if Assigned(IdSSL) then begin IdSSL.SSLOptions.Method := sslvSSLv3; IdSSL.SSLOptions.Mode := sslmClient; end; AuthType := satDefault; end; end; //***************************** xxxxxxxxxxxxxxxx *************************** if ((cbtipo.itemindex = 1) or (cbtipo.itemindex = 3)) then begin // HOTMAIL e SERVIDOR PROPRIO idSMTP1.Port := 587; if cbtipo.itemindex = 1 then begin idSMTP1.Host := 'smtp.live.com'; idSMTP1.Username := '[email protected]'; idSMTP1.Password := 'senha'; end else begin idSMTP1.Host := 'smtp.servidorproprio.inf.br'; idSMTP1.Username := '[email protected]'; idSMTP1.Password := 'senha'; end; IdMessage.from.address := idSMTP1.Username; IdMessage.recipients.emailaddresses := '[email protected]'; with idSMTP1 do begin IdSSL := nil; try IdSSL := TIdSSLIOHandlerSocketOpenSSL.Create( nil ); IdSMTP1.IOHandler := IdSSL; UseTLS := utUseExplicitTLS; IdSSL.SSLOptions.Method := sslvTLSv1; IdSSL.PassThrough := true; except on E: Exception do begin IOHandler := TIdIOHandler.MakeDefaultIOHandler( nil ); UseTLS := utNoTLSSupport; end; end; end; end; idSMTP1.Connect; try idSMTP1.send(IdMessage); except on E : Exception do begin Memo1.Lines.Add(e.Message); end; end; idSMTP1.Disconnect; IdMessage.Free; IdSMTP1.Free; Qualquer dúvida podem entrar em contato pelo email: [email protected]

O erro que ocorre é: "SMTP ERROR: Unable to Login" As configurações da conta são as seguintes: Conta: Gmail Host: smtp.gmail.com Porta: 465 Tentei setar as propriedades setTLS e setSSL, uma de cada vez, mas estoura as três tentativas e não consegue conectar... Passei todos os parâmetros na mesma ordem do exemplo no início deste tópico, e nada...

Alguém teve dificuldades em utilizar esta Unit para envio de email de contas do Gmail e Hotmail? Se possível, alguém poderia passar um exemplo com uso da propriedade setTLS.

Sim, as configurações de POP e IMAP estão OK.. As dll's libeay32.dll e ssleay32.dll também estão atualizadas no diretório da aplicação! o procedimento .send demora cerca de 2 minutos até exibir a mensagem de erro citada acima.

Acabei de fazer isto e está ocorrendo um problema de "SMTP Error: Unable to Login". Segue abaixo a criação do componente em tempo de execução. teste := TACBRMail.Create(Application); teste.Port := '465'; teste.Host := 'smtp.google.com'; teste.Username := '[email protected]'; teste.Password := 'xxx'; teste.setTLS; teste.from := '[email protected]'; teste.fromName := 'Diego'; corpo := tstringlist.create; corpo.add('corpo do email'); teste.body := corpo; teste.addaddress('[email protected]','teste'); teste.subject := 'testando'; teste.send;

Bom dia amigo! Pelo ACBRNFeMonitor, que possui um exemplo de como enviar e-mails pelo ACBR não obtive sucesso para configurações do Gmail. Seguem as infos que usei como parâmetro: Servidor de Saída: smtp.gmail.com Porta: 465 Marquei a opção "TLS" A mensagem de erro é "Conection timed-out". Obs. Já verifiquei na conta gmail se as opções de POP e IMAP estão ativadas, e pelo outlook funciona perfeitamente!

Boa tarde! Estou tentando desenvolver um gerenciador de emails utilizando o componente Indy10. Esta mesma aplicação utiliza os fontes do ACBR normalmente... O problema é que a versão da libeay32.dll para a comunicação com o Indy (0.9.6a) é inferior a versão utilizada pelo ACBR. (0.9.8.14) Deixando a versão mais atual, a aplicação funciona normalmente.. porém ao tentar conectar o componente IDSMTP ele exibe uma mensagem de erro dizendo que as dll's não foram encontradas... Se eu deixar as dll's antigas, a aplicação não roda.... Deixar as dll's antigas na pasta da aplicação ou no diretorio system da máquina também não dão certo... Alguém já passou por dificuldade semelhante? Obrigado!