Ver Mensaje Individual
  #1  
Viejo 28/05/13, 21:02:01
Avatar de Dlanor20777
Dlanor20777 Dlanor20777 is offline
Senior Member
 
Fecha de Ingreso: nov 2011
Localización: Venezuela, Puerto Ordaz.
Mensajes: 709
Question Envio por Mail Z, adjuntar.

Hola amigos, tengo un pequeño problema, existe un desarrollo desde el cual se envían las peticiones de oferta de compras por correo outlook, el programa funciona bien, baja la petición y la adjunta al correo y desde outlook se envía. Ahora esta colocando anexos en las peticiones ya sean planos o documentos de word, excel o pdf, esos documentos no se adjuntan en el Z, como podría agregarlos en ese mismo envió, no se mucho de abap pero estoy interesado en aprender, Investigando encontré una tabla que podría contener los anexos SRGBTBREL, les coloco parte del código del programa:

***Para bajar el archivo que se va a adjuntar al PC******************

FORM BAJAR_ARCHIVO.
*T

*-Busca el nombre del acreedor
* SELECT SINGLE * FROM LFA1 WHERE LIFNR EQ REPORT_III-LIFNR.

P_FILE = LFA1-NAME1.

CONCATENATE SUBDIR '\' P_FILE '.PDF' INTO W_ARCHIVO.


CALL FUNCTION 'WS_DOWNLOAD'
EXPORTING
BIN_FILESIZE = PBYTE
FILENAME = W_ARCHIVO
FILETYPE = 'BIN'
TABLES
DATA_TAB = T_PDF
EXCEPTIONS
INVALID_FILESIZE = 1
INVALID_TABLE_WIDTH = 2
INVALID_TYPE = 3
NO_BATCH = 4
UNKNOWN_ERROR = 5
GUI_REFUSE_FILETRANSFER = 6.

IF SY-SUBRC <> 0.
MESSAGE ID 'Z1' TYPE 'E' NUMBER '000' WITH TEXT-003.
ENDIF.

ENDFORM. " BAJAR_ARCHIVO


***Para el Envió del Correo******************
FORM ENVIA-MAIL.
INCLUDE OLE2INCL.
DATA: APPOUTLOOK TYPE OLE2_OBJECT.
DATA: APPOUT2 TYPE OLE2_OBJECT.
DATA: APPITEM TYPE OLE2_OBJECT.
DATA: NAMESPACE TYPE OLE2_OBJECT.
DATA: ATTACHMENTS TYPE OLE2_OBJECT.
DATA: FRACE01(66), FRACE02(66), FRACE03(66), FRACE04(66), FRACE05(66).

* 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'.

SET PROPERTY OF APPITEM 'To' = P_TO.

SET PROPERTY OF APPITEM 'Bcc' = 'xxxx@xxxx.com'.


P_SUBJ = T166U-DRTYP.

FRACE01 = ''.

CONCATENATE P_SUBJ 'MATESI N°:' EKKO-EBELN
INTO P_SUBJ SEPARATED BY SPACE.

SET PROPERTY OF APPITEM 'Subject' = P_SUBJ.

frace02 = 'xxxxxx '.
frace03 = ‘xxxxxx,'.
frace04 = 'xxxxx'.
frace05 = xxxxxx.'.

CONCATENATE FRACE01 FRACE02 FRACE03
FRACE04 FRACE05 INTO P_BODY SEPARATED BY SPACE.

SET PROPERTY OF APPITEM 'Body' = P_BODY.
* Se adjunta el archivo
IF NOT W_ARCHIVO IS INITIAL.
CALL METHOD OF APPITEM 'Attachments' = ATTACHMENTS.
CALL METHOD OF ATTACHMENTS 'Add'
EXPORTING #1 = W_ARCHIVO.
ENDIF.
****************************************
* Envíar directamente
CALL METHOD OF APPITEM 'Send'.
*Se muestra la pantalla del outlook
******** CALL METHOD OF appitem 'Display'.
* Libera Espacio del objeto
FREE OBJECT ATTACHMENTS.
FREE OBJECT APPITEM.
FREE OBJECT NAMESPACE.
* Cierra Outlook ( solo si se quiere que quede cerrado )
***CALL METHOD OF appoutlook 'Quit'.
FREE OBJECT APPOUTLOOK.
ENDFORM. " ENVIA-MAIL

Espero puedan ayudarme, Saludos!
Responder Con Cita