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.
![Wink](http://www.clubdelphi.com/foros/images/smilies/wink.gif)