Fallo en el envío de correo

[Loviedo]

Creo que la ayuda solicitada está perfectamente detallada pero no hay inconveniente en describir el error, porque creo que aclara menos que la pregunta.

error:
syntax error in arguments

Tengo 62 años, esto para mí es un hobby, no es mi profesión ni me lucro con ello, llevo mucho tiempo en este foro, pero a veces es decepcionante las respuestas que se dan, es muchos más elegante no responder, pués nadie está obligado a ello, no se si preguntas poco clara aumenta mucho el trabajo de los moderadores. Lo siento.
saludos.

[marcoszorrilla]

Con el código que tienes, por qué no te construyes una función para enviar un solo correo cada vez, mediante un bucle llamas a la función pasándole una dirección cada vez así el fallo de alguna de las direcciones no afectaría a las otras, aunque no estaría demás dentro del Try incluir un mensaje la dirección xxx no pudo procesarse.

Un Saludo.

[Loviedo]

Gracias por la respuesta, pensé en ello, pero como es un tema muy tratado en el foro (correo automático), y como sólo es un hobby,
tenía curiosidad por una posible solución al envío masivo.
Saludos.

[Loviedo]

Optaré por la solución del Sr. Marcoszorrilla. Gracias.
Saludos.

[Casimiro Notevi]

Empezado por Loviedo

Creo que la ayuda solicitada está perfectamente detallada pero no hay inconveniente en describir el error, porque creo que aclara menos que la pregunta.
error:
syntax error in arguments
Tengo 62 años, esto para mí es un hobby, no es mi profesión ni me lucro con ello, llevo mucho tiempo en este foro, pero a veces es decepcionante las respuestas que se dan, es muchos más elegante no responder, pués nadie está obligado a ello, no se si preguntas poco clara aumenta mucho el trabajo de los moderadores. Lo siento.
saludos.

Hola, el detallar lo mejor posible la pregunta, ni aumenta ni disminuye el trabajo de los moderadores, lo único que consigues es que te ayuden antes y mejor
Si las respuestas son decepcionantes pueden deberse a varios motivos:
1. Que la pregunta es decepcionante, por lo que es imposible ayudar.
2. Que la pregunta no es clara, por lo que induce a equívocos al tratar de "descifrar" lo que se pregunta, por lo que se dan respuestas variadas.
3. Que el que responde contesta lo que buenamente sabe, por tratar de ayudar, para encaminar o para dar alguna pista de por donde van los "tiros".

Por ejemplo, ahora dices que el error es "syntax error in arguments", eso es muy diferente a lo que dijiste antes. Es como si vas al médico y le dices que te duele la cabeza y el brazo derecho... pero se te "olvida" contarle que te caiste con la moto

Si se quieren respuestas buenas entonces habría que ver exactamente el mensaje del error, en qué línea del código se ha producido, qué valores tienen las variables involucradas, etc.

Por cierto, el que sea un hobby no implica que podamos dar respuestas distintas. El "médico por hobby" tiene que hacer su trabajo igual que el profesional, salvo que no le importe "perder" a sus pacientes

Aquí también somos todos voluntarios, que ayudamos cada uno en lo que podemos, también hay muchas más personas que están igual que tú, que tiene todo esto como hobby. Y por la edad, bueno, no creas que somos todos unos jovencitos tampoco, ojalá

Resumiendo, puedes hacer un bucle y enviar un mensaje cada vez con un try except, tal y como se te ha explicado o puedes usar un "truco" que no sé si te vale en tu caso, te explico:
Si todos los emails son iguales y van dirigidos a distintas direcciones, puedes enviarlos como "CCO", o sea, que todos las direcciones van en un único email enviado, pero todas las direcciones van en CCO (copia oculta, creo recordar que se llama), así de esa manera cada uno recibe su email pero no ve las direcciones de nadie más, no puede saber a quién más se le ha enviado.
Te puedo pasar un ejemplo, aunque no está hecho con Indy, pero para darte una idea, voy a buscarlo y te lo copio a continuación.

[Casimiro Notevi]

Bueno, aquí está el código, a ver si te sirve para algo, es muy antiguo, de hace unos 11 años, pero hay muchas empresas que siguen usándolo, sin problemas:

Uso el MAPImail de Scalabium Software

Código Delphi [-]
procedure TfrmMailing.btSendEmailClick(Sender: TObject);
var
  iX, iEmails : Cardinal;
begin
  mapiEmail.Recipients.Text:='';
  mapiEmail.Attachments.Text:='';
  iEmails := 0;
  //
  if (edMailTo.Text='') or (edSubject.Text='') then
  begin
    MensajeAviso('Debe escribir una dirección de email y un asunto');
    edMailTo.SetFocus;
    abort;
  end;
  //
  mapiEmail.Recipients.Add( edMailTo.Text );
  inc( iEmails );   // el edMailTo
  //
  try // Ahora le damos las direcciones para BCC
    mtD.DisableControls;  // <- esto es una tabla en memoria, en tu caso el checklistbox
    mtD.First;
    while not mtD.Eof do
    begin
      if mtD.FieldByName('sacar').AsInteger = 1 then
      begin
        mapiEmail.Recipients.Add( 'BCC:'+mtD.FieldByName('email').AsString );
        Inc( iEmails );
      end;
      mtD.Next;
    end;
    mtD.First;
    mtD.EnableControls;
  except
    MensajeError('Error al crear los emails BCC');
    abort;
  end;
  //
  if iEmails < 1 then
  begin
    MensajeAviso('No hay ningún destinatario para el email');
    exit; //abort;
  end;
  //
  if MensajeConfirmacion('Se va a enviar el mensaje a '+
                          IntToStr(iEmails)+' destinos, ¿Desea continuar?')<>mrYes then
    exit; //abort;
  //
  if lbAdj.Items.Count > 0 then
  begin
    try // Añadimos los Adjuntos
      for iX := 0 to lbAdj.Items.Count-1 do
        mapiEmail.Attachments.Add( lbAdj.Items.Strings[iX] );
    except
      MensajeError('Error al añadir los archivos adjuntos');
      exit; //abort;
    end;
  end;
  //
  try // Enviar el mensaje
    mapiEmail.Subject := edSubject.Text;
    mapiEmail.Body := reText.Lines.Text;
    //
    mapiEmail.EditDialog := false; //true;  PARA QUE SE MUESTRE EL PROGRAMA DE CORREO O NO. !!!!!!!
    //
    mapiEmail.Send;
    //
    iX := mapiEmail.LastError;
    if iX <> SUCCESS_SUCCESS then
      MensajeAviso('No se pudo enviar el mailing'#13#10'Error: '+IntToStr(iX)+' -> '+MAPIErrorDescription(iX))
    else
      MensajeAviso('Mailing enviado.');
  except
    MensajeError('Error de datos para el email');
    abort;
  end;
end;

[Loviedo]

Gracias. Lo probaré.
Saludos.

[marcoszorrilla]

Aunque no es exactamente lo que quieres quizás te sirva alguna parte del código:

Código Delphi [-]
procedure TfrConAlumnos.spCorreoClick(Sender: TObject);
Var
i:integer;
stlCorreo:TStringList;
nVacios:Integer;
s:String;
begin
stlCorreo:= TStringList.Create;
nVacios:=0;

  for i := 0 to frConAlumnos.Reja.SelectedRows.Count-1 do
  begin
  frConAlumnos.Reja.DataSource.DataSet.Bookmark := frConAlumnos.Reja.SelectedRows[i];

   if (pos('@',DmoJuanes.AlumnosCorreoel.AsString) > 0) and (pos('.',DmoJuanes.AlumnosCorreoel.AsString) > 0) then
   stlCorreo.Add(Trim(DmoJuanes.AlumnosCorreoel.Value)+';')
   else
   nVacios:=nVacios + 1;

  end;

  if nVacios > 0 then
  ShowMessage('Atención: Se han encontrado direcciones incorrectas en la selección y se han omitido.');

ShellExecute(0, 'open', PAnsiChar('Mailto:'+stlcorreo.CommaText), nil, nil,0);
stlCorreo.Free;
end;

Un Saludo.

[Loviedo]

Lo del Sr. Casimaimiro no me da error, pero llama al 'outlook', yo utilizo 'yahoo', también probé con 'gmail', pero el resultado es el mismo.
Muchas gracias. la solucíon del Sr. Marcoszorrilla de momento funciona. El envío masivo es para una comunidad de propietarios, y solo somos 26.
Saludos.

[Loviedo]

Encontré el fallo.
El componente Indy no admite 'pepe@yahoo' como dirección de correo, pero si 'pepe@yah.es' aunque las dos son incorrectas.
Saludos.