Power Builder - Enviar PDF adjunto en Outlook desde PB

   
Vista:

Enviar PDF adjunto en Outlook desde PB

Publicado por Beto (72 intervenciones) el 27/02/2013 17:43:32
Buenos días estimados, necesito crear una opcion a los reportes, que esta convierta a pdf el reporte y a la vez abra un nuevo envio y el pdf adjunto en outlook.

Quizas alguien ya tiene implementado esto y me podria ayudar.

Saludos.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Enviar PDF adjunto en Outlook desde PB

Publicado por Jose Ribera (9 intervenciones) el 28/02/2013 17:43:15
Saludos
Para Guardar el datawindows en PDF puedes usar

dw_1.SaveAs("c:\dw_one.pdf", PDF!, false)

Luego para enviar por outlook:

mailSession mSes
mailReturnCode mRet
mailMessage mMsg
mailFileDescription mAttach[]

mSes = create mailSession
mRet = mSes.mailLogon ( mailNewSession! )
If mRet <> mailReturnSuccess! Then
ls_error="Error al Iniciar Mail"+string(mRet )
Choose Case mRet
Case mailReturnLoginFailure!
ls_error = "Usuario/Password incorrecto(s)"
Case mailReturnInsufficientMemory!
ls_error = "Memoria insuficiente"
Case mailReturnTooManySessions!
ls_error = "Demasiadas sesiones abiertas"
Case mailReturnUserAbort!
ls_error = "Cancelación por usuario"
End Choose
mSes.mailLogoff()
Destroy mSes
return false
End If


mMsg.notetext = mensaje_mail
//------------------------------------------------------------------------------------------------
//Adjuntar fichero a enviar PDF
//------------------------------------------------------------------------------------------------------
ls_file=nombre fichero PDF
ls_file_directory=ruta + nombre fichero PDF

mAttach[tt].FileType = mailAttach!
mAttach[tt].PathName = ls_file
mAttach[tt].FileName = ls_file_directory
mAttach[tt].Position = len(mMsg.notetext) - 1
mMsg.AttachmentFile = mAttach

mMsg.Recipient[1].name = mail_destinatario //destinatario
mMsg.Subject=asunto_mail //Asunto

mRet = mSes.mailsend ( mMsg )

if mRet <> mailReturnSuccess! then
ls_error = "El mail no pudo ser enviado por: "
Choose Case mRet
Case mailReturnInsufficientMemory!
ls_error = ls_error + "Memoria insuficiente"
Case mailReturnUserAbort!
ls_error = ls_error + "Cancelado por usuario"
Case mailReturnDiskFull!
ls_error = ls_error + "Disco duro lleno"
Case mailReturnTooManySessions!
ls_error = ls_error + "Demasiadas sesiones abiertas"
Case mailReturnTooManyFiles!
ls_error = ls_error + "Demasiados archivos"
Case mailReturnTooManyRecipients!
ls_error = ls_error + "Demasiados destinatarios"
Case mailReturnUnknownRecipient!
ls_error = ls_error + "Destinatario(s) desconocido(s)"
Case mailReturnAttachmentNotFound!
ls_error = ls_error + "Archivo adjunto no hallado"
case else
ls_error="Error al Iniciar Mail"+string(mRet )
End Choose
mSes.mailLogoff()
Destroy mSes
return false
end if


mSes.mailLogoff()
destroy mSes
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar