Error &80010105 al ejecutar una macro

Al ejecutar la siguiente macro en la que intento que a través de excel me envié varios mails a diferentes destinatarios con un texto predeterminado y un archivo pdf guardado en mi red, me aparece el siguiente "error del sistema &80010105 (-2147417851) El servidor lanzó una excepción".

El código escrito en VAB:

Sub correo()
    col = Range("H1").Column
    For i = 2 To Range("B" & Rows.Count).End(xlUp).Row
        Set dam = CreateObject("outlook.application").createitem(0)
        dam.To = Range("B" & i) 'Destinatarios
        dam.CC = Range("C" & i) 'Con copia
        dam.Bcc = Range("D" & i) 'Con copia oculta
        dam.Subject = Range("E" & i) '"Asunto"
        dam.body = Range("F" & i) '"Cuerpo del mensaje"
        '
        For j = col To Cells(i, Columns.Count).End(xlToLeft).Column
            archivo = "C:\Users\User\Documents\clau cv\CV Claudia García Hermida.pdf"
            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, "