How to mail a local PDF file

Question

Hi,
I have local PDF file saved on desktop.
How to send this file as attacehment in mail.

Answer 1

Hi,
see the folowing programm :
DATA : gf_agb_file TYPE string.
TYPES: BEGIN OF data_type,
        line(255) TYPE x,
      END OF data_type.
DATA :  gt_upload TYPE TABLE OF data_type,
        gf_file_upload_lengh TYPE i,      
        agb_content TYPE solix_tab.
DATA gs_agb_content TYPE solix.
DATA gs_upload TYPE data_type.
FIELD-SYMBOLS: <data_x> TYPE x,
                             <text> TYPE x.
Load   PDF
gf_agb_file = '  here access path for PDF'. 
CLEAR gt_upload[].
CALL METHOD cl_gui_frontend_services=>gui_upload
   EXPORTING
     filename                = gf_agb_file
     filetype                = 'BIN'
   has_field_separator     = SPACE
   header_length           = 0
   read_by_line            = 'X'
   dat_mode                = SPACE
   depage                = SPACE
   ignore_cerr             = ABAP_TRUE
   replacement             = '#'
   virus_scan_profile      = virus_scan_profile
   IMPORTING
    filelength              = gf_file_upload_lengh
   CHANGING
     data_tab                = gt_upload[]
   EXCEPTIONS
     file_open_error         = 1
     file_read_error         = 2
     no_batch                = 3
     gui_refuse_filetransfer = 4
     invalid_type            = 5
     no_authority            = 6
     unknown_error           = 7
     bad_data_format         = 8
     header_not_allowed      = 9
     separator_not_allowed   = 10
     header_too_long         = 11
     unknown_dp_error        = 12
     access_denied           = 13
     dp_out_of_memory        = 14
     disk_full               = 15
     dp_timeout              = 16
       NOT_SUPPORTED_BY_GUI    = 17
       ERROR_NO_GUI            = 18
     OTHERS                  = 19.
IF sy-subrc <> 0.
  MESSAGE e057(zsd_eur) WITH 'Fehler bei Load AGB-PDF'.
  EXIT.
ENDIF.
LOOP AT gt_upload INTO gs_upload.                 =====>  convert from typ x to typ raw
  ASSIGN gs_upload-line TO <data_x> .
  ASSIGN gs_agb_content TO <text> casting .
  <text> = <data_x>.
  APPEND gs_agb_content TO agb_content.
ENDLOOP.
TRY.
  ---------- create persistent send request ----------------------
    send_request = cl_bcs=>create_persistent( ).
    write gf_file_upload_lengh to l_pdf_len.
    document = cl_document_bcs=>create_document(
          i_type    = 'PDF'
          i_hex     = agb_content
          i_length  = l_pdf_len
          i_subject = 'test created by BCS_EXAMPLE_6' ).    "#EC NOTEXT
  add document to send request
    send_request->set_document( document ).
  ---------- add recipient (e-mail address) ----------------------
    recipient = cl_cam_address_bcs=>create_internet_address(
        i_address_string = ' here internet mail adress ' ).
  add recipient to send request
    send_request->add_recipient( i_recipient = recipient ).
  ---------- send document ---------------------------------------
    sent_to_all = send_request->send(
        i_with_error_screen = 'X' ).
    IF sent_to_all = 'X'.
      MESSAGE i022(so).
    ENDIF.
  ---------- explicit 'commit work' is mandatory! ----------------
    COMMIT WORK.