TIdMessage e TIdEMailAddressList

Question

Ola, estou tentando desenvolver uma aplicacao que faca o envio de email mas so encontrei o componente TIdMessage, onde posso encontrar o componente TIdEMailAddressList? Qual a versao do Delphi?
Obrigado.

Massuda · Answer

O objeto que voc� citou � criado e usado internamente pelo TIdMessage, n�o precisa ser criado separadamente.

Talvez isso ajude voc�: este � o esquema b�sico de envio de email usando os componentes Indy...

...
  // monte sua mensagem usando um TIdMessage
  IdMessage1.Recipients.Add(�alguem@example.com�);
  IdMessage1.Subject := �Assunto�;
  IdMessage1.Body.Add(�Texto da mensagem�);

  // nome do seu servidor SMTP
  IdSMTP1.Host := �smtp.example.com�; 

  // alguns servidores SMTP requerem login outros n�o
  //IdSMTP1.AuthenticationType := atLogin;
  //IdSMTP1.Username := �nome.de.usuario�
  //IdSMTP1.Password := �senha.secreta�;

  // conecta com o servidor
  IdSMTP1.Connect; 
  try 
    IdSMTP1.Send(IdMessage1); 
  finally 
    IdSMTP1.Disconnect; 
  end; 
...

Dependendo do servidor de SMTP que voc� estiver usando, pode haver necessidade de incluir mais c�digo para que o envio de mensagem funcione.

Ricardopinheiro · Answer

Sua ajuda valeu MUITO, mas a linha IdMessage1.Recipients.Add(�alguem@example.com�); nao funcionou. Resolvi usando IdMessage.Recipients.EMailAddresses := �rrp@rhodes.com.br�;
Faltou ainda como identificar o remetente. Mas agora apareceu um outro problema: o programa funcionou corretamente, mas a mensagem nao foi enviada, ja verifique o anti-spam e o boxtrapper da minha caixa de mensagem e nada :cry: ... ou sera que foi enviada e ta perdida por ai? Alguem achou? :P

Massuda · Answer

[quote:cdf57bf060=�RicardoPinheiro�]...a mensagem nao foi enviada...[/quote:cdf57bf060]Isso pode ter v�rias causas:[list:cdf57bf060][*:cdf57bf060]Seu servidor de SMTP requer que voc� fa�a login? Nesse caso, voc� precisa do c�digo que est� comentado no exemplo que postei.[*:cdf57bf060]Seu servidor de SMTP pode requerer que voc� conecte primeiro no servidor POP3 e permane�a conectado (no servidor POP3) at� terminar de usar o servidor SMTP; o c�digo exemplo ficaria assim...[code:1:cdf57bf060]...   // monte sua mensagem usando um TIdMessage   ...  // nome do seu servidor POP3   IdPOP31.Host := �pop.example.com�;   IdPOP31.Username := �nome.de.usuario�   IdPOP31.Password := �senha.secreta�;   IdPOP31.Connect;  // nome do seu servidor SMTP   IdSMTP1.Host := ...  ...    IdSMTP1.Disconnect;   end;   IdPOP31.Disconnect;[/code:1:cdf57bf060][*:cdf57bf060]Pode estar tendo algum problema no Send... tire o try...finally e veja se est� gerando alguma exce��o.[*:cdf57bf060]Seu email pode estar sendo classificado como spam. D� uma olhada [url=//forum.clubedelphi.net/viewtopic.php?t=58176]neste t�pico[/url][/list:u:cdf57bf060]...

Guilherme · Answer

massuda criei um sistema que esta igual no seu so q quando envio uma mensagen com anexo de +- 1 mb a aplica�ao tipo fica travada mais nao esta travada si deixa ela quetinha ela termina de envia e volta ao normal vc sabe como corrigir isso ??? e tem como colocar progress nessa rotina ?????

valew

Massuda · Answer

[quote:3b2e303864=�gborges_13�]...quando envio uma mensagen com anexo de +- 1 mb a aplica�ao tipo fica travada mais nao esta travada si deixa ela quetinha ela termina de envia e volta ao normal...[/quote:3b2e303864]O m�todo IdSMTP1.Send s� retorna depois de enviar a mensagem (no seu caso, +/- 1 mega). Melhora um pouco se voc� colocar no form onde tem o IdSMTP um TIdAntiFreeze (aba Indy Misc), mas n�o resolve totalmente.[quote:3b2e303864=�gborges_13�]e tem como colocar progress nessa rotina ?[/quote:3b2e303864]Sei que tem, mas eu nunca fiz isso, n�o sei como faz....

Aspirante · Answer

Ressucitando este t�pico para uma ajuda.

Coloquei todos os c�digos. O programa compilou tranquilo.

As partes mais principais da conex�o coloquei assim:

IdPOP31.Host := �pop.gmail.com�;

...

IdSMTP1.Host := �smtp.gmail.com�;

Tentei tamb�m com pop/smtp.mail.google.com

Na verdade n�o sei qual � o host do gmail.

Bom. Quando ele vai enviar o e-mail o meu AVG Email Scanner (do AVG AntiVirus) � executado na barra de tarefas, como se mostrando aquela caixinha pop-up do messenger quando chega uma nova mensagem. Ele come�a a varrer eu acho o email pop. A� depois d� uma mensagem no delphi de erro:

EIdProtocolReplyError
�-ERR AVG POP3 Proxy Server: Cannot Connect to the email server!�

Algu�m sabe o host do google e o porque do erro?

Tamb�m aproveitando, usando o meu GMail no sistema, d� pra enviar email de qualquer computador/cliente?

Massuda · Answer

Esses componentes s� funcionam com o GMail se voc� fizer algumas coisas a mais. Pesquise aqui no f�rum por GMail que voc� deve encontrar alguns t�picos sobre como usar Indy com GMail. Eu nunca precisei fazer isso, por isso n�o tenho id�ia de como fazer isso.

Aspirante · Answer

Mas amigo, olha, antes de responder este t�pico eu procurei um monte sobre gmail + indy, gmail, enfim. Nada achei. Tanto procurei que achei este t�pico antigo e o ressuscitei.

Bom, n�o consegui achar nada, mas se algu�m puder me ajudar, por favor...

Obrigado.

Massuda · Answer

GMail usa SSL (conex�o segura)... o b�sico seria [url=http://forum.clubedelphi.net/viewtopic.php?t=60778]instalar o suporte a SSL no Indy[/url] mas como escrevi no meu post anterior, n�o sei dos detalhes para conectar com o GMail; a princ�pio, basta ter o suporte a SSL e informar as portas usadas pelos servidores do GMail (que n�o s�o as portas padr�o).

Aspirante · Answer

Uhm, ent�o � melhor que eu fa�a com o Yahoo n�.Poderia me passar as portas, host, tudo o mais do yahoo?Obrigado....

Massuda · Answer

Peloque me lembro, as portas s�o as portas padr�o que j� vem ajustadas nos componentes. Quanto aos outros detalhes (servidores, username, senha) voc� obtem isso no link Op��es na p�gina do webmail deles (voc� precisa estar logado no Yahoo).

Aspirante · Answer

Olha fiz esse c�digo a� mudando claro as op��es de usu�rio e senha. Mas quando tento enviar o email, apesar de d� certo, ou seja, nenhuma mesagem de erro, o email n�o chega a caixa de entrada. Nem em spam, nem em nada.

O que ser� qeu �??

begin
IdPOP31.Host := �pop.mail.yahoo.com.br�;
IdPOP31.UserId := �usuario�;
IdPOP31.Password := �senha�;

IdPOP31.Connect;

// nome do seu servidor SMTP
IdSMTP1.Host := �smtp.mail.yahoo.com.br�;
IdSMTP1.Disconnect;


////////////////////////////////////////////////////////////


IdMessage1.Recipients.EMailAddresses := Edit2.Text;
IdMessage1.Subject := Combobox1.Text;
IdMessage1.Body := Memo1.Lines;

// nome do seu servidor SMTP
IdSMTP1.Host := �smtp.mail.yahoo.com.br�;

// alguns servidores SMTP requerem login outros n�o
IdSMTP1.AuthenticationType := atLogin;
IdSMTP1.UserId := �usuario;
IdSMTP1.Password := �senha�;

// conecta com o servidor
IdSMTP1.Connect;
try
IdSMTP1.Send(IdMessage1);
finally
IdSMTP1.Disconnect;
end;
IdPOP31.Disconnect;
end;

Massuda · Answer

Existem v�rios motivos para um email n�o chegar no destino.

Primeiro, eu mudaria parte do seu c�digo para...

...
IdSMTP1.Connect; 
try 
  IdSMTP1.Send(IdMessage1); 
except
  on E: Exception do 
    MessageDlg(E.Message, mtError, [mbOK], 0);
end; 
IdSMTP1.Disconnect; 
...

Fora isso, acho que est� faltando o remetente da mensagem (alguns servidores classificam isso como spam). Falando em spam, existem v�rios t�picos aqui no f�rum sobre Indy e spam; pesquise aqui o f�rum por IdSMTP1 e SPAM que voc� deve encontrar esses t�picos.

Luizito · Answer

Algu�m sabe porque o IdSMTP do Indy 10 sempre retorna 0 (zero) no envio de email para AWorkCountMax ??
N�o deveria retoprnar o tamanho o IdMessage ????

IdSMTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode; AWorkCountMax: Integer);

Um abra�o...

F�rum TIdMessage e TIdEMailAddressList #287830