Sender in the mail

Question

Hi !
I have an requiremnet to add the sender of the mailer which is most likly hard core i. abc@*******in the Call Function
CALL FUNCTION 'SO_NEW_DOCUMENT_SEND_API1'
Please guide .
Regards
Sheetal

Answer 1

Hi  !
Not able to understand the given solution ..m required to add sender in the mail from abap and currently using the Call Function :SO_NEW_DOCUMENT_SEND_API1
FORM MAIL USING ERRORCODE TYPE I.
Recipients
SELECT SINGLE PARAMVALUE
  FROM ZIBHR_PARAMS
  INTO LV_MAIL1
  WHERE PARAMCODE EQ 'MAIL_ID_EXCP_1'.
SELECT SINGLE PARAMVALUE
  FROM ZIBHR_PARAMS
  INTO LV_MAIL2
  WHERE PARAMCODE EQ 'MAIL_ID_EXCP_2'.
IF LV_MAIL1 NE ''.
  lt_mailrecipients-rec_type  = 'U'.
  lt_mailrecipients-receiver = LV_MAIL1.
  APPEND lt_mailrecipients .
  CLEAR lt_mailrecipients .
ENDIF.
IF LV_MAIL2 NE ''.
  lt_mailrecipients-rec_type  = 'U'.
  lt_mailrecipients-receiver = LV_MAIL2.
  APPEND lt_mailrecipients .
  CLEAR lt_mailrecipients .
ENDIF.
IF LV_MAIL1 NE '' AND  LV_MAIL2 NE ''.
  lt_mailrecipients-rec_type  = 'U'.
  lt_mailrecipients-receiver = at .....com.
  APPEND lt_mailrecipients .
  CLEAR lt_mailrecipients .
ENDIF.
IF  ERRORCODE = '1'.
Subject.
  lt_mailsubject-obj_name = 'TEST'.
  lt_mailsubject-obj_langu = sy-langu.
  lt_mailsubject-obj_descr = 'Biometric INET Time Correction Upload Program Exception <001>'.
  lt_mailtxt = 'Biometric INET Time Correction Upload Program. Missing parameters in ZIBHR_PARAMS table Please contact SAP IT HR Team for further action'.
  APPEND lt_mailtxt.
ELSEIF ERRORCODE = '2'.
  lt_mailsubject-obj_name = 'TEST'.
  lt_mailsubject-obj_langu = sy-langu.
  lt_mailsubject-obj_descr = 'Biometric INET Time Correction Program Exception <002>'.
  lt_mailtxt = 'Biometric INET Time Correction Upload Program. Program did not find any file to upload in the directory.'.
  APPEND lt_mailtxt.
ENDIF.
Mail Contents
IF t_error_ind EQ 'Y'.
  lt_mailtxt =  'Please note that some errors have been encountered while loading the records. Please check error log for further details'.
  APPEND lt_mailtxt.
ENDIF.
Send Mail
CALL FUNCTION 'SO_NEW_DOCUMENT_SEND_API1'
  EXPORTING
    document_data              = lt_mailsubject
  TABLES
    object_content             = lt_mailtxt
    receivers                  = lt_mailrecipients
  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 EQ 0.
  COMMIT WORK.
  Push mail out from SAP outbox
  SUBMIT rsconn01 WITH mode = 'INT' AND RETURN.
ENDIF.
refresh lt_mailtxt.
ENDFORM.    "MAIL
Edited by: sheetal Gulati on Mar 8, 2010 5:22 AM