UNICODE Darstellung

Code: Alles auswählen.

CREATE OBJECT rf_obj_mime_helper.

  "Email HTML Body

  MOVE '<P>Sehr geehrte Damen und Herren,</P>' TO wa_soli-line.
  APPEND wa_soli TO ta_soli.
  MOVE '<P>blablabla:</P>' TO wa_soli-line.
  APPEND wa_soli TO ta_soli.
  CONCATENATE 'Lieferant :blabla
    INTO wa_soli-line.
  APPEND wa_soli TO ta_soli.
  MOVE '<P>Mit freundlichen Gruessen</P>' TO wa_soli-line.
  APPEND wa_soli TO ta_soli.
  MOVE '<P>Ihr blabla Team</P>' TO wa_soli-line.
  APPEND wa_soli TO ta_soli.


  "Hinzufügen von HTML Body zur Email
  CALL METHOD rf_obj_mime_helper->set_main_html
    EXPORTING
      content     = ta_soli
      filename    = 'Test-Datei'
      description = 'Endlich klappt es'.


  "Setzen des themas der Email
  rf_obj_doc_bcs = cl_document_bcs=>create_from_multirelated(
                  i_subject          = 'Verzollungsdatei (Schweiz)'
                  i_importance       = '9'                " 1 / 5 / 9
                  i_multirel_service = rf_obj_mime_helper ).
  rf_obj_bcs = cl_bcs=>create_persistent( ).
  rf_obj_bcs->set_document(
             i_document = rf_obj_doc_bcs ).

  "Setzen der Email-Empfänger
  SELECT *
    FROM zta_pflmail
      INTO CORRESPONDING FIELDS OF TABLE ta_zta_pflmail.

  "Ermittle die Liste mit Email-adressen
  LOOP AT ta_zta_pflmail
    INTO wa_zta_pflmail.

    v_email = wa_zta_pflmail-smtp_addr.

    rf_obj_recipient = cl_cam_address_bcs=>create_internet_address(
                       i_address_string =  v_email ).
    rf_obj_bcs->add_recipient(
               i_recipient = rf_obj_recipient ).

  ENDLOOP.

  " Setzen von Sender
  rf_obj_sender = cl_cam_address_bcs=>create_internet_address(
                      i_address_string = 'manufactum@manufactum.de' ).
  rf_obj_bcs->set_sender( i_sender = rf_obj_sender ).

  "Email Status
  MOVE 'N' TO v_status.
  CALL METHOD rf_obj_bcs->set_status_attributes
    EXPORTING
      i_requested_status = v_status.

  "Füge Attachement zur Email hinzu
  "Umwandelung des Inhaltes von CHAR2BIN
  CALL FUNCTION 'SCMS_TEXT_TO_BINARY'
    TABLES
      text_tab   = ta_uebergabe
      binary_tab = ta_attachement.

    "Vorbereitung von Daten
    MOVE : 'CSV'           TO v_attach_type ,
           v_attach_name   TO v_attach_subject.

    CALL METHOD rf_obj_doc_bcs->add_attachment
      EXPORTING
        i_attachment_type    = v_attach_type
        i_attachment_subject = v_attach_subject
        i_att_content_hex    = ta_attachement.

    "Absenden
    rf_obj_bcs->send( ).

    "Commit
    IF sy-subrc = space.
      COMMIT WORK AND WAIT.
    ELSE.
      ROLLBACK WORK.
    ENDIF.