Estoy intentando ejecutar el código al que se hace referencia a continuación y recibo un error de tiempo de ejecución. El código ejecuta la tarea y adjunta el archivo, pero aún arroja el error. "No se puede encontrar este archivo. Verifique que la ruta y el nombre del archivo sean correctos". Verifiqué todos los componentes de la ruta y el nombre del archivo y son correctos. Cualquier consejo es muy apreciado. ¡Gracias!

 Sub CreateCourseCertificates() Dim EApp As Object Set EApp = CreateObject("Outlook.Application") Dim EItem As Object Dim path As String path = "\\path name here\" Dim RList As Range Set RList = Range("A2", Range("a2").End(xlDown)) Dim R As Range For Each R In RList Set EItem = EApp.CreateItem(0) With EItem .To = R.Offset(0, 2) .Subject = "Reminder - Performance Evaluation Action Due: " & R.Offset(0, 0) .Attachments.Add (path & R.Offset(0, 18) & ".docx") .Body = "Hello " & R.Offset(0, 1) & vbNewLine & vbNewLine _ & "Attached is the Annual Performance Evaluation Action Chart for: " & R.Offset(0, 0) & "." _ & vbNewLine & vbNewLine & "Please reply with any questions." & vbNewLine & vbNewLine & _ "Thank you." .Display End With Next R Set EApp = Nothing Set EItem = Nothing End Sub