Sending a text document as pdf by email.

Question

Hi,
I have a plain text document that needs to be send as a pdf document by email. The line type of the text document is PC408-linda, which is 132-character length. I am trying to use the FM ‘SO_NEW_DOCUMENT_ATT_SEND_API1’ for sending the document which uses structure ‘SOLISTI1’ for sending the document. The line size of SOLISTI1 is 256 characters. I tried to send 132-character length internal table instead of the given structure for the FM, it didn’t work. Later, I put the 132-charcter line into the 256-character length line, which works well. But, I have a problem when the outgoing system converts the 256-character length into pdf document. It breaks the line.
Can you please suggest me how can I fit this 132-chracter line in the above FM or Is there any alaternateive FM for sending this 132-character lines, which will fit in the pdf format.
Lokman

Answer 1

Hi,
Here I am sending the part of the code that is sending the text document by using FM. Internal table $form conatins 132-character length text document. I want to send this document so that converted pdf appears similar to text line.
FORM send_email USING $form TYPE tt_form.
DATA:
    $form_wa1  LIKE pc408.
data: paydate(15) type c.
Data  date like sy-datum.
*date = sy-datum.
Email Subject.
DATA: s1(30)  TYPE c VALUE  ' Avis - Bulletin de paie du ',
        s3(50)  TYPE c .
loop at $form into $form_wa1.
if sy-tabix eq 10.
MOVE $form_wa1-linda+5(10) TO paydate.
endif.
objtxt-line = $form_wa1-linda.
append objtxt.
endloop.
CONCATENATE s1 paydate INTO s3 separated by SPACE.
*Email message body.
DATA: c1(30)  TYPE c VALUE  'Vous trouverez ci-joint',
      c2(50) type c value ' votre bulletin de paie du  ' ,
      c type c value '.',
      c4(85)  TYPE c.
CONCATENATE c1 c2 paydate c INTO c4 separated by SPACE.
data: a1(40) type c value 'À ouvrir avec le programme "Notepad" ',
   a2(47) type c value ' ou "Wordpad" pour le visualiser correctement.',
   a3(90) type c.
  CONCATENATE a1 a2 INTO a3.
data: b1(45) type c value ' Pour imprimer, veuillez vous ',
    b2(45) type c value ' assurer que les marges (droite et gauche)',
    b3(35) type c value ' sont restreintes au minimum.',
   b4(200) type c.
   CONCATENATE a3 b1 b2 b3 INTO b4.
Main Text
data wa_form like PC408 .
Email Subject
docdata-obj_name = 'TEST_ALI'.
docdata-obj_descr = s3.
Email Message
objtxt = 'Bonjour,'.
append objtxt.
objtxt = ' '.
append objtxt.
objtxt = c4.
append objtxt.
objtxt = ' '.
append objtxt.
objtxt = b4.
append objtxt.
describe table objtxt lines tab_lines.
read table objtxt index tab_lines.
docdata-doc_size = ( tab_lines - 1 ) * 255 + strlen( objtxt ).
clear objpack-transf_bin.
objpack-head_start = 1.
objpack-head_num = 0.
objpack-body_start = 1.
objpack-body_num = tab_lines.
objpack-doc_type = 'RAW'.
append objpack.
Create Message Attachment
Write Packing List (Attachment)
loop at $form into $form_wa1.
*if sy-tabix eq 10.
*MOVE $form_wa1-linda+5(10) TO paydate.
endif.
  objtxt-line = $form_wa1-linda.
  append objtxt.
endloop.
att_type = 'RAW '.
describe table objtxt lines tab_lines.
read table objtxt index tab_lines.
objpack-doc_size = ( tab_lines - 1 ) * 255 + strlen( objtxt ).
clear objpack-transf_bin.
objpack-head_start = 6.
objpack-head_num = 0.
objpack-body_start = 6.
objpack-body_num = tab_lines.
objpack-doc_type = att_type.
objpack-obj_name = 'ATTACHMENT'.
objpack-obj_descr = 'Attached Document'.
append objpack.
Create receiver list
reclist-receiver = wa_pa0105-usrid. "<-- change address
*reclist-receiver = '[email protected]'. "<-- change address
reclist-rec_type = 'U'.
append reclist.
*reclist-receiver = sy-uname. "<-- change internal user
*reclist-rec_type = 'B'.
*append reclist.
Send Message
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
EXPORTING
document_data = docdata
PUT_IN_OUTBOX = 'X'
IMPORTING
SENT_TO_ALL =
NEW_OBJECT_ID =
tables
packing_list = objpack
OBJECT_HEADER = objhead
*CONTENTS_BIN = objbin
CONTENTS_TXT = objtxt
OBJECT_PARA =
OBJECT_PARB =
receivers = 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
refresh: objtxt,
         objpack,
         objhead,
         reclist.
IF sy-subrc <> 0.
message ID 'SO' TYPE 'S' NUMBER '023'
with docdata-obj_name.
ENDIF.
*write: / 'End of Program'.
ENDFORM.                    " send_email