how to add in attachment Crystal Report output in Visual Basic 6.0

Private Sub sendmail()
Dim o As Outlook.Application
Set o = New Outlook.Application
Dim mi As Outlook.MailItem
Set mi = o.CreateItem(olMailItem)
With mi
.Subject = "login"
.To = "ronakkeslikar@gmail.com"
.Body = "login"
'.Attachments.Add App.Path & ""
.Send
End With
Set mi = Nothing
Set o = Nothing
End Sub

---------------------------------------------

Private Sub PreviewDeliveryChallanPrinting()
' added by darshan 28/12/2010
On Error GoTo ErrProc

' stored procedure Usp_DepoChallanPrinting

CrystalReport1.StoredProcParam(0) = Trim(g_UserLocation)
CrystalReport1.StoredProcParam(1) = Trim(txtfromDocno.Text)
CrystalReport1.StoredProcParam(2) = Trim(txttoDocno.Text)

If Opt(0).Value = True Then
CrystalReport1.ReportFileName = App.Path & "\Reports\R_DepoChallanPrinting.rpt"
ElseIf Opt(1).Value = True Then
CrystalReport1.ReportFileName = App.Path & "\Reports\R_DepoChallanPrinting_PP.rpt"
End If

Exit Sub
ErrProc:
ReSetWaitCursor
Select Case Err.Number
Case 20000
Resume Next
End Select
MsgBox "Error in PreviewDeliveryChallanPrinting Procedure. No: " & Err.Number & " " & Err.Description
End Sub

------------------------------------------------

i want to make like when ever user make delivery challan on same time the that delivery challan mail to that dealer in pdf format or any other format