Al enviar correo (un solo destino), este còdigo funciona correctamente, pero si envío un correo masivo, si un destino falla, no llega al
resto de destinatarios. Sin embargo si todos los destinos son correctos no hay problema.
Utilizo delphi7, indy, yahoo.
Si alguien conoce este error, le agradezco su ayuda.
Gracias anticipada. Saludos.
Código Delphi
[-]procedure TFCorreo1.Enviocorreo1;
var
i: integer;
begin
SMTP.Host := mHost;
SMTP.Port := 25;
SMTP.username := mUsuario;
SMTP.password := mPassword;
MailMessage.Clear;
MailMessage.From.Address := mEmail;
MailMessage.From.Name := mNombre;
MailMessage.Recipients.EMailAddresses := mEmail;
MailMessage.Subject := 'Comunidad de Propietarios';
MailMessage.Body.Text := Memo1.text;
for i := 0 to CLB1.Items.count-1 do if CLB1.State[i] = cbChecked then
MailMessage.CCList.add.Address := Query4EMAIL.Text;
for i := 0 to LB1.Items.count-1 do if FileExists(LB1.Items[i]) then
TIdAttachment.Create(MailMessage.MessageParts,LB1.Items[i]);
try
try
SMTP.Connect(1000);
SMTP.Send(MailMessage);
except
showmessage('Fallo en el Envío de Correo');
end;
finally
SMTP.Disconnect;
end;
end;