SoloCodigo

hola, mira esto lo postee antes y nada...

ACA ESTA EL CODIGO
http://foros.solocodigo.com/index.php?showtopic=26267

El error es el mismo salvo que en este post lo resumi

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