Cita:
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;
Cita:
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.
Cita:
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;