Open Outlook email editor from SAP

Question

Hi,
I need to open the outlook email editor from ABAP program so that the user can manually input the To, CC, subject, body and attachment.
Can anybody help ?
Thanks and regards
Arijit Ghose

Answer 1

check out this sample code (using VB script) , you can do similar stuff using activex control as well.
FUNCTION Z_OUTLOOK_MAIL_CREATE.
*"*"Local interface:
*"       IMPORTING
*"             VALUE(I_SUBJECT) TYPE  C OPTIONAL
*"       TABLES
*"              EMAIL_BODY STRUCTURE  SOLI OPTIONAL
*"              ADDRESS_LIST STRUCTURE  SOLI OPTIONAL
*"              ATTACHMENTS STRUCTURE  SOLI OPTIONAL
*"       EXCEPTIONS
*"              INVALID_PATH
*"              DOWNLOAD_FAILED
*"              EXECUTION_FAILED
  DATA:
    V_TRANSLATE(2),
    IT_VBS          LIKE SOLI
       OCCURS 50 WITH HEADER LINE,
    V_LAST,
    V_VBS_FILENAME  LIKE RLGRAP-FILENAME,
    COMMANDLINE(1000).
*- Prepare a code to translate a quote into a hex-tab
*- so it can then be translated back to 2 double quotes.
  CONCATENATE '"' CON_HEX-TAB INTO V_TRANSLATE.
  APPEND:
    'Dim myolapp                                        ' TO IT_VBS,
    'Dim olNamespace                                    ' TO IT_VBS,
    'Dim myItem                                         ' TO IT_VBS,
    'Dim myRecipient                                    ' TO IT_VBS,
    'Dim myAttachments                                  ' TO IT_VBS,
    '                                                   ' TO IT_VBS,
    'Set myolapp = CreateObject("Outlook.Application")  ' TO IT_VBS,
    'Set olNamespace = myolapp.GetNamespace("MAPI")     ' TO IT_VBS,
    'Set myItem = myolapp.CreateItem(olMailItem)        ' TO IT_VBS,
    '                                                   ' TO IT_VBS.
*- Translate the body into a single line.
  LOOP AT ADDRESS_LIST.
    CONCATENATE
      'Set myRecipient = myItem.Recipients.Add("'
      ADDRESS_LIST
      INTO IT_VBS.
    APPEND IT_VBS.
  ENDLOOP.
  APPEND:
    'myItem.VotingOptions = "Approve;Reject"' TO IT_VBS.
*- Build the subject line.
  CONCATENATE
    'myItem.Subject = "'
    I_SUBJECT
    INTO IT_VBS.
  APPEND IT_VBS.
*- Prepare attachments
  APPEND:
    'Set myAttachments = myItem.Attachments' TO IT_VBS.
*- Check if the attachment exists
  LOOP AT ATTACHMENTS.
    CALL FUNCTION 'WS_QUERY'
         EXPORTING
              FILENAME       = ATTACHMENTS
              QUERY          = 'FE'
         EXCEPTIONS
              INV_QUERY      = 1
              NO_BATCH       = 2
              FRONTEND_ERROR = 3
              OTHERS         = 4.
    IF SY-SUBRC EQ 0.
      CONCATENATE 'myAttachments.Add("'
                  ATTACHMENTS
        INTO IT_VBS.
      APPEND IT_VBS.
* '    olByValue, 1, "4th Quarter 1996 Results Chart"'
*      append '    olByReference, 1' to it_vbs.
    ELSE.
      MESSAGE I017(ZZ) WITH
         'Could not attach' ATTACHMENTS.
    ENDIF.
  ENDLOOP.
*- Prepare the email body.
  CLEAR: V_LAST, IT_VBS.
  APPEND IT_VBS.
  LOOP AT EMAIL_BODY.
    AT FIRST.
      APPEND 'myitem.body = _' TO IT_VBS.
    ENDAT.
    AT LAST.
      V_LAST = 'X'.
    ENDAT.
    TRANSLATE EMAIL_BODY USING V_TRANSLATE.
    WHILE SY-SUBRC EQ 0.
      REPLACE CON_HEX-TAB WITH '""' INTO EMAIL_BODY.
    ENDWHILE.
    IF V_LAST = 'X'.
      CONCATENATE '"' EMAIL_BODY '" &vbCrLf '
        INTO IT_VBS.
    ELSE.
      CONCATENATE '"' EMAIL_BODY '" &vbCrLf  &_'
        INTO IT_VBS.
    ENDIF.
    APPEND IT_VBS.
  ENDLOOP.
  APPEND 'myItem.Display' TO IT_VBS.
*- Prepare the vbscript filename for download and execution
  CLEAR V_VBS_FILENAME.
  CALL FUNCTION 'WS_QUERY'
       EXPORTING
            ENVIRONMENT    = 'TEMP'
            QUERY          = 'EN'
       IMPORTING
            RETURN         = V_VBS_FILENAME
       EXCEPTIONS
            INV_QUERY      = 1
            NO_BATCH       = 2
            FRONTEND_ERROR = 3
            OTHERS         = 4.
  IF SY-SUBRC <> 0.
    RAISE INVALID_PATHNAME.
  ENDIF.
  CONCATENATE V_VBS_FILENAME 'mail.vbs'
    INTO V_VBS_FILENAME.
  COMMANDLINE = V_VBS_FILENAME.
*- Download the file
  CALL FUNCTION 'WS_DOWNLOAD'
       EXPORTING
            FILENAME            = V_VBS_FILENAME
            FILETYPE            = 'DAT'
            MODE                = 'S'
       TABLES
            DATA_TAB            = IT_VBS
       EXCEPTIONS
            FILE_OPEN_ERROR     = 1
            FILE_WRITE_ERROR    = 2
            INVALID_FILESIZE    = 3
            INVALID_TABLE_WIDTH = 4
            INVALID_TYPE        = 5
            NO_BATCH            = 6
            UNKNOWN_ERROR       = 7
            OTHERS              = 8.
  IF SY-SUBRC <> 0.
    RAISE DOWNLOAD_FAILED.
  ENDIF.
  CALL FUNCTION 'WS_EXECUTE'
       EXPORTING
            COMMANDLINE    = COMMANDLINE
            PROGRAM        = 'WSCRIPT.EXE'
       EXCEPTIONS
            FRONTEND_ERROR = 1
            NO_BATCH       = 2
            PROG_NOT_FOUND = 3
            ILLEGAL_OPTION = 4
            OTHERS         = 5.
  IF SY-SUBRC <> 0.
    RAISE EXECUTION_FAILED.
  ENDIF.
ENDFUNCTION.
Regards
Raja