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:
VB Code:
Private Sub VB_Frm_Error_Btn_SendError_Click()
On Error Resume Next
VB_Frm_Error_Btn_SendError.Enabled = False
Dim objNewMail As CDONTS.NewMail
Set objNewMail = CreateObject("CDONTS.NewMail")
With objNewMail
.From = "error-report@" & VB_Frm_Error_TxtBx_ApplicationTitle & ".exe"
.Subject = "ErrorReport.dll: " & VB_Frm_Error_TxtBx_ApplicationTitle
.Body = "Application information:" & vbCrLf & "App. title: " & VB_Frm_Error_TxtBx_ApplicationTitle & " - " & "App. description: " & VB_Frm_Error_TxtBx_ApplicationDescription & vbCrLf & "App. EXE name: " & VB_Frm_Error_TxtBx_ApplicationEXEName & " - " & "App. version: " & VB_Frm_Error_TxtBx_ApplicationVersion & vbCrLf & vbCrLf & "Error information:" & vbCrLf & "Form name: " & VB_Frm_Error_TxtBx_FormName & " - " & "Title code: " & VB_Frm_Error_TxtBx_TitleCode & vbCrLf & "Pub. Err. number: " & VB_Frm_Error_TxtBx_PublicErrorNumber & " - " & "Pub. Err. description: " & VB_Frm_Error_TxtBx_PublicErrorDescription & vbCrLf & "Prv. Err. number: " & VB_Frm_Error_TxtBx_PrivateErrorNumber & " - " & "Prv. Err. description: " & VB_Frm_Error_TxtBx_PrivateErrorDescription
.Importance = 2
.Send
End With
Set objNewMail = Nothing
VB_Frm_Error_Btn_Cancel.Caption = "Close"
End Sub