Private Sub Command0_Click() On Error GoTo Err_Command0_Click Dim strAdresa As String Dim strReport As String Adresa = "miroslav@net.hr" Report = "R_Ponuda" DoCmd.SendObject _ acSendReport, _ strReport, _ acFormatRTF, _ strAdresa, _ , _ , _ "Ponuda", _ "Message", _ True Exit_Command0_Click: Exit Sub Err_Command0_Click: MsgBox Err.Description Resume Exit_Command0_Click End Sub