Doubt in Sending mail

Question

Hi,
I Have to send mail from Report program to my lotus notes, using the FM CALL FUNCTION SO_NEW_DOCUMENT_ATT_SEND_API1.but unable to received it in my lotus notes inbox but can see it in outbox of SAP (SBWP).could you help me to resolve this issue.
Please guide me.
Thanks in advance.
Rajkumar P.

Answer 1

Hi Raj,
Any Ways... Here is the complete code to send mail to the lotus notes, which works very fine in my company,
you need to add the z tables in your system.
  DATA : L_NUMBER TYPE TSP01-RQIDENT.
  DATA : L_EKKO LIKE EKKO.
  DATA : L_TCURF LIKE TCURF.
  DATA : L_LFA1 LIKE LFA1 .
  DATA : BEGIN OF LT_TSP01 OCCURS 0,
          RQIDENT LIKE TSP01-RQIDENT,
          RQCRETIME  LIKE TSP01-RQCRETIME,
          DATE(8),
          TIME(8) TYPE N,
          END OF LT_TSP01.
  DATA : G_TEXT(50).
  DATA : BEGIN OF LT_EKPO OCCURS 0,
           EBELN LIKE EKPO-EBELN,
           EBELP LIKE EKPO-EBELP,
           NETWR LIKE EKPO-NETWR,
         END OF LT_EKPO.
  DATA : L_AMOUNT LIKE EKPO-NETWR.
  DATA : L_AMOUNT_TMP LIKE EKPO-NETWR.
  DATA : L_FAXNUM LIKE LFA1-TELFX.
  DATA : L_REAMT LIKE EKBE-DMBTR VALUE '10000000'.
  DATA : L_NUM1 LIKE EKBE-DMBTR VALUE '10000'.
  DATA : L_NUM2 LIKE EKBE-DMBTR VALUE '100000'.
  DATA : L_DATE(9).
  CONCATENATE SY-DATUM '%' INTO L_DATE.
  DATA: L_RECIPIENT_INT LIKE SADRUD.
    * Structures and internal tables for the send data
  DATA: LT_OBJPACK LIKE SOPCKLSTI1 OCCURS 2 WITH HEADER LINE.
  DATA: LT_OBJHEAD LIKE SOLISTI1 OCCURS 1 WITH HEADER LINE.
  DATA: LT_OBJBIN LIKE SOLISTI1 OCCURS 0 WITH HEADER LINE.
  DATA: LT_OBJTXT LIKE SOLISTI1 OCCURS 10 WITH HEADER LINE.
  DATA: LT_RECLIST LIKE SOMLRECI1 OCCURS 5 WITH HEADER LINE.
  DATA: L_DOC_CHNG LIKE SODOCCHGI1.
  DATA: L_TAB_LINES LIKE SY-TABIX.
  DATA: LT_USER_ADDRESS LIKE SOUSRADRI1 OCCURS 1 WITH HEADER LINE.
  DATA: L_SENT_TO_ALL LIKE SONV-FLAG.
  DATA: L_DOC_TYPE TYPE SOODK-OBJTP.
  DATA : L_Z16SPOOL LIKE Z16SPOOL.
MAIL SENDING
  DATA : LT_COMPRESSED_LIST LIKE  SOLI OCCURS 0.
*Select Po details.
  SELECT SINGLE EBELN EKORG LIFNR WAERS WKURS EKGRP
  FROM EKKO INTO CORRESPONDING FIELDS OF
                                    L_EKKO WHERE EBELN = P_NAST-OBJKY.
*select PO Net amount.
  SELECT EBELN EBELP NETWR FROM EKPO INTO CORRESPONDING FIELDS OF TABLE
                                    LT_EKPO WHERE EBELN = L_EKKO-EBELN.
LOOP AT LT_EKPO.
   L_AMOUNT = L_AMOUNT + LT_EKPO-NETWR.
ENDLOOP.
  CHECK L_EKKO-EKORG = 'MY20'.
check ( L_EKKO-EKGRP = 'M93'  OR  L_EKKO-EKGRP = 'M94'  OR  L_EKKO-EKGRP = 'M97' ).
  CHECK L_EKKO-EKGRP IN LR_EKGRP.
SELECT  RQIDENT RQCRETIME  FROM TSP01 INTO CORRESPONDING FIELDS OF
                      TABLE  LT_TSP01  WHERE RQOWNER = SY-UNAME AND
                                          RQCRETIME LIKE L_DATE.
                                          RQ2NAME = 'PURCHASE ORD'.
  SELECT  RQIDENT RQCRETIME  FROM TSP01 INTO CORRESPONDING FIELDS OF
                       TABLE  LT_TSP01  WHERE RQCRETIME LIKE L_DATE
                                        AND   RQIDENT EQ GS_RESULT-TDSPOOLID.
  IF SY-SUBRC =  0.
    LOOP AT LT_TSP01.
      MOVE : LT_TSP01-RQCRETIME(8) TO LT_TSP01-DATE,
             LT_TSP01-RQCRETIME+8(8) TO LT_TSP01-TIME.
      MODIFY LT_TSP01.
    ENDLOOP.
    SORT LT_TSP01  DESCENDING BY TIME.
    READ TABLE LT_TSP01 INDEX 1.
    L_NUMBER = LT_TSP01-RQIDENT.
    SELECT SINGLE * FROM Z16SPOOL INTO L_Z16SPOOL WHERE EBELN = L_EKKO-EBELN.
    IF SY-SUBRC = 0.
      DELETE FROM Z16SPOOL WHERE EBELN = L_EKKO-EBELN.
    ENDIF.
    CLEAR L_Z16SPOOL.
    SELECT SINGLE * FROM Z16SPOOL INTO L_Z16SPOOL WHERE SPOOL = L_NUMBER.
    IF SY-SUBRC = 0.
      EXIT.
    ENDIF.
Convert to Local Currency------
    SET EXTENDED CHECK OFF. 
    SELECT SINGLE * FROM TCURF INTO L_TCURF WHERE KURST = 'M' AND
                                     FCURR = L_EKKO-WAERS AND
                                     TCURR = 'MYR' AND
                                     GDATU GE SY-DATUM.
    IF L_REAMT NE 0 AND
       L_EKKO-WKURS NE 0 AND
       L_TCURF-FFACT NE 0.
      IF L_EKKO-WAERS = 'JPY'.
        L_AMOUNT = L_AMOUNT * L_NUM1.
      ENDIF.
      L_AMOUNT_TMP = L_EKKO-WKURS / L_TCURF-FFACT.
      L_AMOUNT_TMP = L_AMOUNT_TMP / L_NUM2.
      L_AMOUNT_TMP = L_AMOUNT_TMP * L_AMOUNT.
      L_AMOUNT = L_AMOUNT_TMP.
    ENDIF.
    SET EXTENDED CHECK ON.   "BA3K9A0CWA
      CALL FUNCTION 'RSPO_RETURN_SPOOLJOB'
        EXPORTING
          RQIDENT              = L_NUMBER
          DESIRED_TYPE         = 'OTF'
        IMPORTING
          REAL_TYPE            = L_DOC_TYPE
        TABLES
          BUFFER               = LT_COMPRESSED_LIST
        EXCEPTIONS
          NO_SUCH_JOB          = 1
          JOB_CONTAINS_NO_DATA = 2
          SELECTION_EMPTY      = 3
          NO_PERMISSION        = 4
          CAN_NOT_ACCESS       = 5
          READ_ERROR           = 6
          TYPE_NO_MATCH        = 7
          OTHERS               = 8.
     MOVE LT_COMPRESSED_LIST[] TO LT_OBJBIN[].
      CONCATENATE 'BPC PO :' L_EKKO-EBELN INTO G_TEXT       
      SEPARATED BY SPACE.                                   
      L_DOC_CHNG-OBJ_NAME = 'MESSAGE'.
      L_DOC_CHNG-OBJ_DESCR = G_TEXT.
****AS ATTACHEMNT
      DESCRIBE TABLE LT_OBJBIN LINES L_TAB_LINES.
      CLEAR LT_OBJPACK-TRANSF_BIN.
      LT_OBJPACK-HEAD_START = 1.
      LT_OBJPACK-HEAD_NUM = 0.
      LT_OBJPACK-BODY_START = 1.
      LT_OBJPACK-BODY_NUM = L_TAB_LINES.
      LT_OBJPACK-DOC_TYPE = 'RAW'.
      APPEND LT_OBJPACK.
****AS ATTACHEMNT
      DESCRIBE TABLE LT_OBJBIN LINES L_TAB_LINES.
      LT_OBJPACK-TRANSF_BIN = 'X'.
      LT_OBJPACK-HEAD_START = 1.
      LT_OBJPACK-HEAD_NUM = 0.
      LT_OBJPACK-BODY_START = 1.
      LT_OBJPACK-BODY_NUM = L_TAB_LINES.
      LT_OBJPACK-DOC_TYPE =  L_DOC_TYPE.
      LT_OBJPACK-OBJ_NAME = 'Attachment'(002).
      LT_OBJPACK-OBJ_DESCR = G_TEXT.
      LT_OBJPACK-DOC_SIZE = L_TAB_LINES * 255.
      APPEND LT_OBJPACK.
    * Fill the mail recipient list       *
     SET EXTENDED CHECK OFF.
      DATA: LV_VENDOR_EMAIL LIKE ADR6-SMTP_ADDR,
            LV_SUBRC        LIKE SY-SUBRC,
            LS_USER_ADDRESS LIKE BAPIADDR3,
            LT_RETURN       LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE.
      CLEAR: GV_VENDOR_EMAIL.                
      SELECT SINGLE ADR6~SMTP_ADDR
                    INTO GV_VENDOR_EMAIL     
                    FROM LFA1
                    INNER JOIN ADR6
                    ON LFA1ADRNR = ADR6ADDRNUMBER
                    WHERE LFA1~LIFNR = GS_PO_DOC-XEKKO-LLIEF
                    AND   ADR6~FLGDEFAULT = 'X'.
      CALL FUNCTION 'BAPI_USER_GET_DETAIL'
        EXPORTING
          USERNAME             = GS_PO_DOC-XEKKO-ERNAM
        IMPORTING
          ADDRESS              = LS_USER_ADDRESS
        TABLES
          RETURN               = LT_RETURN.
Vendor Email Address
      LT_RECLIST-RECEIVER = GV_VENDOR_EMAIL.    
      LT_RECLIST-REC_TYPE = 'U'.  "Internet Id
      LT_RECLIST-NOTIF_READ = 'X'.
      LT_RECLIST-NOTIF_DEL  = 'X'.
      LT_RECLIST-NOTIF_NDEL = 'X'.
      APPEND LT_RECLIST.
       CLEAR: LT_RECLIST.
       IF GV_VENDOR_EMAIL IS INITIAL.
Send Error Message
         LV_SUBRC = 4.
         PERFORM NOTIFY_USER_EMAIL USING LV_SUBRC
                                         LS_USER_ADDRESS-E_MAIL.
       ENDIF.
CC Common Email Address
      LT_RECLIST-RECEIVER = 'mailbox'. "
      LT_RECLIST-REC_TYPE = 'U'.  "Internet Id
      LT_RECLIST-BLIND_COPY = 'X'.  "Blind Copy /
      LT_RECLIST-NOTIF_READ = 'X'.
      LT_RECLIST-NOTIF_DEL  = 'X'.
      LT_RECLIST-NOTIF_NDEL = 'X'.
      APPEND LT_RECLIST.
      CLEAR: LT_RECLIST. 
      LT_OBJTXT = 'Dear Supplier,'.
      APPEND LT_OBJTXT.
      APPEND INITIAL LINE TO LT_OBJTXT.
      LT_OBJTXT = 'Enclosed please find attached our Purchase Order.'.
      APPEND LT_OBJTXT.
      APPEND INITIAL LINE TO LT_OBJTXT.
      CLEAR: LT_OBJTXT.
      CONCATENATE 'To accept this Purchase Order without further comment,'
                  'please reply, '
                  INTO LT_OBJTXT SEPARATED BY SPACE.
      APPEND LT_OBJTXT.
      LT_OBJTXT = '[ Do not reply to sender ]'.
      APPEND LT_OBJTXT.
      APPEND INITIAL LINE TO LT_OBJTXT.
      CLEAR: LT_OBJTXT.
      CONCATENATE 'However, to acknowledge at '
                  LS_USER_ADDRESS-E_MAIL
                  INTO LT_OBJTXT SEPARATED BY SPACE.
      APPEND LT_OBJTXT.
      APPEND INITIAL LINE TO LT_OBJTXT.
      APPEND INITIAL LINE TO LT_OBJTXT.
      LT_OBJTXT = 'Best Regards,'.
      APPEND LT_OBJTXT.
      APPEND INITIAL LINE TO LT_OBJTXT.
      LT_OBJTXT = 'Procurement Department,'.
      APPEND LT_OBJTXT.
      LT_OBJTXT = 'BASF PETRONAS Chemicals'.
      APPEND LT_OBJTXT.
Make E-mail Sender of PO the PO Creators Name
      SY-UNAME = GS_PO_DOC-XEKKO-ERNAM .
      SET EXTENDED CHECK ON .
    * Send the document by calling the SAPoffice API1 module
    * for sending documents with attachments
      CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
        EXPORTING
          DOCUMENT_DATA              = L_DOC_CHNG
          PUT_IN_OUTBOX              = 'X'
        IMPORTING
          SENT_TO_ALL                = L_SENT_TO_ALL
        TABLES
          PACKING_LIST               = LT_OBJPACK
          OBJECT_HEADER              = LT_OBJHEAD
          CONTENTS_BIN               = LT_OBJBIN
          CONTENTS_TXT               = LT_OBJTXT
          RECEIVERS                  = LT_RECLIST
        EXCEPTIONS
          TOO_MANY_RECEIVERS         = 1
          DOCUMENT_NOT_SENT          = 2
          OPERATION_NO_AUTHORIZATION = 4
          OTHERS                     = 99.
      LV_SUBRC = SY-SUBRC.    
      IF SY-SUBRC NE 0.
        L_Z16SPOOL-STATUS = ''.
      ELSE.
        L_Z16SPOOL-STATUS = 'X'.
      ENDIF.
      PERFORM NOTIFY_USER_EMAIL USING LV_SUBRC
                                      LS_USER_ADDRESS-E_MAIL.
      L_Z16SPOOL-SPOOL = L_NUMBER.
      L_Z16SPOOL-EBELN = L_EKKO-EBELN.
      L_Z16SPOOL-LIFNR = L_EKKO-LIFNR.
      L_Z16SPOOL-TELFX = L_FAXNUM.
      L_Z16SPOOL-FDATE = SY-DATUM.
      L_Z16SPOOL-FTIME = SY-UZEIT.
      INSERT Z16SPOOL FROM L_Z16SPOOL.
      CLEAR L_Z16SPOOL.
  ENDIF.
  FORM NOTIFY_USER_EMAIL USING IP_SUBRC
                             IP_EMAIL.
  DATA: LD_ERROR    TYPE SY-SUBRC,
        LD_RECIEVER TYPE SY-SUBRC,
        LD_MTITLE   LIKE SODOCCHGI1-OBJ_DESCR,
        LD_EMAIL    LIKE  SOMLRECI1-RECEIVER,
        LD_FORMAT   TYPE  SO_OBJ_TP ,
        LD_ATTDESCRIPTION TYPE  SO_OBJ_NAM ,
        LD_ATTFILENAME    TYPE  SO_OBJ_DES ,
        LD_SENDER_ADDRESS LIKE  SOEXTRECI1-RECEIVER,
        LD_SENDER_ADDRESS_TYPE LIKE  SOEXTRECI1-ADR_TYP,
        LD_RECEIVER LIKE  SY-SUBRC.
  DATA: LT_PACKING_LIST LIKE SOPCKLSTI1 OCCURS 0 WITH HEADER LINE,
        LT_CONTENTS LIKE SOLISTI1 OCCURS 0 WITH HEADER LINE,
        LT_RECEIVERS LIKE SOMLRECI1 OCCURS 0 WITH HEADER LINE,
        LT_ATTACHMENT LIKE SOLISTI1 OCCURS 0 WITH HEADER LINE,
        LT_OBJECT_HEADER LIKE SOLISTI1 OCCURS 0 WITH HEADER LINE,
        LV_CNT TYPE I,
        LV_SENT_ALL(1) TYPE C,
        LW_DOC_DATA LIKE SODOCCHGI1.
  DATA: LV_STRING TYPE STEXT.
  DATA: LT_MESSAGE LIKE SOLISTI1 OCCURS 0 WITH HEADER LINE.
  DATA: LT_ATTACH LIKE  LT_ATTACHMENT OCCURS 0 WITH HEADER LINE.
  SET EXTENDED CHECK OFF.
Email Subject and Body Message
  IF IP_SUBRC <> 0.
    CONCATENATE 'FP Mailbox : PO Num ' GS_PO_DOC-XEKKO-EBELN 'Delivery Failure'
    INTO LD_MTITLE SEPARATED BY SPACE.
    LT_MESSAGE = 'PO delivery failure!'.
    APPEND LT_MESSAGE.
    IF GV_VENDOR_EMAIL IS INITIAL.
      LT_MESSAGE = 'No Vendor Email Address was Found!'.
      APPEND LT_MESSAGE.
    ENDIF.
  ELSE.
    CONCATENATE 'FP Mailbox : ' GS_PO_DOC-XEKKO-EBELN 'was successfully delivered'
    INTO LD_MTITLE SEPARATED BY SPACE.
    LT_MESSAGE = 'PO was successfully delivered'.
    APPEND LT_MESSAGE.
    LV_STRING = GS_RESULT-TDSPOOLID.
    CONCATENATE 'Spool Number: ' LV_STRING INTO LT_MESSAGE SEPARATED BY SPACE.
    CONDENSE LT_MESSAGE.
    APPEND LT_MESSAGE.
  ENDIF.
Populate the subject/generic message attributes
  LW_DOC_DATA-DOC_SIZE   = 1.
  LW_DOC_DATA-OBJ_LANGU  = SY-LANGU.
  LW_DOC_DATA-OBJ_NAME   = 'SAPRPT'.
  LW_DOC_DATA-SENSITIVTY = 'F'.
  LW_DOC_DATA-OBJ_DESCR  = LD_MTITLE .
Body Message Statistic
  DESCRIBE TABLE LT_MESSAGE LINES LT_PACKING_LIST-BODY_NUM.
  LT_PACKING_LIST-TRANSF_BIN = SPACE.
  LT_PACKING_LIST-HEAD_START = 1.
  LT_PACKING_LIST-HEAD_NUM   = 0.
  LT_PACKING_LIST-BODY_START = 1.
  LT_PACKING_LIST-DOC_TYPE   = 'RAW'.
  APPEND LT_PACKING_LIST.
Add the recipients email address
  CLEAR LT_RECEIVERS.
  REFRESH LT_RECEIVERS.
  LT_RECEIVERS-RECEIVER   = IP_EMAIL.
  LT_RECEIVERS-REC_TYPE   = 'U'.
  LT_RECEIVERS-COM_TYPE   = 'INT'.
  LT_RECEIVERS-NOTIF_READ = 'X'.
  LT_RECEIVERS-NOTIF_DEL  = 'X'.
  LT_RECEIVERS-NOTIF_NDEL = 'X'.
  APPEND LT_RECEIVERS.
  SET EXTENDED CHECK ON.
Let's Make sender the PO Creator
  SY-UNAME = GS_PO_DOC-XEKKO-ERNAM.    
  IF LINES( LT_RECEIVERS ) > 0.
    CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
      EXPORTING
        DOCUMENT_DATA                    = LW_DOC_DATA
        PUT_IN_OUTBOX                    = 'X'
      TABLES
        PACKING_LIST                     = LT_PACKING_LIST
        CONTENTS_TXT                     = LT_MESSAGE
        RECEIVERS                        = LT_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.
  ENDIF.
ENDFORM.   "FORM NOTIFY_USER_EMAIL
Thanks & Regards,
Dileep .C