Enviar email via ABAP / Sending email thru ABAP - Part I

Português | English

 Português 

Após pesquisas no Google e auxílio de alguns colegas de trabalho, identifiquei e escolhi a melhor forma, na minha opinião, de mandar emails pelo SAP através de códigos de programação. Se você sabe HTML da até pra formatá-lo!

Neste primeiro momento farei uma demonstração com texto simples para o envio de emails, não utilizando estrutura HTML.

Segue o código explicativo:

01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61

DATA: lt_text TYPE bcsy_text,"Conterá o conteúdo do email        ls_text TYPE soli,"Work Area de lt_text        lv_sent TYPE os_boolean."Receberá a confirmação de envio   *Variáveis para enviar o email   DATA: go_request TYPE REF TO cl_bcs,        go_document TYPE REF TO cl_document_bcs,        go_sender TYPE REF TO cl_sapuser_bcs,        go_recipient TYPE REF TO if_recipient_bcs,        go_exception TYPE REF TO cx_bcs.   *Preenchendo o conteúdo do email  ls_text = 'Essa é a primeira linha de conteúdo do email'.   APPEND ls_text TO lt_text.  ls_text = 'Essa é a segunda linha...'.   APPEND ls_text TO lt_text.   *É necessário o tratamento de erros com try...catch   TRY. *Método utilizado para criar um pedido de envio persistente      go_request = cl_bcs=>create_persistent().   *Monta e adiciona a estrutura do e-mail      co_document = cl_document_bcs=>create_document(        i_type = 'RAW'        i_text = lt_text        i_language = sy-langu"P - Português        i_subject = 'Assunto do email').      co_request->set_document(co_document).   *Remetente do e-mail *obs: por default, o envio é feito pelo usuário logado. *Caso queira alterar, adicione esse método:      go_sender = cl_sapuser_bcs=>create( 'RISHIDA').       CALL METHOD go_request->set_sender         EXPORTING          i_sender = go_sender.   *Adicionando o destinatário ao e-mail      go_recipient =      cl_cam_address_bcs=>create_internet_address( 'ab@cd.com').       CALL METHOD go_request->add_recipient         EXPORTING          i_recipient = go_recipient          i_express   = 'X'.   *Marca o envio como imediato ('X') ou não (space)       CALL METHOD co_request->set_send_immediately( 'X').   *Envia email, e retorna true ('X') ou false ('') na lv_sent       CALL METHOD go_request->send(         EXPORTING          i_with_error_screen = 'X'         RECEIVING          result = lv_sent).       COMMIT WORK.       CATCH cx_bcs INTO go_exception. *Tratamento do erro try... catch   ENDTRY.

Se as configurações de envio de email estiverem certas o email será enviado ao destinatário corretamente. Você pode checar o status do email na transação SOST.

 English 

After "Googling" and the help of some coworkers, I identified and chosed the best way, in my opinion, to send emails from SAP through programming code. If you know HTML you can even format it!

At this moment I will make a statement with simple text to send emails, not using HTML structure.

Below is the code and comments:

01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61

DATA: lt_text TYPE bcsy_text,"Contents of the email        ls_text TYPE soli,"Work Area of lt_text        lv_sent TYPE os_boolean."Email confirmation   *Vars to send the email   DATA: go_request TYPE REF TO cl_bcs,    go_document TYPE REF TO cl_document_bcs,    go_sender TYPE REF TO cl_sapuser_bcs,    go_recipient TYPE REF TO if_recipient_bcs,    go_exception TYPE REF TO cx_bcs.   *Filling the content of the email  ls_text = 'This is the first line of the email'.   APPEND ls_text TO lt_text.  ls_text = 'This is the second line...'.   APPEND ls_text TO lt_text.   *It is necessary error handling with try...catch   TRY. *Method used to create a request to send persistent      go_request = cl_bcs=>create_persistent().   *Setting and adding the email's structure      co_document = cl_document_bcs=>create_document(        i_type = 'RAW'        i_text = lt_text        i_language = sy-langu"E - English        i_subject = 'Assunto do email').      co_request->set_document(co_document).   *Sender email *PS: as default, sending is done by the logged user. *If you want to change, add this method:      go_sender = cl_sapuser_bcs=>create( 'RISHIDA').       CALL METHOD go_request->set_sender         EXPORTING          i_sender = go_sender.   *Adding a recipient to the email      go_recipient =      cl_cam_address_bcs=>create_internet_address( 'ab@cd.com').       CALL METHOD go_request->add_recipient         EXPORTING          i_recipient = go_recipient          i_express   = 'X'.   *Brand sending as immediate ('X') or not (space)       CALL METHOD co_request->set_send_immediately( 'X').   *Sending email, & returns true ('X') or false ('') in lv_sent       CALL METHOD go_request->send(         EXPORTING          i_with_error_screen = 'X'         RECEIVING          result = lv_sent).       COMMIT WORK.       CATCH cx_bcs INTO go_exception. *Treatment of error try... catch   ENDTRY.

If the settings for sending emails are ok, the email will be sent to the recipient correctly. You can check the status of the email in SOST transaction.