Attach BP Url via Code

Question

Hi experts!!
I am using cl_crm_documents=>create_with_url to create attachments via URL, in BPs. The problem is that the attachments are uploaded as application/octet-stream, hence i cannot open . When i manually attach URLs to BP they are displayed fine.
Any ideas?????
Here's the code i've written.. Am i missing something??
  ls_url-line = 'http://www.google.com'.
  APPEND ls_url TO url.
  unpack businesspartner to ls_part.
  SELECT SINGLE * FROM but000 INTO ls_but000
                  WHERE partner = ls_part.
  BREAK-POINT.
  ls_bus_obj-instid = ls_but000-partner_guid.
  ls_bus_obj-typeid = 'BUS1006'. "(for business partner)
  ls_bus_obj-catid = 'BO'. "(for business object)
  pro_LS-NAME = 'CONTENT_URL'.
  PRO_LS-VALUE = 'http://www.google.com'.
  APPEND PRO_LS TO PRO.
  pro_LS-NAME = 'KW_RELATIVE_URL'.
  PRO_LS-VALUE = 'Application_form'.
  APPEND PRO_LS TO PRO.
  pro_LS-NAME = 'DESCRIPTION'.
  PRO_LS-VALUE = 'Description'.
  APPEND PRO_LS TO PRO.
  pro_LS-NAME = 'LOIO_CLASS'.
  PRO_LS-VALUE = 'CRM_L_URL'.
  APPEND PRO_LS TO PRO.
  pro_LS-NAME = 'PHIO_CLASS'.
  PRO_LS-VALUE = 'CRM_L_URL'.
  APPEND PRO_LS TO PRO.
  CALL METHOD cl_crm_documents=>create_with_url
    EXPORTING
      url             = url
   properties      =
    properties = pro
      business_object = ls_bus_obj
   parent_folder   =
    IMPORTING
      loio            = lt_loio
    phio            = lt_phio
    error           = lt_error

Answer 1

Actually Problem is now Solved!!
Insted of using method CREATE_WITH_URL i used CREATE_URL.
Here's the code..
  ls_url-line = 'http://www.google.com'.
  APPEND ls_url TO url.
  unpack businesspartner to ls_part.
  SELECT SINGLE * FROM but000 INTO ls_but000
                  WHERE partner = ls_part.
  BREAK-POINT.
  ls_bus_obj-instid = ls_but000-partner_guid.
  ls_bus_obj-typeid = 'BUS1006'. "(for business partner)
  ls_bus_obj-catid = 'BO'. "(for business object)
  pro_LS-NAME = 'CONTENT_URL'.
  PRO_LS-VALUE = 'http://www.google.com'.
  APPEND PRO_LS TO PRO.
  pro_LS-NAME = 'DESCRIPTION'.
  PRO_LS-VALUE = 'Description'.
  APPEND PRO_LS TO PRO.
  CALL METHOD cl_crm_documents=>create_url
    EXPORTING
      url             = url
   properties      =
    properties = pro
      business_object = ls_bus_obj
   parent_folder   =
    IMPORTING
      loio            = lt_loio
    phio            = lt_phio
    error           = lt_error
BREAK-POINT.
CALL METHOD cl_crm_documents=>rename_object
  EXPORTING
    is_io             = lt_loio
    iv_name           = 'Application'
  IMPORTING
    es_error          = lt_error
  EXCEPTIONS
    io_not_renameable = 1
    name_error        = 2
    others            = 3
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.