PDF por mail

[torrescano]

saludos, tengo el siguiente caso

tengo un reporte q su salida es un smartforms, ahora tengo q enviarlo en pdr via mail.

he utilizado el reporte estandar de sap q te convierte una orden de spool a pdf, pero komo les digo tengo q enviar el reporte via mail en formato pdf.

alguna idea, saludos.

[koken]

Hola!

el mail lo que querés mandar mediante SAP o mediante Outlook desde SAP ?

Decime y te paso las funciones que tenés que usar.

Saludos y suerte!

[torrescano]

el mail lo debo mandar desde sap por outlook, pero como te comento debe ser en formato pdf.

saludos.

[koken]

Acá te dejo lo que necesitás:

FORM p_enviar_mails USING p_file p_file2.
  TYPE-POOLS : ole2.
  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(45), frace02(45).
  DATA: p_subj(20)  TYPE c.
  DATA: p_body TYPE string.

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

  CONCATENATE p_subj 'OC: ' itab-ebeln INTO p_subj
SEPARATED BY space.
  SET PROPERTY OF appitem 'Subject' = p_subj.

  CONCATENATE
'aca va el texto para el cuerpo del mensaje  '
   INTO p_body.

  SET PROPERTY OF appitem 'Body' = p_body.

* Se adjunta el archivo
  CALL METHOD OF appitem 'Attachments' = attachments.

  CALL METHOD OF attachments 'Add'
    EXPORTING
      #1 = nombre del pdf.

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

ENDFORM.

Ahí lo tenés resuelto.

Saludos y suerte!