Visual Basic - Exportar un archivo pdf de Crystal Repor

Buenas noches compañeros colegas, necesito de sus ayuda, tengo un botón para imprimir un reporte y el mismo funciona muy bien, pero quiero agregarle a este codigo del cual les anexo unas lineas para que exporte el reporte a .pdf y del mismo modo abra el correo Lotus Notes 6.5 y me coloque el archivo pdf exportado en el correo para asi poderlo enviar.

Espero me puedan ayuda.

Aqui le coloco el codigo del botón que imprime el reporte


Private Sub imprimir_Click()

Dim Conn
Dim n As Integer
Dim sql, BaseDatos As String
Set Conn = CreateObject("ADODB.Connection")
Conn.Open ("Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source= C:Disco DatoscompartidoJKMPROYECTO DE APLICACIÓN REPORTEReportesProveedoresProveedor.mdb")
sql = "Delete from RP_Proveedores_Occidente"
Conn.Execute (sql)
Conn.Close
Set mb1 = OpenDatabase(App.Path & "Proveedor.mdb")
Set mb1 = OpenDatabase(App.Path & "Proveedor.mdb")
Set mt4 = mb1.OpenRecordset("RP_Proveedores_Occidente", dbOpenTable)
mt4.AddNew
mt4("FldCaso") = caso
mt4("FldFechaR") = fecha1
mt4("FldFechaCR") = fecha2
mt4("FldProveedor") = proveedor
mt4("FldAnalista") = analista
mt4("FldReportado") = reportado
mt4("FldTelefono") = telefono
mt4("FldMarca") = marca
mt4("FldModelo") = modelo
mt4("FldSerial") = serial
mt4("FldNegocio") = negocio
mt4("FldLocalidad") = localidad
mt4("FldDireccion") = direccion
mt4("FldRequerimiento") = requerimiento
mt4("FldDetalle") = detalle
mt4("FldSolucion") = solucion
mt4.Update
mt4.Close
CrystalReport1.ReportFileName = App.Path & "Reporte a Proveedor.rpt"
CrystalReport1.CopiesToPrinter = 1
CrystalReport1.Destination = crptToWindow
CrystalReport1.RetrieveSQLQuery
CrystalReport1.PrinterSelect
CrystalReport1.PrintReport

End Sub

Es muy sencillo:

ingresa a esta URL:

Hola Andes, compañero a cual URL debo ingresar?