#1
|
|||
|
|||
Enviar email sin adjuntos
Buenas!
Se que por aquí hay algun tema de como enviar mails externos mediante SAP, pero todos ellos son con ficheros adjuntos. Mi pregunta es si alguin sabe como enviar un email pero que el texto que se quiere enviar salga en el cuerpo del mismo mail, y no dentro de un pdf adjunto (que es lo que más he encontrado). Gracias!! |
#2
|
|||
|
|||
esto funciona
*&---------------------------------------------------------------------* *& Report Envío de MAIL utilizando objetos OLE para Microsoft Outlook *& Versión 98 : problemas cuando Outlook no está abierto *& Versión 2000 : correcto *&---------------------------------------------------------------------* *& Siempre en ON-LINE ( como cualquier funcionamiento OLE ) *&---------------------------------------------------------------------* REPORT YMAIL . PARAMETERS : P_TO(30), P_SUBJ(30), P_BODY(50). "este es el cuerpo del mail * Include Objetos OLE INCLUDE OLE2INCL. *----------------------------------------------------------------* START-OF-SELECTION. *lonecesario para recolectar los datos a enviar * PERFORM ENVIA-MAIL . *&---------------------------------------------------------------------* *& Form ENVIA-MAIL *&---------------------------------------------------------------------* *FORM ENVIA-MAIL . *---------------- DATA: APPOUTLOOK TYPE OLE2_OBJECT. DATA: APPOUT2 TYPE OLE2_OBJECT. DATA: APPITEM TYPE OLE2_OBJECT. DATA: NAMESPACE TYPE OLE2_OBJECT. * Crear objeto OLE : outlook.application CREATE OBJECT APPOUTLOOK 'outlook.application' . * Mensajes vía MAPI CALL METHOD OF APPOUTLOOK 'GetNameSpace' = NAMESPACE EXPORTING #1 = 'MAPI'. * Crea objeto nuevo ITEM ( nuevo mensaje ) CALL METHOD OF APPOUTLOOK 'CreateItem' = APPITEM EXPORTING #1 = '0'. * Propiedades TO , SUBJECT y BODY SET PROPERTY OF APPITEM 'To' = P_TO. SET PROPERTY OF APPITEM 'Subject' = P_SUBJ. SET PROPERTY OF APPITEM 'Body' = P_BODY. "aquí lo utilizas * Envía ITEM CALL METHOD OF APPITEM 'Send'. * Libera Espacio del objeto FREE OBJECT APPITEM. FREE OBJECT NAMESPACE. * Cierra Outlook ( solo si se quiere que quede cerrado ) FREE OBJECT APPOUTLOOK. * ENDFORM. " ENVIA-MAIL |
#3
|
|||
|
|||
hola,prueba esto.
DATA doc_data LIKE sodocchgi1. DATA object_id LIKE soodk. DATA objcont LIKE soli OCCURS 10 WITH HEADER LINE. DATA receiver LIKE somlreci1 OCCURS 1 WITH HEADER LINE. DATA:it_receivers LIKE somlreci1 OCCURS 0 WITH HEADER LINE. DATA: maildata LIKE sodocchgi1. DATA: mailtxt TYPE TABLE OF solisti1, linemailtxt TYPE solisti1. * data for send function REFRESH objcont.CLEAR objcont. objcont-line = 'Linea1'. APPEND objcont. objcont-line = 'Linea2.'. APPEND objcont. * insert mail description CLEAR maildata. WRITE 'Cabecera' TO maildata-obj_descr. * add direc. mail REFRESH it_receivers.CLEAR it_receivers. CONCATENATE zmm_006-cliente '"diba.es' INTO dire. it_receivers-receiver = dire. it_receivers-rec_type = 'U'. it_receivers-com_type = 'INT'. it_receivers-notif_del = 'X'. it_receivers-notif_ndel = 'X'. APPEND it_receivers. * insert receiver (sap name) *REFRESH receiver. *CLEAR receiver. *MOVE: 'mianconu@hotmail.com' TO receiver-receiver, * 'X' TO receiver-express, * 'B' TO receiver-rec_type. *APPEND receiver. CALL FUNCTION 'SO_NEW_DOCUMENT_SEND_API1' EXPORTING document_data = maildata put_in_outbox = 'X' document_type = 'RAW' * IMPORTING * new_object_id = object_id TABLES object_content = objcont receivers = it_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. IF sy-subrc <> 0. MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ELSE. Si estas en desarrollo,nomalmente esta capado el envio de email,entonces tienes que obligarlo tu. COMMIT WORK. WAIT UP TO 2 SECONDS. IF sy-subrc EQ 0. SUBMIT rsconn01 WITH mode = 'INT' WITH output = 'X' AND RETURN. ENDIF. Tienes que tener un nodo tipo INT y que ademas este configurado con el mismo servidor de exchange. Pero pruebalo porque seguro que existe el nodo y estara configurado correctamente. |
#4
|
|||
|
|||
Envio de email sin adjunto
Saludos...
He probado estas dos funciones y las dos funcionan, pero la que me sirve para solucionar mi problema es la última sin embargo sigue enviando el cuerpo del email como adjunto en formato PDF, por lo que ocuparia saber si le falta algo para poder realizar el envio sin el adjunto. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|