Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - marcpaus

Páginas: [1]
1
Reports / Re: Enviar mail a un correo externo
« en: 11 de Octubre de 2007, 06:12:47 pm »
Hola,

os dejo otro código que funciona siempre que el usuario tiene en su pc local instalado Outlook, de esta manera podemos enviar un correo sin tener configurado SAPConnect y además si trabajamos habitualmente con Outlook lo tendremos en Elementos Enviados.

Espero que os sirva.

Un saludo.

  Report ZMAIL.

  DATA: OUTLOOK TYPE OLE2_OBJECT.  "Outlook.Application
  DATA: ITEM TYPE OLE2_OBJECT.     "Outlook.MailItem
  DATA: LATTACH TYPE OLE2_OBJECT . "Outlook.Attachement
  DATA: SUBJECT(255) TYPE C.

*
*Enviar mail

  CREATE OBJECT OUTLOOK 'outlook.application'.

  CALL METHOD OF OUTLOOK 'CreateItem' = ITEM
    EXPORTING
      #1 = '0'.

  SET PROPERTY OF ITEM 'To' = 'la dirección de correo a la que queremos enviar'.

* Si queremos rellenar el cuerpo del mensaje
*  OPCION 1:
*    LOOP AT body_tab INTO wa_bodytab.
*      SET PROPERTY OF omail 'Body' = wa_bodytab.
*    ENDLOOP.
*  OPCION 2:
*  SET PROPERTY OF item 'Body' = ''.

  SET PROPERTY OF ITEM 'Subject' = 'Asunto del correo'.

  CALL METHOD OF ITEM 'Attachments' = 'Ruta al fichero si queremos adjuntar alguno'.

  CALL METHOD OF LATTACH 'Add'
    EXPORTING
      #1 = NOMBRE.

  CALL METHOD OF ITEM 'Send'.

  FREE OBJECT ITEM.
  FREE OBJECT OUTLOOK.
  FREE OBJECT LATTACH.




2
Hola,

si el servidor está dentro de tu red interna deberías poder enviarlo sin mayor problema siempre que como indica Nuria los permisos te lo permitan. De otro modo si el servidor es externo a tu red interna, podemos estar hablando de diferentes maneras de hacerlo, todo depende. Si puedes ampliar la información será más fácil ayudarte.

Un saludo,

Marc.

Páginas: [1]