#2
|
||||
|
||||
Hola abapero,
Te transcribo el siguiente programa ejemplo que envía un email utilizando el sapmail de sap por si te vale. *&---------------------------------------------------------------------* *& Form SEND_MAIL *&---------------------------------------------------------------------* * send email to current user * *----------------------------------------------------------------------* FORM SEND_MAIL. * PARAMETERS FOR SO_NEW_DOCUMENT_SEND_API1 DATA: W_OBJECT_ID LIKE SOODK, W_SONV_FLAG LIKE SONV-FLAG. DATA: T_RECEIVERS LIKE SOMLRECI1 OCCURS 1 WITH HEADER LINE, W_OBJECT_CONTENT LIKE SOLISTI1 OCCURS 1 WITH HEADER LINE, W_DOC_DATA LIKE SODOCCHGI1 OCCURS 0 WITH HEADER LINE. * DATA: W_DATE(10). CLEAR T_RECEIVERS. T_RECEIVERS-RECEIVER = SY-UNAME. T_RECEIVERS-REC_TYPE = 'B'. T_RECEIVERS-EXPRESS = ' '. APPEND T_RECEIVERS. W_DOC_DATA-OBJ_DESCR = 'Change Expiry date'. * Delivery NO CONCATENATE 'Delivery No' M_VMVMA-VBELN INTO W_OBJECT_CONTENT SEPARATED BY ' '. APPEND W_OBJECT_CONTENT. * material Batch CONCATENATE 'Material' ZGREC-MATNR 'Batch' ZGREC-CHARG INTO W_OBJECT_CONTENT SEPARATED BY ' '. APPEND W_OBJECT_CONTENT. * Expiry date WRITE B_VFDAT TO W_DATE DD/MM/YYYY. CONCATENATE 'Change expiry date to' W_DATE INTO W_OBJECT_CONTENT SEPARATED BY ' '. APPEND W_OBJECT_CONTENT. * CALL FUNCTION 'SO_NEW_DOCUMENT_SEND_API1' EXPORTING DOCUMENT_DATA = W_DOC_DATA PUT_IN_OUTBOX = ' ' TABLES OBJECT_CONTENT = W_OBJECT_CONTENT RECEIVERS = T_RECEIVERS 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. ENDFORM. " SEND_MAIL Un saludo
__________________
El consultor anteriormente conocido como dump |
Herramientas | Buscar en Tema |
Desplegado | |
|
|