Sap Email - RTL

Hi
I have an abap program of sending mail , the Email language is Hebrew
how I can align the body and the title text from left to right
I use 'SO_NEW_DOCUMENT_ATT_SEND_API1' function for sending the email
any help
THanks.

Hi,
this is how I call that FM when sending e-mail in HTML format.
CALL FUNCTION 'SO_NEW_DOCUMENT_SEND_API1' " odesli e-mail
 EXPORTING
 document_data = l_doc_data
 document_type = 'HTM'
 put_in_outbox = ' '
 commit_work = 'X'
 TABLES
 object_content = msg_body
 receivers = l_recpts
 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.
Now you just have to put your message in msg_body. If you want to change align of the text, use something like
your_text

Similar Messages

SAP Email from Workflow.

Hello Gurus.
we have Work flow for Purchase order release strategy.
Now in our customisation we have change the Agent id name.
But work flow do not send any SAP Email to that Newly Agent id.
Workflow works fine before changes in Customisation.
i am waiting your reply.
Regards,
Riten patel
Moderator message: please have a look in the dedicated Workflow forum.
Edited by: Thomas Zloch on Jan 4, 2011 2:30 PM

Hi Swapnil,
You need to create a background method for this, use FM SWW_SRV_MAIL_SEND to send an email to the outlook instead of sap. This is one way.
Otherwise,
You can use a step type notification email, in that you need to choose the recipient type as email address and specify the email address.

Reg SAP Email

Hi All,
I have a requirement like I am doing BDC program after BDC run I need to send report output to spool as well as to the user through SAP Email can any body throw some idea how to do on this please?
Thanks&Regards
Mahesh

Hai
For Output to PDF Conversion use the following Code
REPORT Z_ABAPOUTPUT_PDF_SREE_13424 .
data: w_ident like tsp01-rqident,
 w_doctype like tsp01-rqdoctype,
 w_bytecount type i.
data: itab_pdf like tline occurs 0 with header line.
parameter spoolnum like tsp01-rqident obligatory.
selection-screen begin of block a2 with frame.
parameters: to_pc radiobutton group a2 default 'X',
 pcfile like rlgrap-filename lower case,
 to_unix radiobutton group a2,
 unixfile(255) lower case.
selection-screen end of block a2.
at selection-screen on block a2.
if to_pc = 'X' and pcfile is initial.
 message e398(00) with 'Enter PC File Name.'.
elseif to_unix = 'X' and unixfile is initial.
 message e398(00) with 'Enter Unix File Name.'.
endif.
at selection-screen on spoolnum.
select single rqident rqdoctype
 into (w_ident, w_doctype)
 from tsp01
 where rqident = spoolnum.
if sy-subrc ne 0.
 message e398(00) with 'Spool' spoolnum 'not found'.
endif.
at selection-screen on value-request for pcfile.
call function 'WS_FILENAME_GET'
 exporting
 mask = ',.,..'
 importing
 filename = pcfile
 exceptions
 others = 1.
if sy-subrc <> 0.
 message id sy-msgid type 'I' number sy-msgno
 with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.
start-of-selection.
if w_doctype = 'LIST'.
 perform get_abap_spool_in_pdf.
elseif w_doctype = 'OTF'.
 perform get_otf_spool_in_pdf.
endif.
if to_pc = 'X'.
 perform write_pdf_spool_to_pc.
else.
 perform write_pdf_spool_to_unix.
endif.
message i398(00) with 'Completed OK'.
form get_abap_spool_in_pdf.
refresh itab_pdf.
call function 'CONVERT_ABAPSPOOLJOB_2_PDF'
 exporting
 src_spoolid = w_ident
 importing
 pdf_bytecount = w_bytecount
 tables
 pdf = itab_pdf
 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 ne 0.
 message e398(00) with 'Cannot convert to PDF. Error =' sy-subrc.
endif.
endform.
form get_otf_spool_in_pdf.
refresh itab_pdf.
call function 'CONVERT_OTFSPOOLJOB_2_PDF'
 exporting
 src_spoolid = w_ident
 importing
 pdf_bytecount = w_bytecount
 tables
 pdf = itab_pdf
 exceptions
 err_no_otf_spooljob = 1
 err_no_spooljob = 2
 err_no_permission = 3
 err_conv_not_possible = 4
 err_bad_dstdevice = 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 e398(00) with 'Cannot convert to PDF. Error =' sy-subrc.
endif.
endform.
form write_pdf_spool_to_unix.
open dataset unixfile for output in binary mode.
if sy-subrc ne 0 .
 message e398(00) with 'Cannot open unix file for output:' unixfile.
endif.
loop at itab_pdf.
 transfer itab_pdf to unixfile.
 if sy-subrc ne 0 .
 message e398(00) with 'Cannot write to unix file:' unixfile.
 endif.
endloop.
close dataset unixfile.
endform.
form write_pdf_spool_to_pc.
call function 'WS_DOWNLOAD'
 exporting
 bin_filesize = w_bytecount
 filename = pcfile
 filetype = 'BIN'
 tables
 data_tab = itab_pdf
 exceptions
 file_open_error = 1
 file_write_error = 2
 invalid_filesize = 3
 invalid_type = 4
 no_batch = 5
 unknown_error = 6
 invalid_table_width = 7
 gui_refuse_filetransfer = 8
 customer_error = 9
 others = 10.
if sy-subrc <> 0.
 message e398(00) with 'Cannot download to PC. Error =' sy-subrc.
endif.
endform.
For Email
DATA: OBJPACK LIKE SOPCKLSTI1 OCCURS 2 WITH HEADER LINE.
DATA: OBJHEAD LIKE SOLISTI1 OCCURS 1 WITH HEADER LINE.
DATA: OBJBIN LIKE SOLISTI1 OCCURS 10 WITH HEADER LINE.
DATA: OBJTXT LIKE SOLISTI1 OCCURS 10 WITH HEADER LINE.
DATA: RECLIST LIKE SOMLRECI1 OCCURS 5 WITH HEADER LINE.
DATA: DOC_CHNG LIKE SODOCCHGI1.
DOC_CHNG-OBJ_NAME = 'TEST'.
DOC_CHNG-OBJ_DESCR = 'Test-Dokument fur API1 Test'(001).
OBJTXT = 'Mindestgebot : $250000'.
APPEND OBJTXT.
OBJTXT = 'Eine Abbildung des zur Versteigerung stehenden Bildes'.
APPEND OBJTXT.
OBJTXT = 'wurde als Anlage beigefugt.'.
APPEND OBJTXT.
DESCRIBE TABLE OBJTXT LINES TAB_LINES.
READ TABLE OBJTXT INDEX TAB_LINES.
DOC_CHNG-DOC_SIZE = ( TAB_LINES - 1 ) * 255 + STRLEN( OBJTXT ).
* ERSTELLEN DES EINTRAGS ZUM KOMPRIMIERTEN DOKUMENT
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.
* ERSTELLEN DER ANLAGE FUR DAS DOKUMENT
OBJBIN = '\O/ '. APPEND OBJBIN.
OBJBIN = ' '. APPEND OBJBIN.
OBJBIN = ' / \ '. APPEND OBJBIN.
DESCRIBE TABLE OBJBIN LINES TAB_LINES.
OBJHEAD = 'picasso.txt'. APPEND OBJHEAD.
* Erstellen des Eintrags zur komprimierten Anlage
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 = 'ANLAGE'.
OBJPACK-OBJ_DESCR = 'Abbildung Objekt 138'.
OBJPACK-DOC_SIZE = TAB_LINES * 255.
APPEND OBJPACK.
* Fullen der Empfangerliste
RECLIST-RECEIVER = SY-UNAME.
RECLIST-REC_TYPE = 'B'.
APPEND RECLIST.
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
EXPORTING
DOCUMENT_DATA = DOC_CHNG
PUT_IN_OUTBOX = '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.
Regards
Sreeni

Send email to a non-sap email address

Hi,
I have to send a notification when one of the condition occurs. I have to send email based on the role of the users, i.e first find the email addresses of the users based on the role and then send email to their non-sap email addresses(like the company outlook email). Can someone tell me the detailed steps need to be followed here..
Thanks in advance,
Henry.

hi David,
 WELCOME TO SDN
 Use FM SO_NEW_DOCUMENT_SEND_API1.
SAP Send mail via ABAP functions SO_NEW_DOCUMENT_SEND_API1
This abap mail sending program demonstrate how you can send a mail to the user SAP Office mailbox.
REPORT ZSEND .
TABLES: KNA1.
data for send function
DATA DOC_DATA LIKE SODOCCHGI1.
DATA OBJECT_ID LIKE SOODK.
DATA OBJCONT LIKE SOLI OCCURS 10 WITH HEADER LINE.
DATA RECEIVER LIKE SOMLRECI1 OCCURS 1 WITH HEADER LINE.
SELECT * FROM KNA1 WHERE ANRED LIKE 'C%'.
WRITE:/ KNA1-KUNNR, KNA1-ANRED.
send data internal table
CONCATENATE KNA1-KUNNR KNA1-ANRED
 INTO OBJCONT-LINE SEPARATED BY SPACE.
APPEND OBJCONT.
ENDSELECT.
insert receiver (sap name)
REFRESH RECEIVER.
CLEAR RECEIVER.
MOVE: SY-UNAME TO RECEIVER-RECEIVER,
 'X' TO RECEIVER-EXPRESS,
 'B' TO RECEIVER-REC_TYPE.
APPEND RECEIVER.
insert mail description
WRITE 'Sending a mail through abap'
 TO DOC_DATA-OBJ_DESCR.
CALL FUNCTION 'SO_NEW_DOCUMENT_SEND_API1'
 EXPORTING
 DOCUMENT_DATA = DOC_DATA
 IMPORTING
 NEW_OBJECT_ID = OBJECT_ID
 TABLES
 OBJECT_CONTENT = OBJCONT
 RECEIVERS = RECEIVER
 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.
http://sapr3.tripod.com/abap011.htm
Regards,
Santosh
Note: Reward Points if helpful

Need info on automating SAP email to PO requestors for AP events

Hi Friends,
Is there any BADI for triggering the PO(Invoice changes). For example when an invoice posts against a PO the system could automatically send an email to the PO requestor in SAP that this invoice was posted against this PO.It is very very urgent.
Rgds,
Rama

Check out this link to see if it helps:
user-exit for deletion of line item in PO
Lisa

Modify SAP Email notification subject and content

Hi,
As of now we are receiving notification emails with standard subject whenever we are receiving workflow items in SAP .
I want to customize the subject and content of the notification...
Eg;
One of our team receiving email notifications for all workflow items [for Idoc Status errors] .. now i want to change the subject and content for this team alone . ..
Suppose if the orders got failed , workflow will assign to EDI team .. they will receive email for this ..
Now i need to change the email subject / append the idoc status in the subject ...
Please help me

Hi, how did you solve the problem? I have probably the same problem and I am new in this. After payment clarification process in FS-CD the email is automatically generated and send to user. But I do not know where can I change the body of the email. If it is Customizing, or change in some program or User exit or FM?
thank you for any help..
Michal

SAP EMAIL

Hi All,
 iam not able to send an email to an sap receipient
but funny thing is,when i send to my userid i am able to receive myself, may be i am missing some thing.i am using the following code.
DATA: X_OBJECT_TYPE LIKE SOOD-OBJTP."type of document to be sent with
*mail
Parameter object_hd_change
DATA: BEGIN OF X_OBJECT_HD_CHANGE.
INCLUDE STRUCTURE SOOD1.
DATA: END OF X_OBJECT_HD_CHANGE.
*table objcont
DATA: BEGIN OF X_OBJCONT OCCURS 10.
INCLUDE STRUCTURE SOLI.
DATA: END OF X_OBJCONT.
table header information
DATA: BEGIN OF X_OBJHEAD OCCURS 0.
INCLUDE STRUCTURE SOLI.
DATA: END OF X_OBJHEAD.
DATA: BEGIN OF RAW_HEAD.
INCLUDE STRUCTURE SORH.
DATA: END OF RAW_HEAD.
DATA: BEGIN OF X_RECEIVERS OCCURS 0.
INCLUDE STRUCTURE SOOS1.
DATA: END OF X_RECEIVERS.
PARAMETERS: RECEIVER LIKE X_RECEIVERS-RECNAM. " Name
*BUILD MESSAGE HEADER
MOVE 'Sort field goes here' TO X_OBJECT_HD_CHANGE-OBJSRT. " Sort field
MOVE 'Name' TO X_OBJECT_HD_CHANGE-OBJNAM. " Name
MOVE 'GOT TO GO TITLE' TO X_OBJECT_HD_CHANGE-OBJDES. " Title
MOVE 'C' TO X_OBJECT_HD_CHANGE-OBJSNS. " Functional OBJECT
MOVE 'E' TO X_OBJECT_HD_CHANGE-OBJLA. " Language
Object type of the new document
MOVE 'RAW' TO X_OBJECT_TYPE.
CLEAR X_OBJCONT.
MOVE 'EMPLOYEE NUMBER IS NOT CORRECT as CONTENT ' TO X_OBJCONT-LINE.
APPEND X_OBJCONT.
CLEAR X_OBJCONT-LINE. APPEND X_OBJCONT.
MOVE 'Will u make a quick check More contents' TO X_OBJCONT-LINE.
APPEND X_OBJCONT.
MOVE 'REGARDS Still more contents' to x_objcont-line.
APPEND X_OBJCONT.
MOVE 'AZEEM ' TO X_OBJCONT-LINE.
APPEND X_OBJCONT.
Specific header (Dependent on the object type, here RAW)
REFRESH X_OBJHEAD.
DESCRIBE TABLE X_OBJCONT LINES RAW_HEAD-RAWSIZ.
MOVE RAW_HEAD TO X_OBJHEAD.
APPEND X_OBJHEAD.
*RECEIVERS table
CLEAR X_RECEIVERS.
REFRESH X_RECEIVERS.
MOVE RECEIVER TO X_RECEIVERS-RECNAM. " Name
MOVE 'B' TO X_RECEIVERS-RECESC. " Receiver type
MOVE 'X' TO X_RECEIVERS-SNDCP. " Send as a copy
MOVE 'X' TO X_RECEIVERS-SNDEX. " EXPRESS DOCUMENT
APPEND X_RECEIVERS.
CALL FUNCTION 'SO_OBJECT_SEND'
EXPORTING
*set property
folder_id = 'OUTBOX'
forwarder = x_forwarder
object_fl_change = x_object_fl_change
OBJECT_HD_CHANGE = X_OBJECT_HD_CHANGE
object_id = x_object_id
OBJECT_TYPE = X_OBJECT_TYPE
OUTBOX_FLAG = 'X'
OWNER = sy-uname
store_flag = x_store_flag
importing
object_id_new = x_object_id_new
sent_to_all = x_sent_to_all "May need to use
TABLES
OBJCONT = X_OBJCONT
OBJHEAD = X_OBJHEAD
objpara = x_objpara
objparb = x_objparb
RECEIVERS = X_RECEIVERS.
if sy-subrc ne 0.
Message I001(s) with 'Message not send'.
else.
Message I001(s) with ' GOT THE MAIL'.
endif.
I have debugged my program , i found that when i am sending to myself i have only one record in my receiver internal tabel and when i send it to others it creates 2 adress.
if any one had faced the same problem then plz guide me.
Regards,
Azee

Hi Azee,
Please use this code and try.
DATA: X_OBJECT_TYPE LIKE SOOD-OBJTP."type of document to be sent with
*mail
Parameter object_hd_change
DATA: BEGIN OF X_OBJECT_HD_CHANGE.
INCLUDE STRUCTURE SOOD1.
DATA: END OF X_OBJECT_HD_CHANGE.
*table objcont
DATA: BEGIN OF X_OBJCONT OCCURS 10.
INCLUDE STRUCTURE SOLI.
DATA: END OF X_OBJCONT.
table header information
DATA: BEGIN OF X_OBJHEAD OCCURS 0.
INCLUDE STRUCTURE SOLI.
DATA: END OF X_OBJHEAD.
DATA: BEGIN OF RAW_HEAD.
INCLUDE STRUCTURE SORH.
DATA: END OF RAW_HEAD.
DATA: BEGIN OF X_RECEIVERS OCCURS 0.
INCLUDE STRUCTURE SOOS1.
DATA: END OF X_RECEIVERS.
SELECT-OPTIONS : RECEIVER FOR X_RECEIVERS-RECNAM NO INTERVALS.
*PARAMETERS: RECEIVER LIKE X_RECEIVERS-RECNAM. " Name
*BUILD MESSAGE HEADER
MOVE 'Sort field goes here' TO X_OBJECT_HD_CHANGE-OBJSRT. " Sort field
MOVE 'Name' TO X_OBJECT_HD_CHANGE-OBJNAM. " Name
MOVE 'GOT TO GO TITLE' TO X_OBJECT_HD_CHANGE-OBJDES. " Title
MOVE 'C' TO X_OBJECT_HD_CHANGE-OBJSNS. " Functional OBJECT
MOVE 'E' TO X_OBJECT_HD_CHANGE-OBJLA. " Language
Object type of the new document
MOVE 'RAW' TO X_OBJECT_TYPE.
CLEAR X_OBJCONT.
MOVE 'EMPLOYEE NUMBER IS NOT CORRECT as CONTENT ' TO X_OBJCONT-LINE.
APPEND X_OBJCONT.
CLEAR X_OBJCONT-LINE. APPEND X_OBJCONT.
MOVE 'Will u make a quick check More contents' TO X_OBJCONT-LINE.
APPEND X_OBJCONT.
MOVE 'REGARDS Still more contents' to x_objcont-line.
APPEND X_OBJCONT.
MOVE 'AZEEM ' TO X_OBJCONT-LINE.
APPEND X_OBJCONT.
Specific header (Dependent on the object type, here RAW)
REFRESH X_OBJHEAD.
DESCRIBE TABLE X_OBJCONT LINES RAW_HEAD-RAWSIZ.
MOVE RAW_HEAD TO X_OBJHEAD.
APPEND X_OBJHEAD.
*RECEIVERS table
CLEAR X_RECEIVERS.
REFRESH X_RECEIVERS.
LOOP AT RECEIVER.
 MOVE RECEIVER-LOW TO X_RECEIVERS-RECNAM. " Name
 MOVE 'B' TO X_RECEIVERS-RECESC. " Receiver type
 MOVE 'X' TO X_RECEIVERS-SNDCP. " Send as a copy
 MOVE 'X' TO X_RECEIVERS-SNDEX. " EXPRESS DOCUMENT
 APPEND X_RECEIVERS.
endloop.
CALL FUNCTION 'SO_OBJECT_SEND'
EXPORTING
*set property
folder_id = 'OUTBOX'
forwarder = x_forwarder
object_fl_change = x_object_fl_change
OBJECT_HD_CHANGE = X_OBJECT_HD_CHANGE
object_id = x_object_id
OBJECT_TYPE = X_OBJECT_TYPE
OUTBOX_FLAG = 'X'
OWNER = sy-uname
store_flag = x_store_flag
importing
object_id_new = x_object_id_new
sent_to_all = x_sent_to_all "May need to use
TABLES
OBJCONT = X_OBJCONT
OBJHEAD = X_OBJHEAD
objpara = x_objpara
objparb = x_objparb
RECEIVERS = X_RECEIVERS.
if sy-subrc ne 0.
Message I001(s) with 'Message not send'.
else.
Message I001(s) with ' GOT THE MAIL'.
endif.
I hope this will solve your problem. In case it doesnt please specify problem faced.
Thanks
Mayank

Sap email address to receive PDF attached

Hello,
I read that you can send an interactive form (in xml or pdf) back to SAP and integrate it directly into SAP.
I saw that you can get the attached file :
[Sample Code for processing Inbound Mail with Adobe Interactive Forms|http://wiki.sdn.sap.com/wiki/display/Snippets/Sample%20Code%20for%20processing%20Inbound%20Mail%20with%20Adobe%20Interactive%20Forms]
But what I don't understand is to what email address it is supposed to be sent, and how check if it is well received in sap.
Is there a "generic" address for sap inbox, and a transaction where I can check this inbox. And how do I write in the program that I want to get email from this address.
Thank you,

Hello,
you will have to set up inbound mail in your SAP system. The SAP System will have an own subdomain or own addresses that you mail server will recognize and send it to your SAP system. About setting up inbound mail please read SAP note:
#455140
After the mail arrives into the SAP system you can define which addresses will need special inbound processing. >> This is what you already found.
The inbound mails can be found in Tr. SOIN in the new releases.
Best regards,
Dezso

SAP email configuration u2013 transaction SCOT

Our email is hosted on the outside and I am in the middle of changing hosts. The new hosting company will not accept sending STMP mail without authentication. There does not seem to be a way to specify a user ID and logon for the SMTP authentication. How are people sending emails from SAP on the AS/400?
I am one ECC 6.0, Netweaver 7.0
Thanks
Alan

Hello Alan,
I have NEVER heard on a solution, that SAP can authenticate ...
SAP is more an SMTP server (and can act as client as well) - SMTP servers are even not having authentication in their protocol.
Where do you have information, that this might work ?
(I'm pretty sure, it will not)
Would it be possible, to alow just the IP of your iSeries in this new mail server to relay without user & password ? (That would be the typical solution)
Regards
Volker Gueldenpfennig, consolut international ag
http://www.consolut.com http://www.4soi.de http://www.easymarketplace.de

Sap email to outlook

Dear experts,
I want to send email to outlook,How I can test the IMG whether is ok or not?And then,How I can
send the email to outlook with abap program.
Anyone have a clue how to force this out?
Tks very much for your help!
Davidzhang

Hi,
Check the below code..
FORM email_forms TABLES p_emp_details STRUCTURE i_emp_details_line
                  USING p_emailid.
DATA: l_tab_lines TYPE i,
        l_string TYPE char300,
        l_line TYPE string.
CONSTANTS : l_c_255(255) TYPE c VALUE '255',
              l_c_txt(3)    TYPE c VALUE 'TXT'.
DATA: lt_reclist TYPE STANDARD TABLE OF somlreci1,       "Recipients
        lt_objpack TYPE STANDARD TABLE OF sopcklsti1,
        lt_objhead TYPE STANDARD TABLE OF solisti1,
        lt_objtxt   TYPE STANDARD TABLE OF solisti1,     "Body of EMail
        lt_objbin   TYPE STANDARD TABLE OF solisti1."Attachment of EMail
DATA: l_doc_chng TYPE sodocchgi1,     "attributes of document to send
        l_reclist LIKE LINE OF lt_reclist,
        l_objpack LIKE LINE OF lt_objpack,
        l_obj      LIKE LINE OF lt_objhead.
DATA :
    l_hex LIKE solix,
    lt_contents_hex LIKE STANDARD TABLE OF solix ,
    conv TYPE REF TO cl_abap_conv_out_ce,
    l_buffer TYPE xstring,
    l_hexa(510) TYPE x.
* Completing the recipient list
l_reclist-receiver = p_emailid.
l_reclist-express = 'X'.
l_reclist-rec_type = 'U'.
APPEND l_reclist TO lt_reclist.
CLEAR l_reclist.
* Body of Email Message
APPEND l_obj TO lt_objtxt.   CLEAR l_obj.       " Blank line
l_obj-line = 'Hello,'(012).
APPEND l_obj TO lt_objtxt.   CLEAR l_obj.
l_obj-line = cl_abap_char_utilities=>newline.
APPEND l_obj TO lt_objtxt.   CLEAR l_obj.       " Blank line
CONCATENATE
   'Please click the link to access the Confirmation Form.'(t01)
   'Kindly complete the same and return it to the HR contact 15 days' &
   ' prior to the date of confirmation of the employee.'(t02)
               INTO l_obj-line SEPARATED BY space.
APPEND l_obj TO lt_objtxt.   CLEAR l_obj.
l_obj-line = cl_abap_char_utilities=>newline.
APPEND l_obj TO lt_objtxt.   CLEAR l_obj.       " Blank line
CONCATENATE text-l01 text-l02 INTO l_obj-line.
APPEND l_obj TO lt_objtxt.   CLEAR l_obj.
l_obj-line = cl_abap_char_utilities=>newline.
APPEND l_obj TO lt_objtxt.   CLEAR l_obj.       " Blank line
l_obj-line =
'For Trainees use Confirmation form trainees and for rest use the' &
' Confirmation form.'(t03).
APPEND l_obj TO lt_objtxt.
CLEAR l_obj.
l_obj-line = cl_abap_char_utilities=>newline.
APPEND l_obj TO lt_objtxt.   CLEAR l_obj.       " Blank line
l_obj-line = 'The details of the employee are as follows :'(017).
APPEND l_obj TO lt_objtxt.   CLEAR l_obj.
l_obj-line = cl_abap_char_utilities=>newline.
APPEND l_obj TO lt_objtxt.   CLEAR l_obj.       " Blank line
l_obj-line = 'Name'(013).
l_obj-line+60 = 'Department'(005).
l_obj-line+128 = 'DOJ'(014).
l_obj-line+150 = 'Confirmation Date'(015).
APPEND l_obj TO lt_objtxt.   CLEAR l_obj.
* Email Attachment
* Append headings
CONCATENATE 'Employee No.'(002)
              'Employee Group'(016)
              'Employee Name'(001)
              'Designation'(003)
              'Joining Date'(004)
              'Department'(005)
              'Branch/Location'(006)
              'Unit'(007)
              'Confirmation Due'(008)
              'Form sent on'(009)
              'Form Return by'(010)
              'Employee Group'(016)
            INTO l_string
       SEPARATED BY cl_abap_char_utilities=>horizontal_tab.
APPEND l_string TO lt_objbin.
CLEAR l_string.
APPEND INITIAL LINE TO lt_objbin.
LOOP AT p_emp_details INTO i_emp_details_line.
    CONCATENATE i_emp_details_line-pnalt
                i_emp_details_line-egroup
                i_emp_details_line-ename
                i_emp_details_line-stext
                i_emp_details_line-srvdt
                i_emp_details_line-ltext
                i_emp_details_line-pbtxt
                i_emp_details_line-btrtx
                i_emp_details_line-mndat
                i_emp_details_line-fsdate
                i_emp_details_line-frdate
                i_emp_details_line-egroup
           INTO l_string
      SEPARATED BY cl_abap_char_utilities=>horizontal_tab.
    APPEND l_string TO lt_objbin.
    CLEAR l_string.
    l_obj-line = i_emp_details_line-ename.
    l_obj-line+60 = i_emp_details_line-ltext.
    l_obj-line+128 = i_emp_details_line-srvdt.
    l_obj-line+150 = i_emp_details_line-mndat.
    APPEND l_obj TO lt_objtxt.   CLEAR l_obj.
ENDLOOP.
IF r_cprob EQ 'X'.
    l_string = 'Completion of probation List'(029).
ELSE.
    l_string = 'Completion of extension of probation List'(018).
ENDIF.
APPEND l_string TO lt_objhead.
* APPEND object_header.
CALL FUNCTION 'SO_RAW_TO_RTF'
    TABLES
      objcont_old = lt_objbin
      objcont_new = lt_objbin.
LOOP AT lt_objbin INTO l_line.
   conv = cl_abap_conv_out_ce=>create( encoding = 'UTF-8' endian = 'B').
    CALL METHOD conv->write( data = l_line ).
    l_buffer = conv->get_buffer( ).
    MOVE l_buffer TO l_hexa.
    MOVE l_hexa TO l_hex-line.
    APPEND l_hex TO lt_contents_hex.
ENDLOOP.
* File name for attachment
CONCATENATE 'Completion of probation List'(018)
               sy-datum '.XLS' INTO l_obj SEPARATED BY space.
APPEND l_obj TO lt_objhead.
* Email Body Details
CLEAR l_tab_lines.
DESCRIBE TABLE lt_objtxt LINES l_tab_lines.
l_doc_chng-doc_size = ( l_tab_lines - 1 ) * 255 +
                          STRLEN( l_string ). "size of doc in bytes
l_doc_chng-obj_name = sy-repid.
l_doc_chng-obj_langu = sy-langu.
l_doc_chng-obj_descr = l_string.
l_doc_chng-sensitivty = 'P'.          " Send mail as a confidential
l_objpack-head_start = 1.
l_objpack-head_num   = 1.
l_objpack-body_start = 1.
l_objpack-body_num   = l_tab_lines.
l_objpack-doc_type   = l_c_txt.
APPEND l_objpack TO lt_objpack.
CLEAR l_objpack.
* Email Attachment Details
CLEAR l_tab_lines.
DESCRIBE TABLE lt_objbin LINES l_tab_lines.
* Creation of the entry for the compressed attachment
l_objpack-transf_bin = 'X'.
l_objpack-head_start = 1.
l_objpack-head_num   = 1.
l_objpack-body_start = 1.
l_objpack-doc_type   = 'XLS'.
l_objpack-obj_name   = l_obj.
l_objpack-obj_descr = l_obj.
l_objpack-body_num   = l_tab_lines.
l_objpack-doc_size   = l_tab_lines * l_c_255.
APPEND l_objpack TO lt_objpack.
CLEAR l_objpack.
* Send the document
CALL FUNCTION 'SO_DOCUMENT_SEND_API1'
    EXPORTING
      document_data              = l_doc_chng
      put_in_outbox              = ' '
      commit_work                = 'X'
    TABLES
      packing_list               = lt_objpack
      object_header              = lt_objhead
*      contents_bin               = lt_objbin
      contents_txt               = lt_objtxt
      contents_hex               = lt_contents_hex
      receivers                  = lt_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.
IF sy-subrc = 0.
    MESSAGE s000(oo) WITH 'Email sent to recipients'(019).
*   To refresh SAP Work Office so that mail can be recieved immediataly.
    SUBMIT rsconn01 WITH mode = 'INT'
                  WITH output = ''
                  AND RETURN.
*   Update the infotype 0019 after sending the email with the status
*   u2018Task in processu2018 from u2018Task in processu2018.
    PERFORM update_0019 TABLES p_emp_details.
ELSE.
    MESSAGE s000(oo) WITH 'Problem in sending Email.'(e01).
ENDIF.
ENDFORM.                    " email_forms

Re: configuring SAP Email

Hi Gurus! Can anyone guide me on how to configure email on SAP. I want to send and receive emails from outside.
Thanks in advance!
yshenz

go at help.sap.com and search with keyword SCOT
good luck.

Sap email notification

Hello.
Can you tell me what are the steps I have to do to configure email notifications from SAP?
Thanks a lot .

no interview questions
no research done
That info is widely available at help.sap.com
Read the "Rules of Engagement"
Regards
Juan

How to format Body of SAP email.

Hi All,
I am sending standard text as body of email .Formating options are not applying .
Can you tell me how to format email BODY.
Regards,
Esh

make use of HTML formatting tags. ex.
APPEND: '<table border=1 width=80%' TO lt_contents_txt,
 'cellpadding=1 cellspacing=0>' TO lt_contents_txt,
 '<tr>' TO lt_contents_txt,
 '<td class=header>PR Number</td>' TO lt_contents_txt,
 '<td class=header>PR Line Item</td>' TO lt_contents_txt,
 '<td class=header>Description</td>' TO lt_contents_txt,
 '<td class=header>PR Release Date</td>' TO lt_contents_txt,
 '<td class=header>PR Qty</td>' TO lt_contents_txt,
 '<td class=header>Remaining PR Qty</td>' TO lt_contents_txt,
 '<td class=header>Unit of Measure</td>' TO lt_contents_txt,
 '<td class=header>Requisitioner</td>' TO lt_contents_txt,
 '<td class=header>Doc Type</td>' TO lt_contents_txt,
 '<td class=header>Doc Type Description</td>' TO lt_contents_txt,
 '</tr>' TO lt_contents_txt.
lt_contents_txt is the content of your email
Edited by: abapGenin on Sep 30, 2010 1:58 PM

SAP Email Setting

Hi All,
I have installed IDES 6 with oracle on Window Server 2003 and now i want to send email to external domain
like hotmail, yahoo and gmail accounts.
How can i do it.
Regards,
jamil

Hi..Abdul,
If you do not have any mail server, then install SMTP and POP by using your windows CD. If you donot know how to do it. Please go through following links,
http://www.ilopia.com/Articles/WindowsServer2003/EmailServer.aspx
http://articles.techrepublic.com.com/5100-10878_11-5035180.html
<removed_by_moderator>
Read the "Rules of Engagement"
Regards,
Abhimanyu
Edited by: Juan Reyes on May 19, 2009 12:45 PM

Cannot Send Email from SAP Business One

Hi Experts
I have configured SAP Email Services from the Mailer Service and Customer can send emails all the while,
Now I have an Issue for One User,
Iam using the Same Machine, Same Database with Manager Login, I can send Email from SAP with Attachments
But When I use another Super user the system is not delivering the Email and it Goes to the Sent box (but not delivered)
Have anyone encountered the Issue before
Please hep to solve this issue permanently
Thanks and Regards
Vinodh Kumar Mohan

Hi Vinodh Kumar Mohan,
If the email can be found in Sent box, it must be delivered already.
The problem could be on the email recipient side. It may go to the junk mail.
Thanks,
Gordon

Sap Email - RTL

Similar Messages

Maybe you are looking for