Erro em tempo de execução 287

Caros amigos,
eu criei um botao de envio de e-mail em um formulario que funcionava perfeitamente até alguns dias atras, mas de repente passou a me dar a seguintes mensagem:
Erro em tempo de execução 287
Erro de definição de aplicativo ou de definição objeto

Código:


Private Sub BtEnviar_Click()
'Sub SendMessages(Optional AttachmentPath)

Dim MyDB As Database
Dim MyRS As Recordset
Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient
'Dim objOutlookAttach As Outlook.Attachment
Dim TheAddress As String
Dim strsql
Set MyDB = CurrentDb

Set MyRS = Me.RecordsetClone
' Create the Outlook session.
Set objOutlook = CreateObject("Outlook.Application")

' Create the e-mail message.
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
TheAddress = ""

Do Until MyRS.EOF
    If TheAddress = "" Then
        TheAddress = MyRS![Email]
    Else
        TheAddress = TheAddress & "; " & MyRS![Email]
    End If
    MyRS.MoveNext
Loop

With objOutlookMsg
' Add the CCo recipients to the e-mail message.
Set objOutlookRecip = .Recipients.Add(TheAddress)
objOutlookRecip.type = olBCC

' Add the Cc recipients to the e-mail message.
If (IsNull(Forms!Email!Email)) Then
'Else
'Set objOutlookRecip = .Recipients.Add(Forms!Email!Email)
'objOutlookRecip.Type = olCC
End If

' Set the Subject, the Body, and the Importance of the e-mail message.
'.Subject = Forms!EMail!Subject
'.Body = Forms!frmMail!MainText
'.Importance = olImportanceHigh 'High importance

'Add the attachment to the e-mail message.
' If Not IsMissing(AttachmentPath) Then
' Set objOutlookAttach = .Attachments.Add(AttachmentPath)
' End If

' Resolve the name of each Recipient.
For Each objOutlookRecip In .Recipients
objOutlookRecip.Resolve
If Not objOutlookRecip.Resolve Then
objOutlookMsg.Display
End If
Next
.Display
End With

Set objOutlookMsg = Nothing
Set objOutlook = Nothing
End Sub


A linha "Set objOutlookRecip = .Recipients.Add(TheAddress)" é onde o depurador aponta a falha. Ja rachei minha cabeça tentando identificar o problema, mas acho q nao vou conseguir sem sua ajuda.
Obrigado

Bom dia....

Em tudo sempre há um antes e depois, ainda mais em programação que as variáveis são um mar !!

a- versão do pacote atualizado ? SP3 Offce esta presente ?
b- houve alguma mudança de windows onde está o programa ?
c- as referências ao outlook estão apontadas para o mesmo ?
d- já importou o projeto para um banco novo e testou o mesmo ?
e- ocorre o erro em apenas um micro ou em todos ?


Abraços.

Essa me pegou, vou fazer as verificações...