Okay, here is the code I'm using.  I had it working but for some reason now
all I get is an error message stating Compile error, user difined type not
defined.  Before I was getting a different error.  What's wrong?

Option Compare Database

Private Sub Detail_Click()
Option Explicit

Sub sbSendMessage(Optional AttachmentPath)
  Dim objOutlook As Outlook.Application
  Dim objOutlookMsg As Outlook.MailItem
  Dim objOutlookRecip As Outlook.Recipient
  Dim objOutlookAttach As Outlook.Attachment

    ' Create the Outlook session.
  Set objOutlook = CreateObject("Outlook.Application")
  ' Create the message.
  Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
  With objOutlookMsg
     ' Add the To recipient(s) to the message. Substitute
     ' your names here.
    Set objOutlookRecip = .Recipients.Add("Douglas Clark")
     objOutlookRecip.Type = olTo
     ' Add the CC recipient(s) to the message.
     Set objOutlookRecip = .Recipients.Add("Andrew Fuller")
     objOutlookRecip.Type = olCC
     ' Set the Subject, Body, and Importance of the message.
     .Subject = "This is a CDRL 10 day alert"
     .Body = "You have a CDRL report due in 10 days.  Please submit proper
documentation." & vbCrLf & vbCrLf
     .Importance = olImportanceHigh  'High importance
     ' Add attachments to the message.
     If Not IsMissing(AttachmentPath) Then
        Set objOutlookAttach = .Attachments.Add(AttachmentPath)
     End If
     ' Resolve each Recipient's name.
     For Each objOutlookRecip In .Recipients
        If Not objOutlookRecip.Resolve Then
           objOutlookMsg.Display

     End If
     Next
     .Send
  End With
  Set objOutlookMsg = Nothing
  Set objOutlook = Nothing
  Set objOutlookRecip = Nothing
  Set objOutlookAttach = Nothing
 
End Sub