How to define output types email or external send in the report program

Question

Hi all,
now we are using a zprogram for output type printer and standard program RVADOR01 for output type external send. Now i want to modify my zprogram itself to support external send email as well as printer also. What modifications should I have to make in my zprogram. My form is a script.
Thank you,
Mallik

Answer 1

hi all,
i made the following changes in my code and it worked well.
thank you for all who tried to share my pain.
thanks one and all.
hope this code will help anybode.
thanks & regards
FORM OPEN_FORM_EMAIL.
TABLES: TNAPR,                         "Programs & Forms
        ITCPO,                         "Communicationarea for Spool
        ARC_PARAMS,                    "Archive parameters
        TOA_DARA,                      "Archive parameters
        ADDR_KEY.                      "Adressnumber for ADDRESS
TYPE-POOLS SZADR.
DATA: LVF_DEVICE LIKE ITCPP-TDDEVICE,
      LVF_DIALOG(1)     TYPE   C   VALUE ' ',
      LVS_RECIPIENT     LIKE   SWOTOBJID,
      LVS_SENDER        LIKE   SWOTOBJID,
      LVS_SNAST         TYPE   SNAST,
      LVF_PROGRAM       LIKE   SY-REPID,
      LVS_COMM_TYPE     TYPE   AD_COMM,
      LVS_COMM_VALUES   TYPE   SZADR_COMM_VALUES,
      LVS_TITLE LIKE SNAST-TDCOVTITLE.
reset return code
  RETCODE = 0.
if there is a communication strategy used ...
IF NOT NAST-TCODE IS INITIAL AND NAST-NACHA EQ '5'.
  ... use stratagy to get communication type
    CALL FUNCTION 'ADDR_GET_NEXT_COMM_TYPE'
         EXPORTING
              STRATEGY           = NAST-TCODE
            ADDRESS_TYPE       =
             ADDRESS_NUMBER     = KNA1-ADRNR
            PERSON_NUMBER      = VBDKA-ADRNP
              PERSON_NUMBER      = ADDR_KEY-PERSNUMBER
         IMPORTING
              COMM_TYPE          = LVS_COMM_TYPE
              COMM_VALUES        = LVS_COMM_VALUES
       TABLES
            STRATEGY_TABLE     =
         EXCEPTIONS
              ADDRESS_NOT_EXIST  = 1
              PERSON_NOT_EXIST   = 2
              NO_COMM_TYPE_FOUND = 3
              INTERNAL_ERROR     = 4
              PARAMETER_ERROR    = 5
              OTHERS             = 6.
    IF SY-SUBRC <> 0.
      RETCODE = SY-SUBRC.
      SYST-MSGTY = 'E'.
      PERFORM PROTOCOL_UPDATE.
    ENDIF.
ENDIF.
   LVS_COMM_TYPE = 'INT'.
  CLEAR LVS_COMM_VALUES-ADSMTP-SMTP_ADDR.
  CLEAR LVS_SNAST.
        LVS_COMM_VALUES-ADSMTP-SMTP_ADDR = V_CUST_EMAIL.
convert communication data
   MOVE-CORRESPONDING NAST TO LVS_SNAST.
        LVS_SNAST-ANZAL = 1.
        LVS_TITLE = 'Mail Header Title'.
  MOVE LVS_TITLE TO LVS_SNAST-TDCOVTITLE.
   MOVE SY-REPID TO LVF_PROGRAM.
  CALL FUNCTION 'CONVERT_COMM_TYPE_DATA'
       EXPORTING
            PI_COMM_TYPE              = 'INT'
            PI_COMM_VALUES            = LVS_COMM_VALUES
            PI_SCREEN                 = XSCREEN
          PI_NEWID                  =
            PI_COUNTRY                = ADRC-COUNTRY
            PI_REPID                  = SY-REPID
            PI_SNAST                  = LVS_SNAST
            PI_MAIL_SENDER            = SY-UNAME
       IMPORTING
            PE_ITCPO                  = ITCPO_LS
            PE_DEVICE                 = LVF_DEVICE
            PE_MAIL_RECIPIENT         = LVS_RECIPIENT
            PE_MAIL_SENDER            = LVS_SENDER
       EXCEPTIONS
            COMM_TYPE_NOT_SUPPORTED   = 1
            RECIPIENT_CREATION_FAILED = 2
            SENDER_CREATION_FAILED    = 3
            OTHERS                    = 4.
  IF SY-SUBRC <> 0.
    RETCODE = SY-SUBRC.
    SYST-MSGTY = 'E'.
    PERFORM PROTOCOL_UPDATE.
  ENDIF.
  CHECK RETCODE EQ 0.
fill structure itcpo
  ITCPO = ITCPO_LS.
open form
  CALL FUNCTION 'OPEN_FORM'
       EXPORTING
          APPLICATION        = 'TX'
           ARCHIVE_INDEX      = TOA_DARA
           ARCHIVE_PARAMS     = ARC_PARAMS
            DEVICE             = 'MAIL'
            DIALOG             = 'X'
            FORM               = 'ZSDLS003'
            LANGUAGE           = SY-LANGU
            OPTIONS            = ITCPO_LS
            MAIL_SENDER        = LVS_SENDER
            MAIL_RECIPIENT     = LVS_RECIPIENT
          MAIL_APPL_OBJECT   = ' '
          RAW_DATA_INTERFACE = '*'
     IMPORTING
          LANGUAGE           =
          NEW_ARCHIVE_PARAMS =
          RESULT             =
       EXCEPTIONS
            CANCELED           = 1
            DEVICE             = 2
            FORM               = 3
            OPTIONS            = 4
            UNCLOSED           = 5
            MAIL_OPTIONS       = 6
            ARCHIVE_ERROR      = 7
            OTHERS             = 8.
  IF SY-SUBRC NE 0.
    CASE SY-SUBRC.
      WHEN 7.
        RETCODE = SY-SUBRC.
        SYST-MSGID = 'VN'.
        SYST-MSGNO = '096'.
        SYST-MSGTY = 'E'.
        SYST-MSGV1 = NAST-KSCHL.
        SYST-MSGV2 = NAST-KAPPL.
        PERFORM PROTOCOL_UPDATE.
      WHEN OTHERS.
        RETCODE = SY-SUBRC.
        PERFORM PROTOCOL_UPDATE.
    ENDCASE.
  ENDIF.
  SET COUNTRY ADRC-COUNTRY.
ENDFORM.