Enviando Email com Indy

[Rodrigo Miss 1]

Boa tarde pessoal !Ja cansei de procurar na net,, nos foruns, pegue exemplos e nunca consegui fazer fungar Qro enviar email usando o indy ...uso o delphi 7 com o indy nativo do delphi 7 msm ...uso os servicos da hotmail e/ou gmail ....c alguem puder me ajudar ... desde ja agradeço ...

[marcio.theis 3]

Se não me engano o delphi tem exemplo na pasta demos, ou então no site do fabricante do componente você consegue baixar exemplos com os fontes para envio e recebimento de e-mail.

[MasterDelphi 0]

Ola rodrigomiss e marcio.theis, aproveitando esse topico sobre indy...Ja fiz varios programas usando o componente indy e NADA, akilo nunca funciona nem que a vaca tussa, ja fui em todos e tudo que sites e forum, ja peguei exemplos e codigos e tals, mais só que akilo é assim, você coloca o smtp de um provedor e só pode ser enviado e-mail para o mesmo do smtp, e sempre da erro...Não sei se isso é por causa da versao do meu indy, uso o nativo do delphi 6, mais eu gostaria se sabe se existe um componente que colocasse um SMTP e envia se para qualquer e-mail, ja tendo isso ja é 100% de lucro ^^Valew ae

[marcio.theis 3]

Bom, eu utilizo o INDY e funciona certinho, tb uso o Delphi6, mas troquei a versão do indy para a 9.

[MasterDelphi 0]

Bom, eu utilizo o INDY e funciona certinho, tb uso o Delphi6, mas troquei a versão do indy para a 9.

Você concegue enviar e-mail diferentes do smtp que você colocou ? (Exemplo: você esta utilizando o smtp.yahoo.com e envia e-mail para o provedor Fulano@hotmail.com ?)

[marcio.theis 3]

Sim... Temos em nossos softwares o envio de mala direta, o cliente usa a sua conta de e-mail, e envia e-mail para o cliente que quiser... quem sabe tente usar a nova versão do Indy, eu sugiro a 9.

[MasterDelphi 0]

teria como você postar o codigo que você utiliza para o envio de email aqui ? você iria ajudar muitas pessoas inclusive eu http://forum.imasters.com.br/public/style_emoticons/default/grin.gif !

 

Qual quer coisa se nao der para você postar ae envia para meu e-mail Victor.lele@hotmail.com...

[marcio.theis 3]

Problema que o código é grande... e distribuído em units... se conseguir vou fazer um centralizado...

[Rodrigo Miss 1]

Pois eh galera!eu tb ja peguei varios exemplos no foruns...inclusive acabei de testar um aki .... e naum funfa!!!teria como me passar o link exato pra baixar esse indy 9 ?????pq naum consigo entralo ...desde ja agradeco

[MasterDelphi 0]

Problema que o código é grande... e distribuído em units... se conseguir vou fazer um centralizado...

Entao Marcio.theis, olha la em, vou ficar te cobrando em http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif ^^ , brincadeira, se eu nao me engano tenho seu msn ^^... Vlw ae

[marcio.theis 3]

Link para download do indy9: http://www.indyproject.org/download/Files/Indy9.html

[Rodrigo Miss 1]

Vlw Marcio !Ja baixei .... e consegui fazer oke eu qria....funfo certinho .... mto obrigado mano!

[marcio.theis 3]

beleza... :D

[MasterDelphi 0]

Vlw Marcio !Ja baixei .... e consegui fazer oke eu qria....funfo certinho .... mto obrigado mano!

Ola Rodrigo Miss, beleza?Teria como você me mostrar o codigo de envio que você fez ?Porque eu ja fiz alguns e nao funfo, tenho o indy 9 ja...

[Rodrigo Miss 1]

Pequeno Exemplo :

 

procedure TForm1.btnEnviarClick(Sender: TObject);begin  IdMessage.From.Address:= 'Seu Endereco';  IdMessage.From.Name:= 'Seu Nome';  IdMessage.Recipients.EMailAddresses:= txtPara.Text;  IdMessage.Subject:= txtAssunto.Text;  IdMessage.Body:= mmBody.Lines;  IdSMTP.Host:= txtSMTP.Text;  IdSMTP.Port:= 465;  IdSMTP.Username:= txtUser.Text;  IdSMTP.Password:= txtPassword.Text;  IdSMTP.Connect(3000);  if IdSMTP.Connected then  begin	  IdSMTP.Send(IdMessage);	  IdSMTP.Disconnect;	  ShowMessage('Email enviado com sucesso!');  end  else  begin	  IdSMTP.Disconnect;	  ShowMessage('Não foi possível se conectar com seu servidor de email!');  end;end;

vlw meu velho ... espero q isso lhe ajude.... depois fala c funfo Ok!

[MasterDelphi 0]

esse codigo ae que você colocou da para enviar para qualquer e-mail diferendo do smtp que vai estar no txtSMTP.Text?

[Rodrigo Miss 1]

sim ...aki funfa...acabei de enviar pra @hotmail.com ,,,,, sendo q no txtSMTP.text := smtp.gmail.com

[MasterDelphi 0]

a vlw entao, quando meu pc voltar a funfar eu vou testar ^^..Obriago ae

[marcio.theis 3]

valew por ter compartilhado Rodrigo... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Rodrigo Miss 1]

Ôhw....

 

Tqlo ... devo mto ainda ao forum e as vcs hehe http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif