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