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

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

jerry

I don't think is possible in Excel VBA.

For a start an emailing not being sent probably wouldn't be regarded
as an error, sp hpw could you trap it.

I would think it's more likely you'd have to work with the email
clients to see if the email has been sent.

On Sep 1, 7:11*pm, norie wrote:
jerry

I don't think is possible in Excel VBA.

For a start an emailing not being sent probably wouldn't be regarded
as anerror, sp hpw could you trap it.

I would think it's more likely you'd have to work with the email
clients to see if the email has been sent.

Thanks Jerry and Norie. I did try including the error trapping but it
didnt work.