Ed,
As an alternative you could try this...
Public Function SendEmail(strEmail As String, strSubject As String, strEmailBody As String, blnSend As Boolean, Optional strAttachment As String)
PROC_DECLARATIONS:
Const sProc_Name As String = "EmailTASSurvey"
Dim olApp As...