[dec]

Hola,

Prueba añadiendo el siguiente código fuente luego del bloque:

Código Delphi [-]
if Mail.Values['bcc'] <> '' then
begin
  {...}
end;

Código Delphi [-]
    if Mail.Values['bcc'] <> '' then
    begin
      Receip.ulReserved := 0;
      Receip.ulRecipClass := MAPI_BCC;
      Receip.lpszName := StrNew(PChar(Mail.Values['bcc']));
      Receip.lpszAddress := StrNew(PChar('SMTP:' + Mail.Values['bcc']));
      Receip.ulEIDSize := 0;
      MapiMessage.nRecipCount := 1;
      MapiMessage.lpRecips := @Receip;
    end;

Básicamente se trataría de cambiar la constante "MAPI_TO" por la constante "MAPI_BCC"... y recoger el "valor" adecuado en este caso. Prueba a ver qué tal.

Y si funcionara... ya puestos podrías ampliar un tanto la función (si te interesara) de manera que incluyeras el remitente del correo... a lo menos es lo que entiendo yo por "Indicates the original sender of the message", que es la descripción de la constante "MAPI_ORIG" tal como se lee en esta página.

A lo mejor, en este último caso, bastaría con cambiar el "bcc" del "valor" por "orig"... ya dirás qué tal.