Hey,

I started to make purchasingsystem for our purchase department. I use access and they use the program using the runtime version. But when they try to sent a purchase order Access gives me the following message:

The expression On Click you entered as the event property setting produced the following error: The Sendobject action was canceled

*The expression may not result in the name of a macro, the name of a user-defined function, or [Event Procedure].
*There may have been an error evaluating the function, event, or macro.

The procedure is:

Private Sub Command107_Click()


If [Forms]![FrmInkoophoofd]![Bedrijf] = "1" Then GoTo 1 Else GoTo 2

1:

Dim Bedrijf As String
Dim strMail As String
Dim stDocName As String
Dim strNaam As String
Dim Verzender As String
Dim Ontvanger As String

DoCmd.OpenReport "RapSelInkoopHoofd", acViewReport, "", "", acHidden

strNaam = Me.Referentienummer
stDocName = "RapSelInkoopHoofd"
Reports![RapSelInkoopHoofd].Caption = strNaam
Ontvanger = Me.Contactpersoon

Verzender = [Forms]![FrmGebruikers]![Combo2]

DoCmd.SendObject acSendReport, stDocName, acFormatPDF, Forms![FrmInkoophoofd]![Mail], Verzender, , "Inkooporder " & strNaam, _
"Beste " & Ontvanger & "," & vbNewLine & vbNewLine & "Hierbij ontvangt U onze inkooporder met ons referentienummer " & strNaam & "." & vbNewLine & _
"Deze inkooporder kunt U terugvinden in de bijlage van deze e-mail, gelieve een orderbevestiging met leverdatum per mail." _
, , False

Macronaam = "MacVersturenIO2"
DoCmd.RunMacro Macronaam

Exit Sub

2:

DoCmd.OpenReport "RapInkooporderMTDFleet", acViewReport, "", "", acHidden

Dim Bedrijf1 As String
Dim strMail1 As String
Dim stDocName1 As String
Dim strNaam1 As String
Dim Verzender1 As String
Dim Ontvanger1 As String

strNaam1 = Me.Referentienummer
stDocName1 = "RapInkooporderMTDFleet"
Reports![RapInkooporderMTDFleet].Caption = strNaam1
Ontvanger1 = Me.Contactpersoon

Verzender1 = [Forms]![FrmGebruikers]![Combo2]



DoCmd.SendObject acSendReport, stDocName1, acFormatPDF, Forms![FrmInkoophoofd]![Mail], Verzender1, , "Inkooporder " & strNaam1, _
"Beste " & Ontvanger1 & "," & vbNewLine & vbNewLine & "Hierbij ontvangt U onze inkooporder met ons referentienummer " & strNaam1 & "." & vbNewLine & _
"Deze inkooporder kunt U terugvinden in de bijlage van deze e-mail, gelieve een orderbevestiging met leverdatum per mail." _
, , False

Macronaam = "MacVersturenIO2"
DoCmd.RunMacro Macronaam

End Sub