Creating an advanced error handler in VB6

[thetambarineman]

can anyone help me with a problem that I'm having: how do i create an advanced error handler which will take the error that comes up, copy and paste it to an outlook new message, using the mailto: command. <br>
Many thanks in advance!!<br>

 

[DougP]

Well I have 90% of it here:<br>
But it prompts for you to hit send.<br>
-----------------------<br>
Insert this Declare in your module<br>
<br>
Public Declare Function ShellExecute Lib &quot;shell32.dll&quot; Alias &quot;ShellExecuteA&quot; (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long<br>
<br>
----------------------------------------<br>
Private Sub Command1_Click()<br>
On Error GoTo Err_Command1_Click<br>
<br>
' Raise the exception<br>
s = 3 / 0<br>
<br>
Exit_Command1_Click: '&lt;&lt;&lt; Put all this code at the bottom right above the END SUB<br>
Exit Sub<br>
<br>
Err_Command1_Click:<br>
Select Case Err.Number<br>
Case 3021<br>
' No current record<br>
<br>
Case Else<br>
MsgBox &quot;Error # &quot; & Err.Number & &quot; &quot; & Err.Description, vbInformation, &quot;In sub Command1_Click&quot;<br>
<br>
End Select<br>
<br>
Dim stext As String<br>
Dim sAddedtext As String<br>
<br>
stext = &quot;mailto:&quot; & &quot;douglasp&quot;<br>
<br>
sAddedtext = sAddedtext & &quot;&Subject=&quot; & &quot;Error From VB Program &quot; & Err.Number & &quot; &quot; & Err.Description<br>
sAddedtext = sAddedtext & &quot;&Body=&quot; & &quot;Put your Body Text here if needed&quot;<br>
<br>
'Add an attachment if needed<br>
'If Len(txtAttachment) Then<br>
'sAddedtext = sAddedtext & &quot;Attach=&quot; & Chr$(34) & Me!txtAttachment & Chr$(34)<br>
'End If<br>
<br>
stext = stext & sAddedtext<br>
<br>
' launch default e-mail program<br>
If Len(stext) Then<br>
Call ShellExecute(Me.hwnd, &quot;open&quot;, stext, vbNullString, vbNullString, SW_SHOWNORMAL)<br>
End If<br>
<br>
Resume Exit_Command1_Click<br>
<br>
End Sub<br>
-------------------------------------<br>
<p> DougP<br><a href=mailto: dposton@universal1.com> dposton@universal1.com</a><br><a href= > </a><br>