topic Re: Sending a mail in Application Development and Automation Discussions

Sending a mail

Former Member — Wed, 29 Apr 2009 11:16:21 GMT

Hi experts,

I need some help plz:

I'm using the module function: SO_NEW_DOCUMENT_ATT_SEND_API1 to send a sap mail.

I'd like: when the addressees connect to SAP, they receive a popup to prevent them that they have new mail.

This is my code:


LOOP AT wt_user INTO ws_user.
    MOVE ws_user-users TO reclist-receiver.
    reclist-rec_type = 'B'.
    reclist-express = ws_user-express.
    APPEND reclist.
  ENDLOOP.

* Sending the document
  CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
    EXPORTING
      document_data              = doc_chng
      put_in_outbox              = '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
      operation_no_authorization = 4
      OTHERS                     = 99.

Do you have any idea?

Regards,

Mehdi

Re: Sending a mail

Former Member — Wed, 29 Apr 2009 11:56:59 GMT

In the tables parameter, receivers (reclist in your case) you have to pass the value 'X' to the parameter 'EXPRESS'. Then it should work.

Re: Sending a mail

Former Member — Wed, 29 Apr 2009 12:00:44 GMT

Hi,

After bringing your final alv data in the final internal table,

go through this link , i also had an same requirement to send data after converting to excel file and

send it as an attachment to mail id outside Sap,

https://www.sdn.sap.com/irj/scn/wiki?path=/display/abap/to%252bsend%252b2%252bint%252btables%252bdata%252bas%252btwo%252battachments%252bto%252bmail%252bid%252boutside%252bsap%252bsystem

I did this object and it was working fine using that function module.

Hope it helps

Regrds

Mansi

Re: Sending a mail

Former Member — Wed, 29 Apr 2009 12:08:02 GMT

hi,

in RECEIVERS structure pass EXPRESS as 'X'.

hope it will work othere from the reciver side the settings has to do ...

whenever mail come to inbox it has to give popup it will work.

~linganna

Re: Sending a mail

Former Member — Wed, 29 Apr 2009 13:08:43 GMT

Hi,

It doesn't work where in RECEIVERS structure i put 'X' in EXPRESS.

Any idea?

Regards,

Mehdi

Re: Sending a mail

Former Member — Wed, 29 Apr 2009 13:11:15 GMT

Hi,

to send mails use this:

FORM docu_send_email USING pv_otfdata TYPE tsfotf

pv_emailid TYPE any

pv_formname TYPE any.

DATA: lv_filesize TYPE i,

lv_buffer TYPE string,

lv_attachment TYPE i,

lv_testo TYPE i.

DATA: li_pdfdata TYPE STANDARD TABLE OF tline,

li_mess_att TYPE STANDARD TABLE OF solisti1,

li_mtab_pdf TYPE STANDARD TABLE OF tline,

li_objpack TYPE STANDARD TABLE OF sopcklsti1,

li_objtxt TYPE STANDARD TABLE OF solisti1,

li_objbin TYPE STANDARD TABLE OF solisti1,

li_reclist TYPE STANDARD TABLE OF somlreci1,

li_objhead TYPE soli_tab.

DATA: lwa_pdfdata TYPE tline,

lwa_objpack TYPE sopcklsti1,

lwa_mess_att TYPE solisti1,

lwa_objtxt TYPE solisti1,

lwa_objbin TYPE solisti1,

lwa_reclist TYPE somlreci1,

lwa_doc_chng TYPE sodocchgi1.

CONSTANTS: lc_u TYPE char1 VALUE 'U',

lc_0 TYPE char1 VALUE '0',

lc_1 TYPE char1 VALUE '1',

lc_pdf TYPE char3 VALUE 'PDF',

lc_raw TYPE char3 VALUE 'RAW',

lc_ordform TYPE char15 VALUE 'ZORDCONFIRM_01',

lc_attachment TYPE char10 VALUE 'ATTACHMENT'.

CALL FUNCTION 'CONVERT_OTF'

EXPORTING

format = lc_pdf

max_linewidth = 132

IMPORTING

bin_filesize = lv_filesize

TABLES

otf = pv_otfdata

lines = li_pdfdata

EXCEPTIONS

err_max_linewidth = 1

err_format = 2

err_conv_not_possible = 3

err_bad_otf = 4

OTHERS = 5.

IF sy-subrc 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

LOOP AT li_pdfdata INTO lwa_pdfdata.

TRANSLATE lwa_pdfdata USING ' ~'.

CONCATENATE lv_buffer lwa_pdfdata INTO lv_buffer.

CLEAR lwa_pdfdata.

ENDLOOP.

TRANSLATE lv_buffer USING '~ '.

DO.

lwa_mess_att = lv_buffer.

APPEND lwa_mess_att TO li_mess_att.

CLEAR lwa_mess_att.

SHIFT lv_buffer LEFT BY 255 PLACES.

IF lv_buffer IS INITIAL.

EXIT.

ENDIF.

ENDDO.

Object with PDF.

REFRESH li_objbin.

li_objbin] = li_mess_att[.

DESCRIBE TABLE li_objbin LINES lv_attachment.

Object with main text of the mail.

lwa_objtxt = space.

APPEND lwa_objtxt TO li_objtxt.

CLEAR lwa_objtxt.

DESCRIBE TABLE li_objtxt LINES lv_testo.

Create the document which is to be sent

lwa_doc_chng-obj_name = text-008.

lwa_doc_chng-obj_descr = text-008.

lwa_doc_chng-sensitivty = lc_0.

lwa_doc_chng-obj_prio = lc_1.

lwa_doc_chng-doc_size = lv_testo * 225.

Pack to main body.

CLEAR lwa_objpack-transf_bin.

header

lwa_objpack-head_start = 1.

The document needs no header (head_num = 0)

lwa_objpack-head_num = 0.

body

lwa_objpack-body_start = 1.

lwa_objpack-body_num = lv_testo.

lwa_objpack-doc_type = lc_raw.

APPEND lwa_objpack TO li_objpack.

CLEAR lwa_objpack.

Create the attachment.
Fill the fields of the packing_list for the attachment:

lwa_objpack-transf_bin = gc_x .

header

lwa_objpack-head_start = 1.

lwa_objpack-head_num = 1.

body

lwa_objpack-body_start = 1.

lwa_objpack-body_num = lv_attachment.

lwa_objpack-doc_type = lc_pdf.

lwa_objpack-obj_name = lc_attachment.

lwa_objpack-obj_descr = text-008.

lwa_objpack-doc_size = lv_attachment * 255.

APPEND lwa_objpack TO li_objpack.

CLEAR lwa_objpack.

lwa_reclist-receiver = pv_emailid.

lwa_reclist-rec_type = lc_u.

lwa_reclist-notif_del = gc_x.

lwa_reclist-notif_ndel = gc_x.

APPEND lwa_reclist TO li_reclist.

IF li_reclist IS NOT INITIAL.

CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'

EXPORTING

document_data = lwa_doc_chng

put_in_outbox = gc_x

TABLES

packing_list = li_objpack

object_header = li_objhead

contents_bin = li_objbin

contents_txt = li_objtxt

receivers = li_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 sy-msgid TYPE 'I' NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

ENDFORM. " DOCU_SEND_EMAIL

Re: Sending a mail

Former Member — Wed, 29 Apr 2009 13:34:39 GMT

Hi,

I'm sorry but it doesn't work, receivers don't receivr a popup to prevent them that they have new mail.

Another idea?

Regards,

Mehdi

Re: Sending a mail

Former Member — Wed, 29 Apr 2009 14:01:50 GMT

Hi ,

Though you have tried all possible options, just try to do it as it might work:

Please try by adding Commit_work = 'X' in your existing FM and since you have also added EXPRESS = 'X' in the receiver's list that was also required.

Sending the document

CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'

EXPORTING

document_data = doc_chng

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

operation_no_authorization = 4

OTHERS = 99.

Hope this might help you..

Regards,

Ashish

Re: Sending a mail

Former Member — Wed, 29 Apr 2009 14:26:20 GMT

Ashish,

The commit + express give a popup in live (when the receiver is connected).

But when the receiver is disconnected while the mail has been sent, once connected the receiver does not receive any popup to prevent him that he has a new mail.

Any another idea?

thanks a lot

Regards,

Mehdi

Re: Sending a mail

Former Member — Wed, 29 Apr 2009 14:35:42 GMT

Hi Mehdi,

In the normal scenario the user should get the pop up stating that there is an unread item in your inbox..

If this is not happening, then I think you should contact your BASIS guys for it.

Because as per my knowledge there is nothing left from the technical side, as you have already implemented all possible options.

Regards,

Ashish Arora