Skip to Content
0
Former Member
Jun 03, 2013 at 07:58 AM

export crystal report to pdf then send to email using outlook

487 Views

good day sir,

this is my whole code for creating a crystal report and exporting it to a pdf file:

Public Sub rsvrpt()

Dim rpt As New reservationrpt() 'The report you created.

Dim MyCommand As New SqlCommand()

Dim myDA As New SqlDataAdapter()

Dim myDS As New DataSet2() 'The DataSet you created.

Dim cn As New SqlConnection(ConnectString())

Try

MyCommand.Connection = cn

MyCommand.CommandText = "SELECT * FROM maintable where irsno=" + irsn + " And branchID='" + branch + "'"

MyCommand.CommandType = CommandType.Text

myDA.SelectCommand = MyCommand

myDA.Fill(myDS, "maintable")

'myDA.SelectCommand.CommandText = "Select fullname from usertbl where username='" + Login.txtuser.Text + "'"

'myDA.Fill(myDS, "usertbl")

myDA.SelectCommand.CommandText = "Select * from roomtbl where irsno=" + irsn + " And branchID='" + branch + "'"

myDA.Fill(myDS, "roomtbl")

myDS.EnforceConstraints = False

rpt.SetDataSource(myDS)

CrystalReportViewer1.ReportSource = rpt

'rpt.PrintOptions.PrinterName = "EPSON LX-300+ /II"

'rpt.PrintToPrinter(1, False, 0, 0)

Catch Excep As Exception

MessageBox.Show(Excep.Message, "Error", MessageBoxButtons.OK,

MessageBoxIcon.Error)

End Try

Try

Dim CrExportOptions As ExportOptions

Dim CrDiskFileDestinationOptions As New DiskFileDestinationOptions()

Dim CrFormatTypeOptions As New PdfRtfWordFormatOptions()

CrDiskFileDestinationOptions.DiskFileName = "C:\Users\Frontliner0102\Desktop\reservation.pdf"

CrExportOptions = rpt.ExportOptions

With CrExportOptions

.ExportDestinationType = ExportDestinationType.DiskFile

.ExportFormatType = ExportFormatType.PortableDocFormat

.DestinationOptions = CrDiskFileDestinationOptions

.FormatOptions = CrFormatTypeOptions

End With

rpt.Export()

Catch ex As Exception

End Try

End Sub

i want to send the crystal report to an email using microsoft outlook but i dont have any idea how to start it.can anyone give me some advice or guide on how to dot it? I searched throughout the internet but all i have read is that using SMPT server.