Hello all,
I have a access 2003 database with a form that has the functionality to send an email. I put a mde. on the server for the users. At first, the uses could not access the database because they were getting an unreconizable format error. I upgraded everyone to access 2003. Now their able to access the database and all functionality. Every now and then, the button to send email will not work. It doesn't make sense to me because the code is correct and about 85% of the time, it works. What could be causing this? Here is my code:

Code:
Private Sub cmdEmailEdit_Click()
On Error GoTo Err_cmdEmailEdit

Dim strMessage1 As String
Dim strMessage2 As String
Dim strAct As String
Dim intSelected As Integer
Dim varSelected As Variant
Dim strTo As String
Dim strCC As String
Dim strBCC As String
Dim strSQL As String
Dim strDesc As String
Dim strServiceType As String
Dim intOccID As Integer

DoCmd.Save

    'Type of service provided to member.  Placed in body of e-mail.
    strServiceType = Me.IDX_ServID.Column(1)

    'If action is required
    If Me.fraActionRequired = 2 Then
        strAct = "IS"
    Else
        strAct = "is not"
    End If

    'If there are no names in the To: box
    If Me.lstEmailTo.ListCount <= 0 Then
        MsgBox "You must add at least one recipient in the To: box.", vbOKOnly + vbInformation
        Exit Sub
    End If

    'Creates the To: string of names for the email
    With Me.lstEmailTo
        For intSelected = 0 To .ListCount - 1
            .Selected(intSelected) = True
        Next intSelected
        For Each varSelected In .ItemsSelected
            strTo = strTo & .Column(0, varSelected) & ";"
        Next varSelected
    End With
    intSelected = 0

    'Creates the Cc: string of names for the email
    With Me.lstEmailCC
        For intSelected = 0 To .ListCount - 1
            .Selected(intSelected) = True
        Next intSelected
        If intSelected = 0 Then
        Else
            For Each varSelected In .ItemsSelected
                strCC = strCC & .Column(0, varSelected) & ";"
            Next varSelected
        End If
    End With
    intSelected = 0

    'Creates the Bcc: string of names for the email
    With Me.lstEmailBCC
        For intSelected = 0 To .ListCount - 1
            .Selected(intSelected) = True
        Next intSelected
        If intSelected = 0 Then
        Else
            For Each varSelected In .ItemsSelected
                strBCC = strBCC & .Column(0, varSelected) & ";"
            Next varSelected
        End If
    End With

    'Body of email message
    'strMessage1 = "During a Quality Review, we noted some findings with your recent " & strServiceType & _
      '  " service transaction. Please review this entry in the Occurrence Tracking System for more details." & _
      '  " Action " & strCorrAct & " required."
      
    strMessage1 = Me.MEM_Occurrence

    If strAct = "IS" Then
        strMessage2 = strMessage1 & Chr(13) & Chr(13) & "  PLEASE RESPOND BY " & FormatDateTime(Me.DTE_Due, vbLongDate) & "."
    Else
        strMessage2 = strMessage1 & Chr(13) & Chr(13) & "  This email is for information purposes only.  No response is necessary."
    End If

    'Send email via Outlook
    Select Case Me.fraSendOptions
        Case 1
            DoCmd.SendObject acSendNoObject, , acFormatRTF, strTo, strCC, strBCC, UCase(Me.IDX_OccLevID.Column(1)) & _
                " OCCURRENCE - " & Me.TXT_Subject, strMessage2 & Chr(13) & Chr(13) & "Member ID: " & Me.NUM_MemberNum & Chr(13) & _
                Me.IDX_AccountType.Column(1) & " - " & Me.TXT_MemberName & Chr(13) & Chr(13) & "Thanks, " & Me.IDX_EnteredBy.Column(1), True
        Case 2
            DoCmd.SendObject acSendNoObject, , acFormatTXT, strTo, strCC, strBCC, UCase(Me.IDX_OccLevID.Column(1)) & _
                " OCCURRENCE - " & Me.TXT_Subject, strMessage2 & Chr(13) & Chr(13) & "Member ID: " & Me.NUM_MemberNum & Chr(13) & _
                Me.IDX_AccountType.Column(1) & " - " & Me.TXT_MemberName & Chr(13) & Chr(13) & "Thanks, " & Me.IDX_EnteredBy.Column(1), False
    End Select
   
    'Adds Entry to History Table
    intOccID = Me.IDX_OccurID
    
    DoCmd.SetWarnings False
    strDesc = "EMAIL SENT TO: " & strTo
    strSQL = "INSERT INTO tblHistory ( TXT_UserID, IDX_OccurID, TXT_Descrip )"
    strSQL = strSQL & " VALUES ( '" & fOSUserName & "'," & intOccID & ",'" & strDesc & "');"
    DoCmd.RunSQL strSQL
    
    If strCC = "" Then
    Else
        strDesc = "EMAIL SENT CC: " & strCC
        strSQL = "INSERT INTO tblHistory ( TXT_UserID, IDX_OccurID, TXT_Descrip )"
        strSQL = strSQL & " VALUES ( '" & fOSUserName & "'," & intOccID & ",'" & strDesc & "');"
        DoCmd.RunSQL strSQL
    End If
    
    If strBCC = "" Then
    Else
        strDesc = "EMAIL SENT BCC: " & strBCC
        strSQL = "INSERT INTO tblHistory ( TXT_UserID, IDX_OccurID, TXT_Descrip )"
        strSQL = strSQL & " VALUES ( '" & fOSUserName & "'," & intOccID & ",'" & strDesc & "');"
        DoCmd.RunSQL strSQL
    End If

Exit_cmdEmailEdit:
    DoCmd.SetWarnings True
    Exit Sub

Err_cmdEmailEdit:
    If Not Err.Number = 2501 Then
        MsgBox Err.Number & ": " & Err.Description, vbOKOnly
        Debug.Print Err.Number & ": " & Err.Description
    End If
    Resume Exit_cmdEmailEdit

End Sub
could it be the references? I have VBA for applications, MS 11.0 objects, OLE, MS ActiveX 2.5 and DAO 3.6
Thanks