OBJ als Attachment per Mail Thema ist als GELÖST markiert

Alles rund um die Sprache ABAP®: Funktionsbausteine, Listen, ALV
3 Beiträge • Seite 1 von 1
3 Beiträge Seite 1 von 1

OBJ als Attachment per Mail

Beitrag von dadarki (ForumUser / 28 / 6 / 0 ) »
Hallo,

wir senden aus SAP eine Mail mit dem Materialstamm als Anhang als Mail an intere Mitarbeiter.
In der SOST kann ich diesen Anhang auch öffnen und er springt in den Materialstamm.

Wenn ich das an den Mail-Client schicken lassen und es dann öffnen will funktioniert es leider nichrt. Es kommt eine .obj Datei raus.

Wie bekomme ich die Datei den richtig auf?

Hoffe mir kann jemand helfen.

Code: Alles auswählen.

* Send Mail
    DATA: docdata    LIKE sodocchgi1,
          objpack    LIKE sopcklsti1 OCCURS 10 WITH HEADER LINE,
          objhead    LIKE solisti1   OCCURS 10 WITH HEADER LINE,
          objtxt     LIKE solisti1   OCCURS 10 WITH HEADER LINE,
          objbin     LIKE solisti1   OCCURS 10 WITH HEADER LINE,
          objhex     LIKE solix      OCCURS 10 WITH HEADER LINE,
          reclist    LIKE somlreci1  OCCURS  1 WITH HEADER LINE.


    DATA: tab_lines  TYPE i,
          doc_size   TYPE i,
          objdes(100).

* For the BOR attachment
    CONSTANTS:
      c_object_describe LIKE swotobjid-describe VALUE '*<OBJECT>*'.
    DATA:
      l_object      TYPE swotobjid,
      l_objheader   LIKE soxobj.


* Create Message Body
*   Main Text
    objtxt = 'Test Document.'.
    APPEND objtxt.
    objtxt = 'You will find a BOR object attachment in message.'.
    APPEND objtxt.
    objtxt = 'Have a nice day.'.
    APPEND objtxt.

*   Title and Description
    DESCRIBE TABLE objtxt LINES tab_lines.
    READ     TABLE objtxt INDEX tab_lines.
    docdata-doc_size = ( tab_lines - 1 ) * 255 + strlen( objtxt ).
    docdata-obj_name  = 'BOR Object'.
    CONCATENATE 'BUS1001' '-' lv_matnr INTO objdes.
    CONCATENATE 'BOR Object' objdes 'as Attachment'
           INTO docdata-obj_descr SEPARATED BY space.
    CONDENSE docdata-obj_descr.

*   Write Packing List (Main)
    CLEAR objpack-transf_bin.
    objpack-head_start = 0.
    objpack-head_num   = 0.
    objpack-body_start = 1.
    objpack-body_num   = tab_lines.
    objpack-doc_type   = 'RAW'.
    APPEND objpack.

* Create OBJ attachment
    l_object-describe = c_object_describe.
    l_object-objtype  = 'BUS1001'.
    l_object-objkey   = lv_matnr.
    CALL FUNCTION 'OWN_LOGICAL_SYSTEM_GET'
      IMPORTING
        own_logical_system             = l_object-logsys
      EXCEPTIONS
        own_logical_system_not_defined = 1
        OTHERS                         = 2.
    IF sy-subrc <> 0.
      MESSAGE e398(00) WITH 'No Log Sys Found'.
    ENDIF.

    MOVE-CORRESPONDING l_object TO l_objheader.
    APPEND l_objheader TO objhead.

*   Write Packing List (Attachment)
    CLEAR objpack.
    objpack-head_start = 1.
    objpack-head_num   = 1.
    objpack-body_start = 0.
    objpack-body_num   = 0.
    objpack-doc_type   = 'OBJ'.
    objpack-obj_name   = 'BUS1001'.
    objpack-obj_descr  = objdes.
    APPEND objpack.

    LOOP AT lt_mail INTO ls_mail.
* Create receiver list
      reclist-receiver = ls_mail-mail.
      reclist-rec_type = 'U'.
      APPEND reclist.
    ENDLOOP.


* Send Message
    CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
      EXPORTING
        document_data              = docdata
        put_in_outbox              = 'X'
        commit_work                = 'X'
      TABLES
        packing_list               = objpack
        object_header              = objhead
        contents_bin               = objbin
        contents_txt               = objtxt
        receivers                  = reclist
      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 'SO' TYPE 'S' NUMBER '023'
              WITH docdata-obj_name.
    ENDIF.

  ENDIF.
Danke & Gruß
Markus Siefert


Re: OBJ als Attachment per Mail

Beitrag von Alexander D. (Expert / 680 / 29 / 84 ) »
hallo Markus,

ich glaube nicht, dass es so einfach funktionieren kann wie du dir das vorstellst. Der angehängte Materialstamm kann in der SOST ohne Probleme geöffnet werden da es ein Link zu einem BOR-Objekt ist und du dich innerhalb von SAP befindest. Ist das Email in deinem Mail-Client angekommen, befindet es sich nicht mehr innerhalb von SAP und der Client weiss einfach nichts mit der angehängten Datei anzufangen.

Schau doch bitte mal, ob folgende Vorgehensweise für dich in Frage kommen würde:
http://www.apentia-forum.de/viewtopic.php?f=1&t=22856
bzw.
http://www.abapforum.com/forum/viewtopi ... 41&p=22477

edit: dieser Link sieht auch sehr viel versprechend aus: http://wiki.scn.sap.com/wiki/display/Sn ... it+by+mail

Folgende Benutzer bedankten sich beim Autor Alexander D. für den Beitrag:
dadarki

schöne Grüße
Alexander

ECC 6.0 EHP 7

Re: OBJ als Attachment per Mail

Beitrag von dadarki (ForumUser / 28 / 6 / 0 ) »
Hallo Alexander,

der letzte Link hat geholfen.

Vielen Vielen Dank!

Seite 1 von 1

Über diesen Beitrag


ABAP & SAP eBook Flatrate von Espresso Tutorials Sponsorlink
Unterstütze die Community und teile den Beitrag für mehr Leser und Austausch

Aktuelle Forenbeiträge

CSV Datei mit open dataset
vor 4 Stunden von ST22 4 / 46
Batch-Job E-Mail Versand
vor 5 Stunden von Tron 24 / 537
IDOC Verbindung SM59
vor 5 Stunden von L0w-RiDer 6 / 66

Vergleichbare Themen

E-mail mit Attachment
von Stefanie » 17.05.2005 10:19
bcs mail + txt attachment -> satzlänge 255
von marc schmidt » 25.05.2005 10:54
Mail incl. Attachment
von Gast » 11.10.2005 16:38
Formatierte Excel als E-Mail Attachment
von PeterPaletti » 01.11.2016 15:04
Objektdienste: Anlagen als Attachment zu Mail versenden
von urk » 23.02.2005 13:32