Enviar PDF adjunto en Outlook desde PB
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