Hi guys
I'm stuggling sending an email using the class cl_bcs document. Does someone have a clue why the mail is not beeing sent? In the SOST I only get the status "still no entry in queue".
The method build_order_html_mail sets sender. recipient and document.
METHOD zcrm_exec_html_mail . * VAR DEFINITIONS DATA: lv_obj_guid TYPE crmt_object_guid. DATA: lv_obj_kind TYPE crmt_object_kind. DATA: lv_result TYPE os_boolean. DATA: lv_langu TYPE langu. DATA: lv_email_type TYPE ztype_email_type. * ** OBJECT DEFINITIONS DATA: lo_send_request TYPE REF TO cl_bcs. " Send request DATA: lo_document TYPE REF TO cl_document_bcs. " Mail body DATA: lv_order_object TYPE REF TO cl_doc_crm_order. * include COM_PARTNER. --> CONSTANTS FOR GC_PARTNER_PFT * include crm_direct. * lv_langu = 'D'. * Create CRM order object and read order guid / kind lv_order_object ?= io_appl_object. lv_obj_guid = lv_order_object->get_crm_obj_guid( ). lv_obj_kind = lv_order_object->get_crm_obj_kind( ). * Sprache des Partners auslesen * lv_langu wird für alle Übersetzungen benutzt CALL FUNCTION 'CRM_OUTPUT_DETERMINE_LANGUAGE' EXPORTING iv_obj_guid = lv_obj_guid iv_obj_kind = lv_obj_kind ir_partner = io_partner CHANGING cv_language = lv_langu. lv_email_type = im_email_type. lv_email_type = 'ORDERCONF'. * Konsistenten SEND REQUEST erstellen lo_send_request = cl_bcs=>create_persistent( ). CASE lv_email_type. WHEN 'ORDERCONF'. CALL METHOD zcl_html_mail_crm=>build_order_html_mail EXPORTING is_archive_index = is_archive_index is_archive_parameters = is_archive_parameters is_control_parameters = is_control_parameters is_output_options = is_output_options io_appl_object = io_appl_object ip_smart_form = ip_smart_form is_mail_appl_obj = is_mail_appl_obj is_mail_recipient = is_mail_recipient is_mail_sender = is_mail_sender io_partner = io_partner ip_user_settings = ip_user_settings ip_application_log = ip_application_log im_language = lv_langu CHANGING ch_send_request = lo_send_request ch_document = lo_document. WHEN OTHERS. ENDCASE. *Trigger E-Mail immediately lo_send_request->set_send_immediately( 'X' ). * Wenn is_preview_only gesetzt, dann nur Vorschau anzeigen, ansonsten Email senden TRY. IF is_preview_only = abap_true. lo_document->if_document_display_bcs~display_outplace( lo_send_request ). ELSE. lv_result = lo_send_request->send( abap_true ). COMMIT WORK AND WAIT. IF lv_result IS INITIAL. RETURN. ENDIF. ENDIF. ENDTRY. ENDMETHOD.