Scribd
Upload
163 views3 pages

Send Email - ABAP

This ABAP program sends an email to both an external email address and SAP inbox. It takes in a user ID and email as parameters. It builds an internal table with the recipients, subject line, and message body. It then calls a function module to send the email, trapping any errors. The purpose is to automatically send a test email from an ABAP program.

Uploaded by

Prakash
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
163 views3 pages

Send Email - ABAP

This ABAP program sends an email to both an external email address and SAP inbox. It takes in a user ID and email as parameters. It builds an internal table with the recipients, subject line, and message body. It then calls a function module to send the email, trapping any errors. The purpose is to automatically send a test email from an ABAP program.

Uploaded by

Prakash
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 3

FUNCTION zsur_mail_sending_prg.

*"---------------------------------------------------------------------""Local Interface:
*" IMPORTING
*" REFERENCE(LV_EMP_USERID) TYPE FITP_USER-UNAME
*" REFERENCE(LV_EMP_EMAILID) TYPE PA0105-USRID_LONG
*"---------------------------------------------------------------------********************************************************************************
***
* Created by: P.Surjith Kumar, Enteg InfoTech, Bangalore, India.
* Created on: 03-11-2008
* Purpose : Sending Mail for the Respective Person's SAP Inbox and External Emai
l id.
********************************************************************************
***
* *&Get the Email id and User id Whom you want to Send ******
DATA:it_receivers TYPE STANDARD TABLE OF somlreci1,
wa_it_receivers LIKE LINE OF it_receivers,
it_packing_list TYPE STANDARD TABLE OF sopcklsti1,
gd_doc_data TYPE sodocchgi1,
wa_it_packing_list LIKE LINE OF it_packing_list,
psubject(90) TYPE c,
it_message TYPE STANDARD TABLE OF solisti1,
wa_it_message LIKE LINE OF it_message,
c1(99) TYPE c,
c2(15) TYPE c,
num_lines TYPE i.
&-- Assign the Email id and User id to Whom you want to Send -------------&
FREE wa_it_receivers.
wa_it_receivers-receiver = lv_emp_emailid. "&---- Assign Email id
wa_it_receivers-rec_type = 'U'. "&---- Send to External Email id
wa_it_receivers-com_type = 'INT'.
wa_it_receivers-notif_del = 'X'.
wa_it_receivers-notif_ndel = 'X'.
APPEND wa_it_receivers TO it_receivers .
FREE wa_it_receivers.
wa_it_receivers-receiver = lv_emp_userid. "&----- Assign SAP User Id
wa_it_receivers-rec_type = 'B'. "&-- Send to SAP Inbox
wa_it_receivers-com_type = 'INT'.
wa_it_receivers-notif_del = 'X'.
28/03/2015 Send Message to External email id and SAP User id via ABAP - ABAP Dev
elopment - SCN Wiki
http://wiki.scn.sap.com/wiki/display/ABAP/Send+Message+to+External+email+id+and+
SAP+User+id+via+ABAP 7/15
wa_it_receivers-notif_ndel = 'X'.
APPEND wa_it_receivers TO it_receivers .
*& - END of Assign the Email id and User id to Whom you want to Send --&
"&--- Read the Number of lines in the Internal Table
DESCRIBE TABLE it_receivers LINES num_lines.
"&--- Check the Sender Email id or SAP User id is got or not.
IF num_lines IS NOT INITIAL.
*&--------------------------------------------------------------------* Add thetext to mail text table
*&---------------------------------------------------------------------*&-- Subject of the mail -------------&*
psubject = 'Send Mail from ABAP Program.'(001).
&-- Body of the mail ----------------&*
CLEAR wa_it_message.
c1 = 'Dear'(005).
c2 = lv_emp_userid.

CONCATENATE c1 c2 ',' INTO


wa_it_message-line SEPARATED BY space.
APPEND wa_it_message TO it_message.
*** insert Blank Line *********************************************
CLEAR wa_it_message.
wa_it_message-line = ' '.
APPEND wa_it_message TO it_message.
******* Assign your Text below *************************************
CLEAR wa_it_message.
wa_it_message-line = 'A Test Mail sent from "Enteg InfoTech" through ABAP Progra
m.'(002).
APPEND wa_it_message TO it_message.
*** insert Blank Line{} *********************************************
CLEAR wa_it_message.
wa_it_message-line = ' '.
APPEND wa_it_message TO it_message.
**********Assign your Text below ********************************
CLEAR wa_it_message.
wa_it_message-line = 'This mail generate automatically. Please do not reply.'(00
3).
APPEND wa_it_message TO it_message.
*********************************************************************
**********& Send EMAIL MESSAGE &*********************************
28/03/2015 Send Message to External email id and SAP User id via ABAP - ABAP Dev
elopment - SCN Wiki
http://wiki.scn.sap.com/wiki/display/ABAP/Send+Message+to+External+email+id+and+
SAP+User+id+via+ABAP 8/15
gd_doc_data-doc_size = 1.
*Populate the subject/generic message attributes
gd_doc_data-obj_langu = sy-langu.
gd_doc_data-obj_name = 'SAPRPT'.
gd_doc_data-obj_descr = psubject.
gd_doc_data-sensitivty = 'F'.
*Describe the body of the message
CLEAR wa_it_packing_list.
REFRESH it_packing_list.
wa_it_packing_list-transf_bin = space.
wa_it_packing_list-head_start = 1.
wa_it_packing_list-head_num = 0.
wa_it_packing_list-body_start = 1.
DESCRIBE TABLE it_message LINES wa_it_packing_list-body_num.
wa_it_packing_list-doc_type = 'RAW'.
APPEND wa_it_packing_list TO it_packing_list.
*&------ Call the Function Module to send the message to External and SAP Inbox
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
EXPORTING
document_data = gd_doc_data
put_in_outbox = 'X'
commit_work = 'X'
TABLES
packing_list = it_packing_list
contents_txt = it_message
receivers = it_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
28/03/2015 Send Message to External email id and SAP User id via ABAP - ABAP Dev
elopment - SCN Wiki
http://wiki.scn.sap.com/wiki/display/ABAP/Send+Message+to+External+email+id+and+
SAP+User+id+via+ABAP 9/15
5. Save and Active it.
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDIF. "&---- END of Check the Sender Email id or SAP User id is got or not.
ENDFUNCTION

You might also like