Sending email of current record report via outllook

[cap.zadi]

Hi,

Is it correct code for sending email from a form of current record data via outlook.

Private Sub cmdemail_Click()On Error GoTo Err_cmdemail_Click
 
    Dim stDocName As String
    Dim strDocName As String
    Dim stWhere As String
    Dim stEmail As String
    Dim stSubject As String
 
    If Me.Dirty Then Me.Dirty = False
 
    stDocName = "Quality Inspection Report"
    strWhere = "[InspectionID]=" & Me!InspectionID
    stEmail = "zahid@cpc.com.sa"
    stSubject = "VCP Finish Goods Quality Inspection Report"
 
    DoCmd.SendObject acSendForm, stDocName, acFormatPDF, stEmail, , , stSubject, , , False
 
Exit_cmdemail_Click:
    Exit Sub
 
Err_cmdemail_Click:
    MsgBox Err.Description
    Resume Exit_cmdemail_Click
End Sub

but it shows error on click "The database cant find the object 'l1'

Kindly help

[ranman256]

your doc name is 'QI report'
but your .SendObject says : acSendForm

are you sending a report or a form? (reports are better)
if this is not a problem, then check the vb references in VBE,(ctl-G), menu, tools, references,
make sure MS OUTLOOK is checkmarked. (and not MISSING)

[pbaldy]

The Outlook reference wouldn't be required for that code, and could cause problems if the db were used by someone with a different version.

[Bulzie]

What does the strWhere line do in the code above?

[cap.zadi]

Dear

Thanks for correction and it was out of mind.

Private Sub cmdemail_Click()
On Error GoTo Err_cmdemail_Click
 
    Dim stDocName As String
    Dim strDocName As String
    Dim stWhere As String
    Dim stEmail As String
    Dim stSubject As String
 
    If Me.Dirty Then Me.Dirty = False
 
    stDocName = "Quality Inspection Report"
    strWhere = "[InspectionID]=" & Me!InspectionID
    stEmail = "zahid@cpc.com.sa"
    stSubject = "VCP Finish Goods Quality Inspection Report"
 
    DoCmd.SendObject acSendReport, stDocName, acFormatPDF, stEmail, , , stSubject, , , False
 
Exit_cmdemail_Click:
    Exit Sub
 
Err_cmdemail_Click:
    MsgBox Err.Description
    Resume Exit_cmdemail_Click
End Sub

This code worked fantastic but cant restrict to the current record of report. It will fetch all the previous records too.

but it worked the same way as "EmailDataBaseObject" macro which does not have criteria to restrict up to the current record.

Kindly advise.

[pbaldy]

Simplist is probably to open the report in preview mode using strWhere, then send, then close the report. You can open it hidden to avoid the flicker of it opening.

[Bulzie]

Again if anyone can answer, how is that strWhere clause being used in that code? I must be missing something obvious?

[jwhite]

It isn't being used at all, and .SendObject doesn't have a where clause, therefore Paul's suggestion in post #6

[pbaldy]

I noticed the declaration of stWhere but setting of strWhere and suggest:

http://www.baldyweb.com/OptionExplicit.htm

[Bulzie]

Ok thanks, just thought i was missing how it was being used somehow.