Mandar email pelo Gmail com Indy

Question

Ai pessoal, estou com uma duvida, acho que estou deixando algo sem configurar, to usando os Componentes Indy q qrendo enviar um email pelo o Gmail.[code:1:a3e87533f6]IdSMTP.host => smtp.gmail.comId...

Rjun · Answer

Qual o problema que você esta tendo? Qual versão do Indy você está usando?...

Emerson Nascimento · Answer

instancie um componente [b:7412b67ab0]IdSSLIOHandlerSocket[/b:7412b67ab0] da palleta [b:7412b67ab0]Indy IO Handlers[/b:7412b67ab0]

ligue a propriedade IOHandler do componente IdSMTP ao componente IdSSLIOHandlerSocket recém criado.

IdSMTP1.AuthenticationType := atLogin;
IdSMTP1.Host := ´smtp.gmail.com´;
IdSMTP1.Port := 465;
IdSMTP1.Username := ´seulogin@gmail.com´;
IdSMTP1.Password := ´suasenha´;

IdSMTP.Connect(3000);

antes de executar seu programa, será necessário baixar uma biblioteca OpenSSL e extrair os arquivos na pasta do exe ou na pasta do windows (numa pasta que esteja no caminho de busca).
eu baixei a [url=http://indy.fulgan.com/SSL/indy_OpenSSL096m.zip]indy_OpenSSL096m[/url] em [url]http://indy.fulgan.com/SSL/[/url]

Laelsonc · Answer

Depois de muito tentar com o Gmail, nao consegui ao menos conectar, pois dava um erro de de carregamento de Dll das que eu baixei no link do Emerson, eu fui pra um outro servidor de emails.

IdSMTP.Host := ´mail.itnet.com.br´;
IdSMTP.Port := 25;
 
IdSMTP.Username := ´laelsonc@itnet.com.br´;
IdSMTP.Password := ´...´;

Esse ao menos conecta. Mas na hora de enviar o IdMessage passa um tempao, e depois manda uma mensagem dizendo ´authentication failed´
...na to entendendo onde essa falha de autenticacao. A porta esta correta,
eu uso no outlook a mesma.

Eu estou usando o Indy 10, e nao consegui colocar esse paramentro ai
no Connect emerson, acho que a versao nao suporta mais.

IdSMTP1.AuthenticationType := atLogin;
Connect(3000);

Agradeço desde de ja as ajudas...

Massuda · Answer

Informe qual versão do Indy você está usando ou se estiver usando o Indy que veio com o Delphi, informe qual versão do seu Delphi....

Corcos · Answer

Uso a versão 9 e funciona certinho, tive uns problemas com o Gmail e preferi utilizar o yahoo que passei a não ter mais problemas

IdSMTP.Host:=´smtp.mail.yahoo.com.br´; IdSMTP.Port:= 25; //IdSMTP.AuthenticationType := atLogin; //caso precise autenticar IdSMTP.Username := ´teste´; IdSMTP.Password := ´123456´; IdMessage.Clear; IdMessage.From.Text :=´teste@seudominio.com.br´; //conta que irá aparecer idMessage.Recipients.EMailAddresses := ´email@email.com´; //email destino IdMessage.CCList.EMailAddresses := ´comcopia@email.com.br´; //com copia

Corpo do email

final

IdSMTP.Connect; try IdSMTP.Send(IdMessage); finally IdSMTP.Disconnect; end; Application.MessageBox(´Email enviado com sucesso!´, ´Confirmação´, MB_ICONINFORMATION + MB_OK);

Corcos · Answer

Esqueci de falar uma coisa é interessate fazer para testes

coloca um memo e a propriedade OnStatus do componente TidSMTP coloque

Memo.Lines.Add(AStatusText);

assim vc consegue visualizar o que esta passando

Laelsonc · Answer

Delphi 7 com Indy 10 que peguei nesse endereço - [url]//indy.fulgan.com/ZIP/[/url]Vou tentar agora com o Indy 9.0.0.18....

Laelsonc · Answer

Galera...eu mudei pra versao que 9.0.0.18 e funcionou blz. Nao vou mais esquentar a cabeça com a Versao 10.  Valeu muito Obrigado amigos !...

Massuda · Answer

A dica do emerson funciona com Indy9. Com Indy10, que eu saiba (nunca usei), as DLLs necessárias são as DLLs padrão do projeto OpenSSL ( http://www.openssl.org ); não use as que tem no FTP fulgam.com pois essas DLLs são modificadas para funcionar com Indy9.

Seu código deveria ser algo assim...

IdSMTP1.IOHandler := IdSSLIOHandlerSocketOpenSSL; 
IdSMTP1.Host := ´smtp.gmail.com´; 
IdSMTP1.Port := 465; 
IdSMTP1.UseTLS := utUseExplicitTLS;
 
IdSMTP1.AuthType := atDefault; 
IdSMTP1.Username := ´seu.username´; 
IdSMTP1.Password := ´sua.senha´; 
 
IdSMTP1.Connect; 
IdSMTP1.Send(IdMessage1); 
...

Não me lembro, mas talvez tenha que ativar o acesso ao servidor POP3 na sua conta GMail.

Pestana_ · Answer

Corcos a uns tempos atras eu estavá tentando enviar e-mail através do delphi, mas eu não consegui estavá dando erro, eu tambem fiz diferente do que você fez, deve ser esse o motivo rsrsrsrs.

tem como você esplicar pra mim como você fez para que eu possa a retornar ao processo de enviar e-mail pelo o delphi ou se alguem poder me ajudar e agradeço.

D7.

abraços,
flw.

Laelsonc · Answer

Ola Pestana... pegue ai o exemplo que eu fiz para o Gmail. Com a ajuda dos meus amigos ai esta funcionando blz!
A versao do Indy é a que falei acima. 9.0.0.18
[url]http://www.grupokariri.com.br/download/EmailIndy.rar[/url]

Vou desenvolver agora para enviar formatado em HTML.
Ate mais.

Pestana_ · Answer

[quote:562efced73=´laelsonc´]Ola Pestana... pegue ai o exemplo que eu fiz para o Gmail. Com a ajuda dos meus amigos ai esta funcionando blz!A versao do Indy é a que falei acima. 9.0.0.18[url]//www.grupokariri.com.br/download/EmailIndy.rar[/url]Vou desenvolver agora para enviar formatado em HTML.Ate mais.[/quote:562efced73]valeu amigão, vou dar uma estudada no fonte agora.abraços,Pestana....

Corcos · Answer

O meu botão de enviar e-mail em html, é um sistema de cadastro de atendimento[/quote]// ENVIO DE E-MAILIdSMTP.Host:=´smtp.mail.yahoo.com.br´;IdSMTP.Port:= 25;//IdSMTP.AuthenticationType := atLogin; //caso precise autenticarIdSMTP.Username := ´login´;IdSMTP.Password := ´senha´;IdMessage.Clear;IdMessage.From.Text :=´informatica@provedor.com.br´;idMessage.Recipients.EMailAddresses := frmCadAtend.QryCadAtendimento.FieldByName(´EMAIL´).AsString;IdMessage.CCList.EMailAddresses := ´chamado@provedor.com.br´;//IdMessage.BccList.EMailAddresses := ´´; //edtCCO.Text; so se precisarIdMessage.Subject := ´Atendimento número: ´+frmCadAtend.QryCadAtendimento.FieldByName(´IDCADATENDIMENTO´).AsString;// tratamento do corpo da mensagemIdMessage.ContentType := ´text/html´;IdMessage.Body.Add(´´);IdMessage.Body.Add(´Data do chamado: ´+edtData.Text+ ´´);IdMessage.Body.Add(´Hora do chamado: ´+edtHora.Text+ ´´);// IdMessage.Body.Add(´Hotel: ´+frmCadAtend.QryCadAtendimento.FieldByName(´HOTEL´).AsString+ ´´);IdMessage.Body.Add(´Funcionário: ´+frmCadAtend.QryCadAtendimento.FieldByName(´FUNCIONARIO´).AsString+ ´´);IdMessage.Body.Add(´Setor: ´+frmCadAtend.QryCadAtendimento.FieldByName(´SETOR´).AsString+´´);// IdMessage.Body.Add(´Tipo de atendimento: ´+frmCadAtend.QryCadAtendimento.FieldByName(´TIPOATENDIMENTO´).AsString+´´);// IdMessage.Body.Add(´Descrição do problema: ´+frmCadAtend.QryCadAtendimento.FieldByName(´PROBPASSADO´).AsString+´ ´);if (frmCadAtend.QryCadAtendimento.FieldBy...

Pestana_ · Answer

valeu galera! deu certo,flw,Pestana....

Scotchtriplo · Answer

Boa tarde,  gostaria da ajuda de vcs pra enviar e-mail pelo Delphi 2006....

Fórum Mandar email pelo Gmail com Indy #337475