jerry, I do not understand. Your code is so complex it shows deep knowledge
of VBA programming, and for someone as knowledgeable, it should be clear that
all you have to do is add:

OnError goto myErrorTrap

MyErrorTrap:

' Put your error code here


"jerry" wrote:

the below program automatically detects the default mailsystem
( outlook or lotus notes) and emails the worksheet. I want to include
error trapping in this incase the workbook is not emailed. May i
request your help.

Thanks for your help.

Select Case Application.MailSystem
'If outlook send the email
Case xlMAPI
ActiveWorkbook.SendMail Recipients:=strRecipients
MsgBox "Thank You."
Case xlNoMailSystem
If LotusNotesInstalled = False Then 'check if Lotus
Notes is installed
MsgBox "No mail system installed! Please send the
email by attaching the file directly from "
Else
If SendWithLotusNotes(voefilename, filename,
strRecipients) = False Then
'alert the user if the SendWithLotusNotes code
doesn't run successfully
MsgBox "The suggestion has NOT been successfully
sent but, it has been Saved in " , vbExclamation + vbOKOnly, "File
was NOT emailed"
GoTo exSub
End If
End If
Case Else
MsgBox "Outlook/Lotus Notes is not configured."
End Select