Ver Mensaje Individual
  #1  
Viejo 18/12/09, 10:22:01
Hasurac Hasurac is offline
Member
 
Fecha de Ingreso: nov 2009
Mensajes: 41
Question Mandar un pdf en mail

Hola mi consulta es como puedo enviar un pdf por mail, ósea yo trasformo el smanfromts en pdf pero ahora debo enviarlo por mail y no se como e visto por la red unas opciones pero no logro entenderlas bien si alguien me podria ayudar se lo agradecería hai les pongo el código donde trasformo a pdf


DATA: lv_solicitud TYPE zthr_0004-num_solicitud,
i_pdf LIKE tline OCCURS 100 WITH HEADER LINE,
W_CTRLOP TYPE SSFCTRLOP,
V_LEN_IN LIKE SOOD-OBJLEN,
I_OTF TYPE ITCOO OCCURS 0 WITH HEADER LINE,
W_COMPOP TYPE SSFCOMPOP,
I_TLINE TYPE TABLE OF TLINE," WITH HEADER LINE,
W_RETURN TYPE SSFCRESCL,
SPOOLNO type TSP01-RQIDENT. " Orden Spool


W_CTRLOP-GETOTF = 'X'.
W_CTRLOP-NO_DIALOG = 'X'.
W_COMPOP-TDNOPREV = 'X'.
W_COMPOP-TDDEST = 'LOCL'.
W_COMPOP-TDARMOD = '1'.
W_COMPOP-TDCOPIES = '1'.
W_COMPOP-TDPRINTER = 'SAPWIN'.
W_COMPOP-TDLIFETIME = '8'.

CALL FUNCTION '/1BCDWB/SF00000006'

EXPORTING
CONTROL_PARAMETERS = W_CTRLOP
OUTPUT_OPTIONS = W_COMPOP
USER_SETTINGS = 'X'
"Aca los parametros que necesita el smartform
gp_logo = p_logo
gp_n_solicitud = p_n_solicitud
gp_nom_tra = p_nom_tra
gp_rut_tra = p_rut_tra
gp_empresa = p_empresa
gp_fech_ing_emp = p_fech_ing_emp
gp_sindicato = p_sindicato
gp_tip_boni = p_tip_boni
gp_fech_soli = p_fech_soli
gp_rut_bene = p_rut_ben
gp_nom_famil = p_nom_hc
gp_ap_paterno = p_ap_paterno
gp_ap_materno = p_ap_materno

IMPORTING
JOB_OUTPUT_INFO = W_RETURN "aca me devuelve el smartform
TABLES
tp_for001 = tp_001
EXCEPTIONS
FORMATTING_ERROR = 1
INTERNAL_ERROR = 2
SEND_ERROR = 3
USER_CANCELED = 4
OTHERS = 5.
IF SY-SUBRC NE 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

I_OTF[] = W_RETURN-OTFDATA[].

CALL FUNCTION 'CONVERT_OTF'
EXPORTING
FORMAT = 'PDF'
MAX_LINEWIDTH = 132
IMPORTING
BIN_FILESIZE = V_LEN_IN
TABLES
OTF = I_OTF
LINES = I_TLINE
EXCEPTIONS
ERR_MAX_LINEWIDTH = 1
ERR_FORMAT = 2
ERR_CONV_NOT_POSSIBLE = 3
OTHERS = 4.
IF SY-SUBRC EQ 0.
ENDIF.
Responder Con Cita