How to send smartform output in body of email?

Hi all ,
I have to send smartform output in body of email (not as an attachement in mail) .PLease help me in this regard.
Thanks,
Ananth S.

Hi Ananth
See these threads.
[https://forums.sdn.sap.com/click.jspa?searchID=23497094&messageID=6889194]
[https://forums.sdn.sap.com/click.jspa?searchID=23497094&messageID=6861330]
[https://forums.sdn.sap.com/click.jspa?searchID=23497094&messageID=6855364]
Regards
Hareesh Menon

Similar Messages

How to send SMARTFORMS output as attachment through?

how to send SMARTFORMS output as attachment through e-mail?
after executing SMARTFORMS how to send that output via e-mail.
Help me.
thanks
surya.
Moderator Message: Please search for available information first
Edited by: kishan P on Nov 7, 2010 7:19 PM

hi Vinod,
Can you please tell me how you have zipped the file.
I am having a text file in application server. I need to zip that file. Then the middleware moves it to Legacy system.
I used the following code. With this I am having the data in Binary format which my midleware cannot understand.
What I need on the whole is just to reduce the size of the file.
form ZIP_FILE .
DATA: lt_data TYPE TABLE OF x255,
lt_textdata TYPE TABLE OF x255.
DATA: ls_data LIKE LINE OF lt_data.
DATA: lv_dsn1(100) VALUE '/ECD/120/GIS/FTP/IB/DNBPAYDEX.TXT'.
DATA: lv_dsn3(100) VALUE '/ECD/120/GIS/FTP/IB/DNBPAYDEXZIP.zip'.
*DATA: lv_dsn3(100) VALUE '/interfaces/SM5/test.zip'. " Contains sample1.xls and sample2.xls
DATA: lv_file_length TYPE i.
DATA: lv_content TYPE xstring.
DATA: lo_zip TYPE REF TO cl_abap_zip.
CREATE OBJECT lo_zip.
Read the data as a string
clear lv_content .
OPEN DATASET lv_dsn1 FOR INPUT IN BINARY MODE.
READ DATASET lv_dsn1 INTO lv_content .
CLOSE DATASET lv_dsn1.
lo_zip->add( name = 'sample.TXT' content = lv_content ).
lv_content = lo_zip->save( ).
*clear lv_content .
Conver the xstring content to binary
CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
EXPORTING
buffer = lv_content
IMPORTING
output_length = lv_file_length
TABLES
binary_tab = lt_data.
OPEN DATASET lv_dsn3 FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
LOOP AT lt_textdata INTO ls_data.
TRANSFER ls_data TO lv_dsn3.
ENDLOOP.
CLOSE DATASET lv_dsn3.
IF sy-subrc EQ '0'.
MESSAGE s999(zfi_ap_gl) WITH text-t10.
ENDIF.
Can you please help.
Thanks Aravind

How to send smartform output through email

Hi,
I want to send smartform output through email.....
can u give me sample program to send it through email......
Regards,
Jenifer
MOderator Message: Basic and Frequently asked question. Please search before posting.
Edited by: kishan P on Nov 26, 2010 11:11 AM

Hi Jenifer,
There are many threads available on SDN.
Just have a look at this thread
<<link removed by moderator>>
Kindly search before you post.
Regard
Abhii
Moderator Message: You have been warned many times against point-hunting. Continuing ignoring of the Moderator warnings will lead to account deletion. Consider this your last warning
Edited by: kishan P on Nov 26, 2010 11:09 AM

How to send smartform output through mail in PDF Format

Can some one provide me the sample code
Edited by: Revankar Satej on Feb 22, 2008 1:22 PM

Hi,
     try this code,HOPE usefull to u, Reaward points
*& Report ZTEST_SMARTFORM
REPORT ztest_smartform.
DATA: formname TYPE tdsfname,
      fm_name TYPE rs38l_fnam,
      control_parameters TYPE ssfctrlop,
      job_output_info TYPE     ssfcrescl,
      otf_data TYPE tsfotf,
      bin_filesize TYPE i,
      otf TYPE TABLE OF itcoo WITH HEADER LINE,
      doctab_archive TYPE TABLE OF docs WITH HEADER LINE,
      lines TYPE TABLE OF tline WITH HEADER LINE.
INITIALIZATION.
formname = 'UR SMART FORM'.
START-OF-SELECTION.
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
    EXPORTING
      formname                 = formname
VARIANT                  = ' '
DIRECT_CALL              = ' '
   IMPORTING
     fm_name                  = fm_name
   EXCEPTIONS
     no_form                  = 1
     no_function_module       = 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.
control_parameters-no_dialog = 'X'.
control_parameters-preview = ''.
control_parameters-getotf = 'X'.
CALL FUNCTION fm_name
   EXPORTING
ARCHIVE_INDEX              = ARCHIVE_INDEX
ARCHIVE_INDEX_TAB          = ARCHIVE_INDEX_TAB
ARCHIVE_PARAMETERS         = ARCHIVE_PARAMETERS
     control_parameters         = control_parameters
MAIL_APPL_OBJ              = MAIL_APPL_OBJ
MAIL_RECIPIENT             = MAIL_RECIPIENT
MAIL_SENDER                = MAIL_SENDER
OUTPUT_OPTIONS             = OUTPUT_OPTIONS
USER_SETTINGS              = 'X'
   IMPORTING
DOCUMENT_OUTPUT_INFO       = DOCUMENT_OUTPUT_INFO
     job_output_info            = job_output_info
JOB_OUTPUT_OPTIONS         = JOB_OUTPUT_OPTIONS
   EXCEPTIONS
     formatting_error           = 1
     internal_error             = 2
     send_error                 = 3
     user_canceled              = 4
     OTHERS                     = 5
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
otf_data[] = job_output_info-otfdata[].
CALL FUNCTION 'CONVERT_OTF_2_PDF'
EXPORTING
    USE_OTF_MC_CMD               = 'X'
    ARCHIVE_INDEX                = ARCHIVE_INDEX
   IMPORTING
     bin_filesize                 = bin_filesize
    TABLES
      otf                          = otf_data[]
      doctab_archive               = doctab_archive[]
      lines                        = lines
   EXCEPTIONS
     ERR_CONV_NOT_POSSIBLE        = 1
     ERR_OTF_MC_NOENDMARKER       = 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.
DATA: filename TYPE string.
filename = 'c:\test\smart.pdf'.
CALL FUNCTION 'GUI_DOWNLOAD'
    EXPORTING
     bin_filesize                    = bin_filesize
      filename                        = filename
     filetype                        = 'BIN'
    APPEND                          = ' '
    WRITE_FIELD_SEPARATOR           = ' '
    HEADER                          = '00'
    TRUNC_TRAILING_BLANKS           = ' '
    WRITE_LF                        = 'X'
    COL_SELECT                      = ' '
    COL_SELECT_MASK                 = ' '
    DAT_MODE                        = ' '
    CONFIRM_OVERWRITE               = ' '
    NO_AUTH_CHECK                   = ' '
    CODEPAGE                        = ' '
    IGNORE_CERR                     = ABAP_TRUE
    REPLACEMENT                     = '#'
    WRITE_BOM                       = ' '
    TRUNC_TRAILING_BLANKS_EOL       = 'X'
    WK1_N_FORMAT                    = ' '
    WK1_N_SIZE                      = ' '
    WK1_T_FORMAT                    = ' '
    WK1_T_SIZE                      = ' '
IMPORTING
    FILELENGTH                      = FILELENGTH
    TABLES
      data_tab                        = lines[]
    FIELDNAMES                      = FIELDNAMES
   EXCEPTIONS
     file_write_error                = 1
     no_batch                        = 2
     gui_refuse_filetransfer         = 3
     invalid_type                    = 4
     no_authority                    = 5
     unknown_error                   = 6
     header_not_allowed              = 7
     separator_not_allowed           = 8
     filesize_not_allowed            = 9
     header_too_long                 = 10
     dp_error_create                 = 11
     dp_error_send                   = 12
     dp_error_write                  = 13
     unknown_dp_error                = 14
     access_denied                   = 15
     dp_out_of_memory                = 16
     disk_full                       = 17
     dp_timeout                      = 18
     file_not_found                  = 19
     dataprovider_exception          = 20
     control_flush_error             = 21
     OTHERS                          = 22
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
DATA: document_data LIKE sodocchgi1 ,
        contents_txt TYPE TABLE OF solisti1 WITH HEADER LINE,
        contents_bin     TYPE TABLE OF     solisti1 WITH HEADER LINE,
        tab_lines TYPE i,
        packing_list TYPE TABLE OF sopcklsti1 WITH HEADER LINE,
        OBJECT_HEADER type table of SOLISTI1 with header line,
        RECEIVERS     TYPE TABLE OF      SOMLRECI1 WITH HEADER LINE,
        l_str(255) ,
        v1 TYPE i,
        v2 TYPE i,
        v3 type i.
CONSTANTS: c_raw TYPE so_obj_tp VALUE 'RAW',
             c_pdf TYPE so_obj_tp VALUE 'PDF',
             c_255 TYPE i VALUE 255,
             c_134 TYPE i VALUE 134,
             C_X TYPE C VALUE 'X',
             C_U TYPE C VALUE 'U'.
document_data-obj_name = 'EMAIL'.
document_data-obj_descr = 'subject'.
contents_txt = 'THIS IS first line DATA'.
APPEND contents_txt.
CLEAR contents_txt.
contents_txt = 'THIS IS second line DATA'.
APPEND contents_txt.
CLEAR contents_txt.
APPEND contents_txt.
APPEND contents_txt.
DESCRIBE TABLE contents_txt LINES tab_lines.
READ TABLE contents_txt INDEX tab_lines.
document_data-doc_size = ( tab_lines - 1 ) * 255 + STRLEN( contents_txt ).
document_data-doc_size = tab_lines .
CLEAR packing_list-transf_bin.
packing_list-head_start = 1.
packing_list-head_num = 0.
packing_list-body_start = 1.
packing_list-body_num = tab_lines.
packing_list-doc_type = c_raw.
packing_list-doc_size = document_data-doc_size.
APPEND packing_list.
LOOP AT lines.
    CLEAR l_str.
    l_str+0(2) = lines-tdformat.
    l_str+2(132) = lines-tdline.
    v2 = v1 + c_134.
    IF v2 LE c_255.
      contents_bin-line+v1(c_134) = l_str. v1 = v2.
    ELSE.
      v3 = v2 - c_255.
      v2 = c_255 - v1.
      IF NOT v2 IS INITIAL.
        contents_bin-linev1(v2) = l_str0(v2).
      ENDIF.
      APPEND contents_bin.
      CLEAR contents_bin.
      v1 = v3.
      v3 = 134 - v1.
      IF NOT v1 IS INITIAL.
        contents_bin-line0(v1) = l_strv3(v1).
      ENDIF.
    ENDIF.
ENDLOOP.
APPEND contents_bin.
CLEAR contents_bin.
DESCRIBE TABLE contents_bin LINES tab_lines.
READ TABLE contents_bin INDEX tab_lines.
OBJECT_HEADER = 'objhead'.
APPEND OBJECT_HEADER.
packing_list-transf_bin = c_x.
packing_list-head_start = 1.
packing_list-head_num = 1.
packing_list-body_start = 1.
packing_list-body_num = tab_lines.
packing_list-doc_type = c_pdf.
packing_list-obj_name = 'text1'.
packing_list-obj_descr = 'filename'.
packing_list-doc_size = tab_lines * 255 + STRLEN( contents_bin ).
APPEND packing_list.
RECEIVERS-receiver = 'UR EMAIL ADDRESS IN CAPS'.
RECEIVERS-rec_type = c_u.
APPEND RECEIVERS.
CLEAR RECEIVERS.
CALL FUNCTION 'SO_DOCUMENT_SEND_API1'
    EXPORTING
      document_data                    = document_data
   PUT_IN_OUTBOX                    = 'X'
SENDER_ADDRESS                   = SY-UNAME
SENDER_ADDRESS_TYPE              = 'B'
   COMMIT_WORK                      = 'X'
IMPORTING
SENT_TO_ALL                      =
NEW_OBJECT_ID                    = NEW_OBJECT_ID
SENDER_ID                        = SENDER_ID
TABLES
    packing_list                     = packing_list
   OBJECT_HEADER                    = OBJECT_HEADER
   CONTENTS_BIN                     = CONTENTS_BIN
   CONTENTS_TXT                     = CONTENTS_TXT
CONTENTS_HEX                     = CONTENTS_HEX
OBJECT_PARA                      = OBJECT_PARA
OBJECT_PARB                      = OBJECT_PARB
    receivers                        = receivers
EXCEPTIONS
TOO_MANY_RECEIVERS               = 1
DOCUMENT_NOT_SENT                = 2
DOCUMENT_TYPE_NOT_EXIST          = 3
OPERATION_NO_AUTHORIZATION       = 4
PARAMETER_ERROR                  = 5
X_ERROR                          = 6
ENQUEUE_ERROR                    = 7
OTHERS                           = 8
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
Regards
SFT

To send smartform output in an email without attachment

Hi All,
How to send smartform output in an email without attachment?
Thanks & Regards,
Mamta Gupta.

Try this,
DATA:
ls_control_param TYPE ssfctrlop, "Control paramters
ls_output_options TYPE ssfcompop. "Output options
DATA:
lv_ip_mailaddr TYPE so_name, "Address of a Mail Recipient
lv_ip_type_id TYPE so_escape, "Recipient type
ls_recipient_id TYPE swotobjid, "Structure for recvr obj ID
ls_sender_id TYPE swotobjid. "Structure for sender obj id
CONSTANTS:
lc_ip_type_id TYPE so_escape VALUE 'U', "For internet address.
lc_smartform TYPE tdsfname VALUE 'ZVSF_ASN_DELNOTE', "Smart form name
lc_mail TYPE tddevice VALUE 'MAIL'. "Mail device
Assign recipient
lv_ip_mailaddr = gv_smtp_addr. "CSAM email id
lv_ip_type_id = lc_ip_type_id. "External address
Create Mail title
CONCATENATE text-001
nast-objky
INTO ls_output_options-tdtitle.
Create recipient object
CALL FUNCTION 'CREATE_RECIPIENT_OBJ_PPF'
EXPORTING
ip_mailaddr = lv_ip_mailaddr
ip_type_id = lv_ip_type_id
IMPORTING
ep_recipient_id = ls_recipient_id
EXCEPTIONS
invalid_recipient = 1
OTHERS = 2.
IF sy-subrc 0.
cf_retcode = sy-subrc.
PERFORM protocol_update.
ENDIF.
Get sender object id.
CALL FUNCTION 'CREATE_SENDER_OBJECT_PPF'
EXPORTING
ip_sender = sy-uname
IMPORTING
ep_sender_id = ls_sender_id
EXCEPTIONS
invalid_sender = 1
OTHERS = 2.
IF sy-subrc 0.
cf_retcode = sy-subrc.
PERFORM protocol_update.
ENDIF.
Assign the smart form name
w_ssfname = lc_smartform.
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
formname = w_ssfname
IMPORTING
fm_name = lf_fm_name
EXCEPTIONS
no_form = 1
no_function_module = 2
OTHERS = 3.
IF sy-subrc 0.
cf_retcode = sy-subrc.
PERFORM protocol_update.
ENDIF.
For Print output:
IF nast-nacha = '1'. "Print output
ls_control_param-preview = 'X'.
ls_control_param-no_dialog = 'X'.
ENDIF.
For Email output.
IF nast-nacha = '2'. "Email
Output options
ls_output_options-tdteleland = gs_kna1-land1.
ls_output_options-tdtelenum = gs_kna1-telfx.
ls_output_options-tdfaxuser = sy-uname.
ls_output_options-BCS_COMMIT = 'X'.
ls_control_param-device = lc_mail.
ENDIF.
dynamically call Fm behind the Smart form
CALL FUNCTION lf_fm_name
EXPORTING
control_parameters = ls_control_param
mail_recipient = ls_recipient_id
mail_sender = ls_sender_id
output_options = ls_output_options
user_settings = ' '
TABLES
delivery = gt_delivery
EXCEPTIONS
formatting_error = 1
internal_error = 2
send_error = 3
user_canceled = 4
OTHERS = 5.
IF sy-subrc 0.
cf_retcode = sy-subrc.
PERFORM protocol_update.
ENDIF.
Regards,
Joan

How To Send ALV Output By Email.

Hi !
I wanted to ask how to send ALV output of report by email.
I know that i have to use the fms :
1. 'WWW_HTML_FROM_LISTOBJECT' - in order to convert the table to HTML.
2. 'SO_NEW_DOCUMENT_ATT_SEND_API1' - in order to send the HTML file.
My problem is how to convert the ALV screen output to the apropriate table parameter of the function 'WWW_HTML_FROM_LISTOBJECT' to listobject type ?
thanks
moshe

Hi look at the following program.
*& Report ZSM17_EMAIL1
REPORT zsm17_email.
tables : mara.
data: begin of it_mara occurs 0,
      matnr like mara-matnr,
      ernam like mara-ernam,
      mtart like mara-mtart,
      matkl like mara-matkl,
      end of it_mara.
data: begin of it_final occurs 0,
      v_string(255),
      end of it_final.
*DATA: objpack LIKE sopcklsti1 OCCURS 2 WITH HEADER LINE,
     objhead LIKE solisti1   OCCURS 1 WITH HEADER LINE,
     objbin LIKE solisti1   OCCURS 10 WITH HEADER LINE,
     objtxt LIKE solisti1   OCCURS 10 WITH HEADER LINE,
     reclist LIKE somlreci1 OCCURS 5 WITH HEADER LINE.
DATA: objpack LIKE sopcklsti1 OCCURS 0 with header line,
      objhead LIKE solisti1   OCCURS 0 WITH HEADER LINE,
      objbin LIKE solisti1   OCCURS 0 WITH HEADER LINE,
      objtxt LIKE solisti1   OCCURS 0 WITH HEADER LINE,
      reclist LIKE somlreci1 OCCURS 0 WITH HEADER LINE.
data: wa_objbin like line of objbin.
DATA: doc_chng LIKE sodocchgi1.
DATA: tab_lines LIKE sy-tabix.
select-options s_matnr for mara-matnr.
*--- Selecting data from mara
select matnr
       ernam
       mtart
       matkl
       into table it_mara
       from mara
       where matnr in s_matnr.
if sy-subrc ne 0.
write:/ 'no data found'.
exit.
else.
loop at it_mara.
   concatenate it_mara-matnr
               it_mara-ernam
               it_mara-mtart
               it_mara-matkl
     into it_final-v_string separated by '~'.
    append it_final.
    clear it_final.
endloop.
endif.
Creating the document to be sent
doc_chng-obj_name = 'TEST'.   "name of the document
title of document or subject
doc_chng-obj_descr = 'Test Email program'.
body of the mail
objtxt = 'A test report'.
APPEND objtxt.
objtxt = 'is enclosed as an attachment.'.
APPEND objtxt.
*clear objtxt.
DESCRIBE TABLE objtxt LINES tab_lines.
Size of SAPoffice Document (for API1)
doc_chng-doc_size = ( tab_lines - 1 ) * 255 + STRLEN( objtxt ).
Creating the entry for the compressed attachment
objpack-transf_bin = 'X'.
objpack-head_start = 1.
objpack-head_num   = 0.
objpack-body_start = 1.
objpack-body_num   = tab_lines.
objpack-doc_type   = 'RAW'.
*objpack-obj_name   = 'ATTACHMENT'.
*objpack-obj_descr = 'Test Email Program'.
*objpack-doc_size   = tab_lines * 255.
APPEND objpack..
*--- Populating the records in the attachment
data: w_str(255) TYPE c.
loop at it_final into wa_objbin.
append wa_objbin to objbin.
append objbin.
clear wa_objbin.
endloop.
DESCRIBE TABLE objbin LINES tab_lines.
tab_lines = tab_lines + 1.
objhead = 'test_report.txt'.
append objhead.
Creating the entry for the compressed attachment
objpack-transf_bin = 'X'.
objpack-head_start = 1.
objpack-head_num   = 1.
objpack-body_start = 1.
objpack-body_num   = tab_lines.
objpack-doc_type   = 'txt'.
objpack-obj_name   = 'txt'.
objpack-obj_descr = 'Test Email Program'.
objpack-doc_size   = tab_lines * 255.
APPEND objpack..
*write:/ 'object text', objtxt.
Entering names in the distribution list
reclist-receiver = '[email protected]'.
reclist-rec_type = 'U'.
APPEND reclist.
Sending the document
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
EXPORTING
    document_data              = doc_chng
    put_in_outbox              = 'X'
    commit_work                = 'X'
TABLES
    packing_list               = objpack
    object_header              = objhead
    contents_bin               = objbin
    contents_txt               = objtxt
    receivers                  = reclist
EXCEPTIONS
    too_many_receivers         = 1
    document_not_sent          = 2
    operation_no_authorization = 4
    OTHERS                     = 99.
CASE sy-subrc.
WHEN 0.
    WRITE: / 'Result of the send process:'.
    LOOP AT reclist.
      WRITE: reclist-receiver(48), ':'.
      IF reclist-retrn_code = 0.
        WRITE 'sent successfully'.
      ELSE.
        WRITE 'not sent'.
      ENDIF.
    ENDLOOP.
   loop at objbin.
     write: objbin-line.
   endloop.
WHEN 1.
    WRITE: / 'no authorization to send to the specified number of' .
    "'recipients!'.
WHEN 2.
    WRITE: / 'document could not be sent to any of the recipients!'.
WHEN 4.
    WRITE: / 'no authorization to send !'.
WHEN OTHERS.
    WRITE: / 'error occurred during sending !'.
ENDCASE.

How to send smartform as an email or fax

Hi Friends,
Problem is i am getting smartform output, but how to send the output as an email or fax( say for ex it should be sent to vendor). Also kindly explain how to convert smartform to PDF output. Thanks in advance.

Hi,
The below sample code is for 4.6C.Try this out.
Kindly reward points by clicking the star on the left of reply,if it helps.
Internal Table declarations
DATA: i_otf TYPE itcoo OCCURS 0 WITH HEADER LINE,
i_tline TYPE TABLE OF tline WITH HEADER LINE,
i_receivers TYPE TABLE OF somlreci1 WITH HEADER LINE,
i_record LIKE solisti1 OCCURS 0 WITH HEADER LINE,
Objects to send mail.
i_objpack LIKE sopcklsti1 OCCURS 0 WITH HEADER LINE,
i_objtxt LIKE solisti1 OCCURS 0 WITH HEADER LINE,
i_objbin LIKE solisti1 OCCURS 0 WITH HEADER LINE,
i_reclist LIKE somlreci1 OCCURS 0 WITH HEADER LINE,
Work Area declarations
wa_objhead TYPE soli_tab,
w_ctrlop TYPE ssfctrlop,
w_compop TYPE ssfcompop,
w_return TYPE ssfcrescl,
wa_doc_chng typE sodocchgi1,
w_data TYPE sodocchgi1,
wa_buffer TYPE string,"To convert from 132 to 255
Variables declarations
v_form_name TYPE rs38l_fnam,
v_len_in LIKE sood-objlen,
v_len_out LIKE sood-objlen,
v_len_outn TYPE i,
v_lines_txt TYPE i,
v_lines_bin TYPE i.
call function 'SSF_FUNCTION_MODULE_NAME'
exporting
formname = 'ZZZ_TEST1'
importing
fm_name = v_form_name
exceptions
no_form = 1
no_function_module = 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.
w_ctrlop-getotf = 'X'.
w_ctrlop-no_dialog = 'X'.
w_compop-tdnoprev = 'X'.
CALL FUNCTION v_form_name
EXPORTING
control_parameters = w_ctrlop
output_options = w_compop
user_settings = 'X'
IMPORTING
job_output_info = w_return
EXCEPTIONS
formatting_error = 1
internal_error = 2
send_error = 3
user_canceled = 4
OTHERS = 5.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
i_otf[] = w_return-otfdata[].
call function 'CONVERT_OTF'
EXPORTING
format = 'PDF'
max_linewidth = 132
IMPORTING
bin_filesize = v_len_in
TABLES
otf = i_otf
lines = i_tline
EXCEPTIONS
err_max_linewidth = 1
err_format = 2
err_conv_not_possible = 3
others = 4.
Fehlerhandling
if sy-subrc <> 0.
endif.
loop at i_tline.
translate i_tline using '~'.
concatenate wa_buffer i_tline into wa_buffer.
endloop.
translate wa_buffer using '~'.
do.
i_record = wa_buffer.
append i_record.
shift wa_buffer left by 255 places.
if wa_buffer is initial.
exit.
endif.
enddo.
Attachment
refresh:
i_reclist,
i_objtxt,
i_objbin,
i_objpack.
clear wa_objhead.
i_objbin[] = i_record[].
Create Message Body
Title and Description
i_objtxt = 'test with pdf-Attachment!'.
append i_objtxt.
describe table i_objtxt lines v_lines_txt.
read table i_objtxt index v_lines_txt.
wa_doc_chng-obj_name = 'smartform'.
wa_doc_chng-expiry_dat = sy-datum + 10.
wa_doc_chng-obj_descr = 'smartform'.
wa_doc_chng-sensitivty = 'F'.
wa_doc_chng-doc_size = v_lines_txt * 255.
Main Text
wa_doc_chng-doc_size = ( v_lines_txt - 1 ) * 255 + strlen( i_objtxt )
clear i_objpack-transf_bin.
i_objpack-head_start = 1.
i_objpack-head_num = 0.
i_objpack-body_start = 1.
i_objpack-body_num = v_lines_txt.
i_objpack-doc_type = 'RAW'.
append i_objpack.
Attachment
(pdf-Attachment)
i_objpack-transf_bin = 'X'.
i_objpack-head_start = 1.
i_objpack-head_num = 0.
i_objpack-body_start = 1.
Länge des Attachment ermitteln
describe table i_objbin lines v_lines_bin.
read table i_objbin index v_lines_bin.
i_objpack-doc_size = v_lines_bin * 255 .
i_objpack-body_num = v_lines_bin.
i_objpack-doc_type = 'PDF'.
i_objpack-obj_name = 'smart'.
i_objpack-obj_descr = 'test'.
append i_objpack.
clear i_reclist.
i_reclist-receiver = [email protected]'.
i_reclist-rec_type = 'U'.
append i_reclist.
call function 'SO_NEW_DOCUMENT_ATT_SEND_API1'
EXPORTING
document_data = wa_doc_chng
put_in_outbox = 'X'
TABLES
packing_list = i_objpack
object_header = wa_objhead
CONTENTS_BIN = i_objbin
contents_txt = i_objtxt
receivers = i_reclist
EXCEPTIONS
too_many_receivers = 1
document_not_sent = 2
document_type_not_exist = 3
operation_no_authorization = 4
parameter_error = 5
x_error = 6
enqueue_error = 7
others = 8.

How to send ALV output data into Excel sheet format via Mail to the user?

Hi friends,
I have a doubt ie,
How to send ALV output data into Excel sheet format via Mail to the user?
regards
Moosa

Hi,
Provide the output internal table to the objbin in the below FM
Send Message
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
       EXPORTING
            document_data              = i_docdata
            put_in_outbox              = c_x
       TABLES
            packing_list               = i_objpack
            object_header              = i_objhead
            contents_bin               = i_objbin
            contents_txt               = i_objtxt
            receivers                  = i_reclist
and specify the document type
i_objpack-doc_type   = 'XLS'.
and try.
Regards,
Nandha

How to send the output to PDF format in reports 6i?

Hi,
How to send the output to PDF format in reports 6i? I given Mode = BITMAP.
DESTYPE = File, DESFORMAT = PDF, DESNAME = C:\x.pdf.
Report is running fine. But PDF file not generated. I don't know what i missed. Any one can help this?
Thanks
Kavitha

Hello,
Do you get this problem only for DESFORMAT=PDF ?
Test with :
DESFORMAT = RTF, DESNAME = C:\x.rtf
or
DESFORMAT = HTMLCSS, DESNAME = C:\x.html
does it work ?
Check if DESNAME is modified in the reports itself.
Regards

How to send the output of one step as input to next step

Hello All,
I have a question that how to send the output of the first step as the input to the next step.
for e.g
consider a test sequence as below,
1.battery ON.
2. read Voltage
3. Check battery voltage.
as initially the battery gets ON when ever the test starts. in the second step it reads the voltage. let us assume that the voltage is 11.5V,
in the third step we r checking/validating that battery voltage in the range 11V to 12 V. . I mean if the vloltage value is less than 11V or greater than 12V te test has to FAIL.
so in order to check that voltage we need to send the voltage read from the second step.
so how can I send the voltage read from the second step to the third step so that I can check the battery voltage test.
kindly suggest me this using LabVIEW/Test stand.

Hi,
Why do you need the third step, if the second step is a Numeric Limit Test step type, you can setup the limits of this step for your required limits of 11V and 12V. Your result is returned from your VI to Step.Results.Numeric which will be evaluated in the Status Expression giving you a Pass / Fail status.
Look at the example TestStand\examples\demo\..\Computer Motherboard Test\computer.seq
But to answer your reoriginal question, some additional information is required.
What are your inputs and outputs assigned to in TestStand, do you use the Step properties, Locals, FileGlobals?
Regards
Ray Farmer
Regards
Ray Farmer

How to send smartforms as pdf attachments with e mail

hi experts,
how to send smartforms as pdf attachments with e mail???
nitin

Hi
In the FORM Interface put proper parameter. Hope this helps.

Very urjent how to send report output in mail

hi experts,
how to send report output in mail which function module should i use wht parameters should i pass.
thanks in addavnce,
points to be awarded.

CALL FUNCTION 'GET_PRINT_PARAMETERS'
       EXPORTING
            destination    = '026c'
            copies         = count
            list_name      = 'VATS_ASBUILT'
            list_text      = v_list
            immediately    = 'X'
            release        = 'X'
            new_list_id    = 'X'
            expiration     = days
            line_size      = 132
            line_count     = 65
            layout         = 'X_65_132'
*            sap_cover_page = 'X'
*            cover_page     = 'X'
            receiver       = 'SAP*'
            department     = 'VATS'
            no_dialog      = 'X'
       IMPORTING
            out_parameters = params
            valid          = valid.
SUBMIT zppr_vats_asbuilt WITH p_aufnr EQ v_aufnr
               TO SAP-SPOOL WITHOUT SPOOL DYNPRO
                  SPOOL PARAMETERS params
                     AND RETURN.
SELECT SINGLE rqident FROM tsp01 INTO l_spoolno
                     WHERE rqtitle = v_list .
* convert report to PDF format
CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF'
       EXPORTING
            src_spoolid              = l_spoolno
            no_dialog                = 'X'
       TABLES
            pdf                      = l_ipdf
       EXCEPTIONS
            err_no_abap_spooljob     = 1
            err_no_spooljob          = 2
            err_no_permission        = 3
            err_conv_not_possible    = 4
            err_bad_destdevice       = 5
            user_cancelled           = 6
            err_spoolerror           = 7
            err_temseerror           = 8
            err_btcjob_open_failed   = 9
            err_btcjob_submit_failed = 10
            err_btcjob_close_failed = 11
            OTHERS                   = 12.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    EXIT .
ENDIF.
Now comes the part to send the mail
try.
* -------- create persistent send request ------------------------
      send_request = cl_bcs=>create_persistent( ).
      clear document.
* -------- create and set document with attachment ---------------
* create document from internal table with text
      document = cl_document_bcs=>create_document(
      i_type = 'RAW'
      i_text = text
      i_length = '12'
      i_subject = '' ).
*changing the content of the attachment
      binary_content[] = l_iobjbin[].
*change the name of the PDF attachment
      concatenate 'Build ID' s_buildid_i 'Rev' v_buildid_rev
                          into i_att_sub separated by space.
* add attachment to document
      call method document->add_attachment
        exporting
          i_attachment_type    = 'PDF'
          i_attachment_subject = i_att_sub
          i_att_content_hex    = binary_content.
*setting the option to send an e-mail more than 50 characters
      call method send_request->set_message_subject
        exporting
          ip_subject = t_sub.
* add document to send request
      call method send_request->set_document
        exporting
          i_document = document.
* --------- set sender -------------------------------------------
* note: this is necessary only if you want to set the sender
* different from actual user (SY-UNAME). Otherwise sender is
* set automatically with actual user.
      sender = cl_sapuser_bcs=>create( 'VATSUPPORT' ).
      call method send_request->set_sender
        exporting
          i_sender = sender.
*Send the list based on receivers list obtained
      loop at l_ireclist.
        AD_SMTPADR = l_ireclist-receiver.
* --------- add recipient (e-mail address) -----------------------
* create recipient - please replace e-mail address !!!
      recipient = cl_cam_address_bcs=>create_internet_address(
      AD_SMTPADR ).
* add recipient with its respective attributes to send request
      call method send_request->add_recipient
        exporting
          i_recipient = recipient
          i_express   = 'X'.
      ENDLOOP.
      call method send_request->set_status_attributes
        exporting
          i_requested_status = 'E'
          i_status_mail      = 'E'.
* To send the mail immediately
      call method send_request->set_send_immediately( 'X' ).
* ---------- send document ---------------------------------------
      call method send_request->send( ).
      commit work.

To send smartform output through email and fax

Hi,
I need to send smartform output through email if the email address is present else if the email address is present then it has to be sent through fax.If both the email address and fax are present,then it has to send an email.
Now the issue is I am able to send the email and I am getting the message as 'Output was successfully issued'.But the entry corresponding to this is not shown in SOST transaction.
Can anyone tell me what would be the reason for this?

HI,
Try to look in transaction SCOT
Regards,
Egle

How to send txt file as attachement in email

Hi Experts ,
How to send txt file as attachement in email .
which function module i use

Hi,
Try to use this one
CALL FUNCTION 'SO_NEW_DOCUMENT_SEND_API1'
Hope it can solve your problem!
Good luck!
Tao

How to send more than 1 attachment thru email

Hi All,
Need to know how to send more than one attachment through email. I need the coding part of it.
Thanks in Advance.
Balaji

Hi Balaji,
Check this thread
Sending mail with 2 attachments
Regards,
Santosh

How to send smartform output in body of email?

Similar Messages

Maybe you are looking for