VB code to email Crystal report

[anatasia]

Hi,
Anyone could help me for VBcode to send Crystal report by email? I have the code to print out the crystal report, but now i need the report can be email directly.

Below is my Print out sample:-

Public Sub ShowSalesInv(ByVal blnPreview As Boolean, ByVal sInvRefNo As String)
Dim SalesInvReport As Report
Dim Db As Database
Dim strTitle As String

Set SalesInvReport = New ICRSalesInv
Set Db = SalesInvReport.Database
SalesInvReport.RecordSelectionFormula = " {tbl_Sales.InvRefNo}='" & sInvRefNo & " '"

If blnPreview = True Then
Set frmCrystalViewer.mRptReport = SalesInvReport
frmCrystalViewer.Caption = strTitle & "Invoice"
frmCrystalViewer.Show 1
Else
SalesInvReport.PrintOut True does any code could replace here for email?
End If

End Sub

Would appreciate for any help. Thanks.

-Ana-