CRM_erms_mail_send not working

Hi

I'm calling these function modules in my custom fm( crm_erms_mail_compose and crm_erms_mail_send.). After executing my fm i check in SOST, it say "entry still not in queue". Does these fm's works only with action badi?. I have attached my segments down here.

DATA:

lv_contact_id TYPE bu_partner,

lv_mail_id TYPE ad_smtpadr,

lv_pml_subject TYPE xstring,

lv_pml_type TYPE crmt_pml_type,

lv_error_counter TYPE i,

lv_error TYPE c,

** Internal table

lt_picture_key TYPE crmt_pml_exec_pic_key_tab,

lt_pers_mail_body TYPE crmt_pml_txtsubj_exec_tab,

lt_pml_attachments TYPE skwf_ios,

lt_smtp TYPE bapiadsmtp_t,

lt_attachments TYPE crmt_ic_mail_attachments,

** structure

ls_item_ds TYPE crmd_im_ml_item_ds,

ls_mail_list TYPE ad_smtpadr.

***Compose the mail

CALL FUNCTION 'CRM_ERMS_MAIL_COMPOSE'

EXPORTING

business_partner = lv_contact_id

form_id = iv_mail_form_id

IMPORTING

ev_pml_subject = lv_pml_subject

ev_pml_type = lv_pml_type

TABLES

add_key_value_pairs = it_key_value_pairs

CHANGING

et_picture_key = lt_picture_key

et_pers_mail_body = lt_pers_mail_body

et_pml_attachments = lt_pml_attachments

et_smtp = lt_smtp

EXCEPTIONS

form_not_found = 1.

IF sy-subrc EQ 0.

*Send Mail

LOOP AT it_mail_list INTO ls_mail_list.

CALL FUNCTION 'CRM_ERMS_MAIL_SEND'

EXPORTING

ev_partner = lv_contact_id

iv_recipient = ls_mail_list

* iv_sender = sy-uname

iv_language = sy-langu

it_attachments = lt_attachments

iv_pml_subject = lv_pml_subject

iv_pml_type = lv_pml_type

iv_send_pml = abap_true

iv_send_immediately = abap_true

CHANGING

is_item_ds = ls_item_ds

iv_error_counter = lv_error_counter

lv_error = lv_error

it_picture_key = lt_picture_key

it_pers_mail_body = lt_pers_mail_body

it_pml_attachments = lt_pml_attachments

it_smtp = lt_smtp

EXCEPTIONS

sender_equal_recipient = 1

form_not_found = 2

OTHERS = 3.

ENDLOOP.

Thanks.

Narendra.N.H