Crystal y correo

Yo creo que deberias exportar el documento a PDF, y luego incluirlo en el
correo que quieras enviar, para exportarlo a pdf:

Dim filedest As New CrystalDecisions.Shared.DiskFileDestinationOptions

'Determinamos la ruta donde se va a crear nuestro archivo al finalizar el
proceso en este caso

Dim nombrearchivopdf As String = Ruta del archivo 'Creamos el orginal

filedest.DiskFileName = nombrearchivopdf

Report.PrintOptions.PaperOrientation =
CrystalDecisions.[Shared].PaperOrientation.Portrait

'Finalmente exportamos el reporte a PDF

Try

Report.ExportToDisk(CrystalDecisions.Shared.ExportFormatType.PortableDocFormat,
filedest.DiskFileName)

Catch ex As Exception

GMensajes(123, "ATENCION, NO SE HA GENERADO LOS FICHEROS CORRECTAMENTE")

CreaFicherosPaginas = False

End Try

"LuisMiguel" <lmolinoARROBAyaPUNTOcom> escribió en el mensaje
news:

Buenas
Estoy intentando enviar mi informe por correo, y lo consigo, pero, siempre
hay una pega.
El fichero adjunto me aparece como untituled.txt, aunque le diga que lo
quiero en PDF.
Entonces, la pregunta es, donde le puedo indicar el nombre del archivo, o
al menos la extension del archivo para que se asigne correctamente a
acrobat?


Gracias
LuisMiguel

Buenas
gracias por tu aporte.
Pero quizas no me explique bien.
El correo se genera correctamente, y el adjunto que se crea es un PDF, la
pega es que no le da nombre, y le pone extension txt, con lo que por omision
se abre con el block de notas.
Si no consigo saber donde le puedo expecificar el nombre del archivo, pues
tendre que hacer lo que me sugieres tu,

Gracias de nuevo


LuisMiguel
"" escribió en el mensaje
news:

Yo creo que deberias exportar el documento a PDF, y luego incluirlo en el
correo que quieras enviar, para exportarlo a pdf:

Dim filedest As New CrystalDecisions.Shared.DiskFileDestinationOptions

'Determinamos la ruta donde se va a crear nuestro archivo al finalizar el
proceso en este caso

Dim nombrearchivopdf As String = Ruta del archivo 'Creamos el orginal

filedest.DiskFileName = nombrearchivopdf

Report.PrintOptions.PaperOrientation =
CrystalDecisions.[Shared].PaperOrientation.Portrait

'Finalmente exportamos el reporte a PDF

Try

Report.ExportToDisk(CrystalDecisions.Shared.ExportFormatType.PortableDocFormat,
filedest.DiskFileName)

Catch ex As Exception

GMensajes(123, "ATENCION, NO SE HA GENERADO LOS FICHEROS CORRECTAMENTE")

CreaFicherosPaginas = False

End Try

"LuisMiguel" <lmolinoARROBAyaPUNTOcom> escribió en el mensaje
news:

Buenas
Estoy intentando enviar mi informe por correo, y lo consigo, pero,
siempre hay una pega.
El fichero adjunto me aparece como untituled.txt, aunque le diga que lo
quiero en PDF.
Entonces, la pregunta es, donde le puedo indicar el nombre del archivo, o
al menos la extension del archivo para que se asigne correctamente a
acrobat?


Gracias
LuisMiguel

Como generas el pdf???

A mi es la unica solucion que se me ocurre.

"LuisMiguel" <lmolinoARROBAyaPUNTOcom> escribió en el mensaje
news:

Buenas
gracias por tu aporte.
Pero quizas no me explique bien.
El correo se genera correctamente, y el adjunto que se crea es un PDF, la
pega es que no le da nombre, y le pone extension txt, con lo que por
omision se abre con el block de notas.
Si no consigo saber donde le puedo expecificar el nombre del archivo, pues
tendre que hacer lo que me sugieres tu,

Gracias de nuevo


LuisMiguel
"" escribió en el mensaje
news:

Yo creo que deberias exportar el documento a PDF, y luego incluirlo en el
correo que quieras enviar, para exportarlo a pdf:

Dim filedest As New CrystalDecisions.Shared.DiskFileDestinationOptions

'Determinamos la ruta donde se va a crear nuestro archivo al finalizar el
proceso en este caso

Dim nombrearchivopdf As String = Ruta del archivo 'Creamos el orginal

filedest.DiskFileName = nombrearchivopdf

Report.PrintOptions.PaperOrientation =
CrystalDecisions.[Shared].PaperOrientation.Portrait

'Finalmente exportamos el reporte a PDF

Try

Report.ExportToDisk(CrystalDecisions.Shared.ExportFormatType.PortableDocFormat,
filedest.DiskFileName)

Catch ex As Exception

GMensajes(123, "ATENCION, NO SE HA GENERADO LOS FICHEROS CORRECTAMENTE")

CreaFicherosPaginas = False

End Try

"LuisMiguel" <lmolinoARROBAyaPUNTOcom> escribió en el mensaje
news:

Buenas
Estoy intentando enviar mi informe por correo, y lo consigo, pero,
siempre hay una pega.
El fichero adjunto me aparece como untituled.txt, aunque le diga que lo
quiero en PDF.
Entonces, la pregunta es, donde le puedo indicar el nombre del archivo,
o al menos la extension del archivo para que se asigne correctamente a
acrobat?


Gracias
LuisMiguel

Buenas.
Este es el codigo que utilizo (tomado de la ayuda del Crystal)

Public Sub ExportToMSMail(ByVal toList As String, ByVal subject As
String, ByVal message As String, _
ByVal ccList As String, ByVal user As String, ByVal password As
String)

Dim pdfOpts As PdfRtfWordFormatOptions = _
ExportOptions.CreatePdfRtfWordFormatOptions()
Dim mailOpts As MicrosoftMailDestinationOptions = _
ExportOptions.CreateMicrosoftMailDestinationOptions()
Dim exportOpts As ExportOptions = New ExportOptions

pdfOpts.UsePageRange = False
exportOpts.ExportFormatOptions = pdfOpts

mailOpts.MailCCList = ccList
mailOpts.MailMessage = message
mailOpts.MailSubject = subject
mailOpts.MailToList = toList
mailOpts.Password = password
mailOpts.UserName = user
exportOpts.ExportDestinationOptions = mailOpts

exportOpts.ExportDestinationType = _
ExportDestinationType.MicrosoftMail
exportOpts.ExportFormatType = _
ExportFormatType.PortableDocFormat

Report.Export(exportOpts)
End Sub

y funciona, la pega, la que te comentaba el adjunto es UNTITLED.TXT
Gracias por tu interes
Suerte
LuisMiguel
"" escribió en el mensaje
news:

Como generas el pdf???

A mi es la unica solucion que se me ocurre.

"LuisMiguel" <lmolinoARROBAyaPUNTOcom> escribió en el mensaje
news:

Buenas
gracias por tu aporte.
Pero quizas no me explique bien.
El correo se genera correctamente, y el adjunto que se crea es un PDF, la
pega es que no le da nombre, y le pone extension txt, con lo que por
omision se abre con el block de notas.
Si no consigo saber donde le puedo expecificar el nombre del archivo,
pues tendre que hacer lo que me sugieres tu,

Gracias de nuevo


LuisMiguel
"" escribió en el mensaje
news:

Yo creo que deberias exportar el documento a PDF, y luego incluirlo en
el correo que quieras enviar, para exportarlo a pdf:

Dim filedest As New CrystalDecisions.Shared.DiskFileDestinationOptions

'Determinamos la ruta donde se va a crear nuestro archivo al finalizar
el proceso en este caso

Dim nombrearchivopdf As String = Ruta del archivo 'Creamos el orginal

filedest.DiskFileName = nombrearchivopdf

Report.PrintOptions.PaperOrientation =
CrystalDecisions.[Shared].PaperOrientation.Portrait

'Finalmente exportamos el reporte a PDF

Try

Report.ExportToDisk(CrystalDecisions.Shared.ExportFormatType.PortableDocFormat,
filedest.DiskFileName)

Catch ex As Exception

GMensajes(123, "ATENCION, NO SE HA GENERADO LOS FICHEROS CORRECTAMENTE")

CreaFicherosPaginas = False

End Try

"LuisMiguel" <lmolinoARROBAyaPUNTOcom> escribió en el mensaje
news:

Buenas
Estoy intentando enviar mi informe por correo, y lo consigo, pero,
siempre hay una pega.
El fichero adjunto me aparece como untituled.txt, aunque le diga que lo
quiero en PDF.
Entonces, la pregunta es, donde le puedo indicar el nombre del archivo,
o al menos la extension del archivo para que se asigne correctamente a
acrobat?


Gracias
LuisMiguel