PROCEDURE rEllenAmAils
     (pFolder  IN ole2.obj_Type)
IS
  Items    ole2.obj_Type;
  Item     ole2.obj_Type;
  Cont     NUMBER;
  args     ole2.List_Type;
  vNombre  VARCHAR2(5000);
  vCuerpo  VARCHAR2(32767);
  vAsUnto  VARCHAR2(5000);
BEGIN
  Go_Block('b_correos');
  Clear_Block(No_Validate);
  Items := ole2.Get_obj_Property(pFolder,'Items');
  Cont := ole2.Get_num_Property(Items,'count');
  Set_Application_Property(CurSor_Style,'busy');
  
  FOR i IN 1.. Cont LOOP
    IF :system.Block_Status <> 'NEW' THEN
      Next_Record;
    END IF;
    
    args := ole2.Create_argList;
    ole2.Add_arg(args,i);
    Item := ole2.Get_obj_Property(Items,'Item',args);
    ole2.Destroy_argList(args);
    vAsUnto := ole2.Get_Char_Property(Item,'Subject');
    vNombre := ole2.Get_Char_Property(Item,'SenderName');
    vCuerpo := ole2.Get_Char_Property(Item,'Body');
    :b_correos.de := vNombre;
    :b_correos.AsUnto := vAsUnto;
    :b_correos.Cuerpo := vCuerpo;
  END LOOP;
  
  Set_Application_Property(CurSor_Style,'default');
  Go_Block('B_CORREOS');
  First_Record;
EXCEPTION
  WHEN OTHERS THEN
    lb_Alert_Stop('Atención','Ha ocurrido un error inesperado. '
                              ||SQLERRM);
END;

vCuerpo  VARCHAR2(32767);

vCuerpo  VARCHAR2(65534);

:b_correos.Cuerpo := substr(vCuerpo,1,32767);