Informação fornecida por Walmir Basevic.
Utilizar a função standard ‘SO_NEW_DOCUMENT_SEND_API1’ conforme código.
FORM ENVIA_MENSAGEM. * *** Definição tabelas locais DATA BEGIN OF TL_EMAIL_SEND OCCURS 0. INCLUDE STRUCTURE SOMLRECI1. DATA END OF TL_EMAIL_SEND. * DATA BEGIN OF TL_DATA_TAB OCCURS 0. INCLUDE STRUCTURE SOLISTI1. DATA END OF TL_DATA_TAB. * *** Definição de variáveis locais DATA: EL_EMAIL_DATA LIKE SODOCCHGI1. "Estrutura local auxiliar * EL_EMAIL_DATA-OBJ_NAME = 'MESSAGE'. EL_EMAIL_DATA-OBJ_DESCR = TEXT-002. "Erro em Compensação Automática EL_EMAIL_DATA-OBJ_LANGU = 'P'. EL_EMAIL_DATA-SENSITIVTY = 'P'. EL_EMAIL_DATA-OBJ_PRIO = '1'. EL_EMAIL_DATA-NO_CHANGE = 'X'. EL_EMAIL_DATA-PRIORITY = '1'. * REFRESH TL_EMAIL_SEND. TL_EMAIL_SEND-RECEIVER = SY-UNAME. TL_EMAIL_SEND-REC_TYPE = 'B'. TL_EMAIL_SEND-EXPRESS = 'X'. APPEND TL_EMAIL_SEND. LOOP AT S_USER WHERE LOW <> SY-UNAME. TL_EMAIL_SEND-RECEIVER = S_USER-LOW. TL_EMAIL_SEND-REC_TYPE = 'B'. TL_EMAIL_SEND-EXPRESS = 'X'. APPEND TL_EMAIL_SEND. ENDLOOP. * CLEAR TL_DATA_TAB. CONCATENATE VG_MENSAGEM VG_BELNR VG_BELNR_2 INTO TL_DATA_TAB-LINE SEPARATED BY SPACE. APPEND TL_DATA_TAB. * *** Função que executa a mensagem e manda para o INBOX do usuário CALL FUNCTION 'SO_NEW_DOCUMENT_SEND_API1' EXPORTING DOCUMENT_DATA = EL_EMAIL_DATA DOCUMENT_TYPE = 'RAW' PUT_IN_OUTBOX = 'X' TABLES OBJECT_CONTENT = TL_DATA_TAB RECEIVERS = TL_EMAIL_SEND. * ENDFORM. " ENVIA_MENSAGEM
