Limite Bcc

[Jvilomar]

Aqui de nuevo...

Bueno.. hasta ahora he hecho lo que me dijiste y no me ha resultado...

Creo mi stringlist y cargo el archivo donde tengo las direcciones pero no se envian.... no pasa nada... solo envia el email de prueba al recipiente principal o al To...

aqui esta una fraccion de codigo

Código Delphi [-]

procedure TfrmNuevoMensaje.edtBCCChange(Sender: TObject);
var
  strLista : TStrings;
begin
  strLista := tStringList.Create;
    try
    strLista.LoadFromFile('c:\mail.txt');
    IdMsgEnviar.BccLista.EMailAddresses := strLista.CommaText;
    //ListBox1.Items.Add(strLista.CommaText);
    Finally
     strlista.Destroy;
    end;
end;

[jachguate]

Bueno, creo que eso tendrá mas que ver con tu servidor de correo que con las INDY. Lo único que hará falta es verificar que después de asignar el bccList efectivamente se hayan creado los elementos del TidEmaiAddressList.

Eso podes comprobarlo fácilmente haciendo algo como:

Código Delphi [-]
procedure TfrmNuevoMensaje.edtBCCChange(Sender: TObject);
var
  strLista : TStringList;

begin
  strLista := tStringList.Create;
  try
    strLista.LoadFromFile('c:\mail.txt');
    IdMsgEnviar.BccList.EMailAddresses := strLista.CommaText;
    //ListBox1.Items.Add(strLista.CommaText);
    ShowMessage(Format('Se cargaron %d direcciones', [idMsgEnviar.bccList.Count]));
  Finally
    strlista.Destroy;
  end;
end;

He colocado en negrillas un par de cambios, el segundo impediria que compile el código.

Si el mensaje revela que hay mas de 0 direcciones cargadas al componente, y el correo no llega a estas direcciones, te sugiero ponerte en contacto con el administrador del email-server.

Hasta luego.