Ing. Sistemas Y Computo
Con este código podremos enviar de forma sencilla un correo a una dirección e-mail externa.
Hay que tener configurado el SAPconect para que el envío se hagade forma inmediata.
DATA: BEGIN OF i_text OCCURS 0.
INCLUDE STRUCTURE soli.
DATA: END OF i_text.
DATA: wspoolnumber LIKE sy-spono ,
wmailname LIKEsood1-objnam,
wsubject LIKE sood1-objdes ,
wrecepient(40) TYPE c ,
wdli LIKE soos1-dlinam.
DATA: object_hd_change LIKE sood1 OCCURS 0 WITH HEADER LINE,objpara LIKE selc OCCURS 0 WITH HEADER LINE,
receivers LIKE soos1 OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF i_receivers OCCURS 0.
INCLUDE STRUCTUREreceivers.
DATA: END OF i_receivers.
wsubject = 'Entrega numero....1234567890.'.
wrecepient = 'tu_correo@algo.com'.
object_hd_change-objla = sy-langu.object_hd_change-objnam = wmailname.
object_hd_change-objdes = wsubject.
object_hd_change-objsns = 'F'.
object_hd_change-vmtyp = 'T'.
object_hd_change-skips = 'X'.
object_hd_change-acnam = 'SP01'.object_hd_change-objcp = 'X'.
REFRESH i_text.
CLEAR i_text.
i_text-line = 'Texto del mensaje'.
APPEND i_text.
REFRESH i_receivers.
CLEAR i_receivers.
i_receivers-rcdat= sy-datum.
i_receivers-rctim = sy-uzeit.
i_receivers-recextnam = wrecepient.
i_receivers-recesc = 'U'.
i_receivers-sndex = 'X'. " Express-Mail
APPEND i_receivers.objpara-name = 'SPI'.
objpara-low = wspoolnumber.
APPEND objpara.
CALL FUNCTION 'SO_OBJECT_SEND'
EXPORTING
object_hd_change = object_hd_changeobject_type = 'RAW'
owner = sy-uname
TABLES
objcont = i_text
receivers = i_receivers...
Regístrate para leer el documento completo.