[Durbed]

Gracias Dec, pero esa no es la solución, lo que tu propones solo es la llamada a la funcion, pero lo que hay que modificar aparte de la llamada es la propia función.

Sospecho que el tema va mas por aqui, pero no he conseguido nada.

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

//Introducir las direcciones al BCC
  if Mail.Values['bcc'] <> '' then
    begin
      Receip.ulReserved := 0;
      Receip.ulRecipClass := MAPI_TO;
      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;