OBJ als Attachment per Mail

Die Frage ist als "gelöst" markiert. Den entsprechend Beitrag findest du hier.

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

gesponsert
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten


Re: OBJ als Attachment per Mail

Beitrag von Alexander D. (Expert / 682 / 30 / 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

Vergleichbare Themen

3
Antw.
2049
Views
E-mail mit Attachment
von Stefanie » 17.05.2005 10:19 • Verfasst in ABAP® Core
3
Antw.
2140
Views
bcs mail + txt attachment -> satzlänge 255
von marc schmidt » 25.05.2005 10:54 • Verfasst in ABAP® Core
2
Antw.
1562
Views
Mail incl. Attachment
von Gast » 11.10.2005 16:38 • Verfasst in ABAP® Core
7
Antw.
6462
Views
Formatierte Excel als E-Mail Attachment
von PeterPaletti » 01.11.2016 15:04 • Verfasst in ABAP® für Anfänger
0
Antw.
1710
Views
Objektdienste: Anlagen als Attachment zu Mail versenden
von urk » 23.02.2005 13:32 • Verfasst in ABAP Objects®

Über diesen Beitrag


Die Frage ist als "gelöst" markiert. Den entsprechend Beitrag findest du hier.

Unterstütze die Community und teile den Beitrag für mehr Leser und Austausch

Aktuelle Forenbeiträge

Zwischensumme Adobe Forms
vor 3 Tagen von Lucyalison 1 / 64
Interne Tabelle
vor 5 Tagen von black_adept 2 / 133
MaLo-Checker in ABAP
vor einer Woche von A6272 6 / 255

Newsletter Anmeldung

Keine Beiträge verpassen! Wöchentlich versenden wir lesenwerte Beiträge aus unserer Community.
Die letzte Ausgabe findest du hier.
Details zum Versandverfahren und zu Ihren Widerrufsmöglichkeiten findest du in unserer Datenschutzerklärung.

Aktuelle Forenbeiträge

Zwischensumme Adobe Forms
vor 3 Tagen von Lucyalison 1 / 64
Interne Tabelle
vor 5 Tagen von black_adept 2 / 133
MaLo-Checker in ABAP
vor einer Woche von A6272 6 / 255

Unbeantwortete Forenbeiträge

Zwischensumme Adobe Forms
vor 3 Tagen von Lucyalison 1 / 64
Group Items auf einer Filterbar
vor einer Woche von Bright4.5 1 / 107
tRFC Transaktionen SM58
vor 4 Wochen von A6272 1 / 140