Descargar solución EnvioCorreoWindows_PDF.zip
Muchas veces tenemos que enviarle reportes a todos nuestros clientes de forma masiva y que mejor forma que enviarles un documento PDF sin tener que preocuparmos por los formatos y brindarle seguridad a la información que estamos transmitiendo.
Para poder convertir el reporte a pdf vamos a utilizar esta función llamada ExportToPDF y luego podremos enviar ese documento como un simple archivo adjunto en nuestros correos.
Dim vFileName As String
Dim diskOpts As New DiskFileDestinationOptions
Try
With rpt.ExportOptions
.ExportDestinationType = ExportDestinationType.DiskFile
.ExportFormatType = ExportFormatType.PortableDocFormat
End With
vFileName = «c:» & NombreArchivo
If File.Exists(vFileName) Then File.Delete(vFileName)
diskOpts.DiskFileName = vFileName
rpt.ExportOptions.DestinationOptions = diskOpts
rpt.Export()
Catch ex As Exception
Throw ex
End Try
Return vFileName
End Function
