Hi,
I have this error to send App. information & Err. inforamtion with ErrorReport.dll (Private App.).
IIS 5.0
VB 6.0
Error:
Unable to deliver this message because the follow error was encountered: "Error is processing file in pickup directory.".
The specific error code was 0xC00402CE.
Code:
Private Sub VB_Frm_Error_Bt n_SendError_Cli ck()
On Error Resume Next
VB_Frm_Error_Bt n_SendError.Ena bled = False
Dim objNewMail As CDONTS.NewMail
Set objNewMail = CreateObject("C DONTS.NewMail")
With objNewMail
.From = "error-report@" & VB_Frm_Error_Tx tBx_Application Title & ".exe"
.To = "ypy_design@yah oo.co.uk"
.Subject = "ErrorReport.dl l: " & VB_Frm_Error_Tx tBx_Application Title
.Body = "Applicatio n information:" & vbCrLf & "App. title: " & VB_Frm_Error_Tx tBx_Application Title & " - " & "App. description: " & VB_Frm_Error_Tx tBx_Application Description & vbCrLf & "App. EXE name: " & VB_Frm_Error_Tx tBx_Application EXEName & " - " & "App. version: " & VB_Frm_Error_Tx tBx_Application Version & vbCrLf & vbCrLf & "Error information:" & vbCrLf & "Form name: " & VB_Frm_Error_Tx tBx_FormName & " - " & "Title code: " & VB_Frm_Error_Tx tBx_TitleCode & vbCrLf & "Pub. Err. number: " & VB_Frm_Error_Tx tBx_PublicError Number & " - " & "Pub. Err. description: " & VB_Frm_Error_Tx tBx_PublicError Description & vbCrLf & "Prv. Err. number: " & VB_Frm_Error_Tx tBx_PrivateErro rNumber & " - " & "Prv. Err. description: " & VB_Frm_Error_Tx tBx_PrivateErro rDescription
.Importance = 2
.Send
End With
Set objNewMail = Nothing
VB_Frm_Error_Bt n_Cancel.Captio n = "Close"
End Sub
I have this error to send App. information & Err. inforamtion with ErrorReport.dll (Private App.).
IIS 5.0
VB 6.0
Error:
Unable to deliver this message because the follow error was encountered: "Error is processing file in pickup directory.".
The specific error code was 0xC00402CE.
Code:
Private Sub VB_Frm_Error_Bt n_SendError_Cli ck()
On Error Resume Next
VB_Frm_Error_Bt n_SendError.Ena bled = False
Dim objNewMail As CDONTS.NewMail
Set objNewMail = CreateObject("C DONTS.NewMail")
With objNewMail
.From = "error-report@" & VB_Frm_Error_Tx tBx_Application Title & ".exe"
.To = "ypy_design@yah oo.co.uk"
.Subject = "ErrorReport.dl l: " & VB_Frm_Error_Tx tBx_Application Title
.Body = "Applicatio n information:" & vbCrLf & "App. title: " & VB_Frm_Error_Tx tBx_Application Title & " - " & "App. description: " & VB_Frm_Error_Tx tBx_Application Description & vbCrLf & "App. EXE name: " & VB_Frm_Error_Tx tBx_Application EXEName & " - " & "App. version: " & VB_Frm_Error_Tx tBx_Application Version & vbCrLf & vbCrLf & "Error information:" & vbCrLf & "Form name: " & VB_Frm_Error_Tx tBx_FormName & " - " & "Title code: " & VB_Frm_Error_Tx tBx_TitleCode & vbCrLf & "Pub. Err. number: " & VB_Frm_Error_Tx tBx_PublicError Number & " - " & "Pub. Err. description: " & VB_Frm_Error_Tx tBx_PublicError Description & vbCrLf & "Prv. Err. number: " & VB_Frm_Error_Tx tBx_PrivateErro rNumber & " - " & "Prv. Err. description: " & VB_Frm_Error_Tx tBx_PrivateErro rDescription
.Importance = 2
.Send
End With
Set objNewMail = Nothing
VB_Frm_Error_Bt n_Cancel.Captio n = "Close"
End Sub