Hola grupo,
Necesito enviar un Informe (desde Creports) por mail, la idea es exportar el informe a PDF sin intervenciòn del usuario y luego mandarlo por correo.
Para exportar el informe a PDF estoy usando un ejemplo que encontré en la ayuda de VS 2002:
Còdigo:
**************** PARA EXPORTAR UN REPORTE ********************
Dim Report As New Pago() 'Pago es un Creports
Dim exportOpts As New CrystalDecisions.Shared.ExportOptions()
Dim diskOpts As New CrystalDecisions.Shared.DiskFileDestinationOptions ()
Dim pdfFormatOpts As New CrystalDecisions.Shared.PdfRtfWordFormatOptions()
Report.ExportOptions.ExportFormatType = CrystalDecisions.[Shared].ExportFormatType.PortableDocFormat
Report.ExportOptions.ExportDestinationType = CrystalDecisions.[Shared].ExportDestinationType.DiskFile
diskOpts.DiskFileName = "C:\pormail.pdf"
Report.ExportOptions.DestinationOptions = diskOpts
Report.Export()
********************** FIN **********************
El problema es que arroja el sgte error y no se cual es la causa ni como solucionarlo.******** ERROR AL INTENTAR EXPORTAR UN CREPORTS A PDF ************
Excepción no controlada del tipo 'CrystalDecisions.CrystalReports.Engine.LogOnExcep tion' en
crystaldecisions.crystalreports.engine.dll
Información adicional: No es posible conectar.****************************FIN ***************************
ACA INTENTO MANDAR UN MAIL (FALTA ADJUNTAR EL ARCHIVO EXPORTADO)********************** ENVIAR MAIL ************************
Dim email As New System.Web.Mail.MailMessage()
email.To = "mimail@proveedor.com"
email.From = "maildestino@proveedor.com"
email.Body = "*******Cuerpo del mail*******"
email.Subject = "Informe Pago De Vendedor"
email.BodyFormat = Web.Mail.MailFormat.Text
email.Priority = Web.Mail.MailPriority.Normal
Try
System.Web.Mail.SmtpMail.Send(email)
Catch ex As Exception
MsgBox(ex.Message)
End Try
****************************** FIN **********************************
SI EXISTE OTRA FORMA DE EXPORTAR EL REPORTE Y ENVIARLO POR CORREO SE LOS AGRADESCO.Gracias
P.D: Utilizo VB.net 2002
