Outlook no reconoce dam.Send

Hola.

Alguien que me ayude a saber el motivo por el cual al correr la siguiente macro me manda un mensaje

"Run-time error' - 2147467259 (80004005)

outlook no reconoce alguno de estos nombres"

y me marca la siguiente línea

dam.Send

La macro es para poder enviar varios correos y anexar varios archivos adjuntos y es la siguiente:

Sub Enviar_evaluaciones()

Dim col As Integer

Dim dam As Outlook.MailItem

Dim i As Long

Dim j As Integer

Dim Archivo As String

col = Range("e3:q3").Column

For i = 4 To Range("e" & Rows.Count).End(xlUp).Row

     Set dam = Outlook.CreateItem(0)   

 '

    dam.To = Range("a" & i).Value           'Destinatarios

    dam.CC = Range("b" & i).Value           'Con copia

    dam.Subject = Range("c" & i).Value      '"Asunto"

    dam.Body = Range("d" & i).Value         '"Cuerpo del mensaje"

    '

    For j = col To Cells(i, Columns.Count).End(xlToLeft).Column

        Archivo = Cells(i, j).Value

        If Archivo <> "" Then dam.Attachments.Add Archivo

    Next

    dam.Send                                'El correo se envía en automático

    'dam.Display                             'El correo se muestra

Next

MsgBox "Correos enviados", vbInformation, "SALUDOS"

End Sub

La macro la usé hace un mes sin problemas y no modifique nada.

Les agradezco su ayuda!