Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Email with Error 53: File Not Fond

16 views
Skip to first unread message

isobadd

unread,
Nov 23, 2009, 10:33:39 PM11/23/09
to
I have 23 users on a WAN in 3 wide-spread geopgraphical US regions-
UpstateNY, DownstateNY and New England. There is code in an A2003 app
to prompt user to send and email (Corporate configured Outlook 2003)
of a report to a specific person in the company (Vicki O'Leary).
Although every user has not had occasion to use the auto-email
feature, 13 have successfully, with 2 users, both in UpStateNY,
encountering the 'File Not Found' Error 53. It is exasperating and
perplexing when the split db is the same for all, yet 2 of the many
users meet with this error-why not everyone or else no one. this
makes me believe the problem lies in their email configuration, not in
the code. The code is:

Public Sub Auto_RepCompEmail()
On Error GoTo Err_Auto_ITEmail
Dim mycount As Integer
Dim MyEmail As String
Dim MyNote1 As String
Dim SendTo As String
Dim MyDb As Object
Dim MyRs As Object

SendTo = "vicki....@us.ngrid.com"

Me.Refresh
MyNote1 = "Vicki" & vbCrLf & vbCrLf & "Attached is a copy of the NERC
Reportable Incident." & vbCrLf & vbCrLf & vbCrLf & "Regards"


'Send the data and a reminder for the selected Incident in an
'email to the person the projects was assigned to
DoCmd.SendObject acReport, "Rpt_NERCReportableIncidReport_Email2",
"RichTextFormat(*.rtf)", SendTo, "", "", "NERC Reportable Incident For
Case Number " & TxtCaseNumber, MyNote1, True, ""
Me![TxtDateReported] = Now()
Me.Requery

Set MyRs = Me.RecordsetClone
If MyRs.RecordCount = 0 Then
DoCmd.Close acForm, "Frm_NERC_ReportableIncidentsList"
End If

Exit_Auto_ITEmail:
Exit Sub

Err_Auto_ITEmail:
If Err.Number = 2293 Then
MsgBox MyMsg10A & Chr(13) & MyMsg10B, vbExclamation,
Me.Caption
Exit Sub
ElseIf Err.Number = 2296 Then
MsgBox "Operation Cancelled", vbInformation, Me.Caption
Exit Sub
ElseIf Err.Number = -2147352567 Then
MsgBox "All required fields were not entered"
Exit Sub
Else
MsgBox Err.Number & Err.Description, vbInformation, Me.Caption
End If

Resume Exit_Auto_ITEmail
End Sub

Does anyone have any idea why this is happening?
Thanks...
Earl

Salad

unread,
Nov 24, 2009, 1:34:58 AM11/24/09
to

I don't know if this makes a difference. This is from A97 help
outputformat One of the following intrinsic constants:
acFormatHTML
acFormatRTF
acFormatTXT
acFormatXLS
So instead of "RichTextFormat(*.rtf)" maybe acFormatRTF?

Don't know if it makes a diff, but use acSendReport.

I guess the real question is...what line does it blow up on? I'm
assuming the SendObject line but is it the culprit?

Do your users have full versions of Access or do they run from a MDE?
If full, and the SendObject is the culprit, they could attempt to send a
test email from the debug window. If an MDE, then maybe give them a
junk mde with the ability to send an email that you put behind a command
button with explicit stuff. Supply a report called Junk. Ex:
DoCmd.SendObject acSendReport, "Junk", , "j...@test.com", "", "",
"Test Subject", "TestBody", True

0 new messages