Como enviar e-mail para vários destinatários usando indy?
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
Curtidas 0
Respostas
Singular Ti
16/06/2012
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!!
GOSTEI 0
Fábio Silveira
16/06/2012
Obrigado pela ajuda, consegui fazer o que precisava com a ajuda do colega.
GOSTEI 0