Fórum Como enviar e-mail para vários destinatários usando indy? #418619
16/06/2012
0
Estou tentando desenvolver um aplicativo para envio de feliz aniversário para os usuários que estão de aniversário, porém, não estou conseguindo.
Estou utilizando a rotina abaixo para configurar os e-mails que serão enviados, porém, quando envio ele apenas envia para o e-mail 1 e 2. Tentei até trocar a virgula por ; mas também não funciona.
IdMessage1.Recipients.EMailAddresses := email1@gmail.com;
idmessage1.BccList.EMailAddresses := email2@gmail.com, email3@gmail.com;
Para enviar estou usando o comando:
idSMTP1.send(idmessage1);
Estou usando delphi 7 com indy 10
Aguardo a ajuda de vocês!!
Abraço e desde já agradeço.
Estou utilizando a rotina abaixo para configurar os e-mails que serão enviados, porém, quando envio ele apenas envia para o e-mail 1 e 2. Tentei até trocar a virgula por ; mas também não funciona.
IdMessage1.Recipients.EMailAddresses := email1@gmail.com;
idmessage1.BccList.EMailAddresses := email2@gmail.com, email3@gmail.com;
Para enviar estou usando o comando:
idSMTP1.send(idmessage1);
Estou usando delphi 7 com indy 10
Aguardo a ajuda de vocês!!
Abraço e desde já agradeço.
Fábio Silveira
Curtir tópico
+ 0
Responder
Posts
16/06/2012
Singular Ti
Porque vc nao cria uma variavel do tipo Tstringlist para armazenas todos os seus destinatarios e faça um loop passando um a um enviando o email...
for i:=0 to ListaEmail.Count - 1 do
begin
IdMessage.Recipients.EMailAddresses := ListaEmail.Items.Strings[i];
try
IdSMTP.Send(IdMessage);
except
raise Exception.Create(Atenção, falha de comunicação a mensagem não pode ser enviada.);
end;
end;
Algo assim... Talvez ajude. Abraços!!
for i:=0 to ListaEmail.Count - 1 do
begin
IdMessage.Recipients.EMailAddresses := ListaEmail.Items.Strings[i];
try
IdSMTP.Send(IdMessage);
except
raise Exception.Create(Atenção, falha de comunicação a mensagem não pode ser enviada.);
end;
end;
Algo assim... Talvez ajude. Abraços!!
Responder
Gostei + 0
18/06/2012
Fábio Silveira
Obrigado pela ajuda, consegui fazer o que precisava com a ajuda do colega.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)