[Neftali [Germán.Estévez]]

Empezado por newtron

ahora tendré que retocarlo para incluirle varios destinatarios

Puedes hacerlo así, si separas las direcciones con punto y coma.

Código Delphi [-]
  Mensaje.Recipients.EMailAddresses := sDireccionesEnvio;

Empezado por newtron

ahora tendré que retocarlo para incluirle varios destinatarios, copias ocultas, etc. pero no creo que haya problemas.

Para eso puedes utilizar las propiedades:

Código Delphi [-]
    Mensaje.CCList
    Mensaje.BccList

Que son del mismo tipo que Recipients.

Empezado por newtron

etc...

Poca cosa más queda...
Por ejemplo, para texto plano o HTML:

Código Delphi [-]
  if (AFormtatoPlano) then begin
     idText := TIdText.Create(Mensaje.MessageParts, TS);
     idText.ContentType := 'text/plain';
  end
  else begin
    idText := TIdText.Create(Mensaje.MessageParts, TS);
    idText.ContentType := 'text/html';
    idText.ContentTransfer := '7bit';
    Mensaje.ContentTransferEncoding := 'text/html';
  end;