Enviar correo electrónico desde excel

La macro funciona bien la he probado en otras ocasiones. Como quiera te pongo otra versión:

Sub SendMail_Gmail()
'Fuente: http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/337-enviar-correo-en-vb-con-microsoft-cdo.htm
    Dim Email As CDO.Message
    Set Email = New CDO.Message
    Email.Configuration.Fields(cdoSMTPServer) = "smtp.gmail.com"
    Email.Configuration.Fields(cdoSendUsingMethod) = 2
    With Email.Configuration.Fields
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = CLng(465)
        .Item("http://schemas.microsoft.com/cdo/" & "configuration/smtpauthenticate") = Abs(1)
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "pwd"
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    End With
    With Email
        .To = Trim([a2].Value)
        .From = Trim([b2].Value)
        .Subject = Trim([c2].Value)
        .TextBody = Trim([d2].Value)
        If [a2].Value <> vbNullString Then
            .AddAttachment (Trim([e2].Value))
        End If
        .Configuration.Fields.Update
        On Error Resume Next
        .Send
    End With
    If Err.Number = 0 Then
        MsgBox "El mail se envió con éxito", vbInformation, "Informe"
    Else
        MsgBox "Se produjo el siguiente error: " & Err.Description, vbCritical, "Error nro " & Err.Number
    End If
End Sub

El problema es que debes poner un archivo que exista en la celda E2, debes revisar que estás poniendo correctamente el nombre del archivo y de toda la ruta, por ejemplo:

C:\trabajo\varios\varios otros\vale prueba.xlsx

Tienes que poner el disco y los dos puntos

C:

Tienes que poner toda la ruta con diagonales y respetando los espacios si es que el nombre de la carpeta tiene espacios

\trabajo\varios\varios otros\

Y por último revisa que el archivo esté correctamente escrito, con espacios si es que el nombre del archivo tiene espacios y con la extensión completa, si la extensión es de 3 ó 4 letras deberás escribirla completa.

Recibe un cordial saludo y feliz fiestas! Dante Amor

No olvides valorar la respuesta.

me sale un nuevo error: no se puede enviar el mensaje al servidor SMTP. El código de error de transporte fue 0x80040217. La respuesta del servidor fue not available.

EL archivo lo tengo en una carpeta en el escritorio con el nombre de prblicidad comercial y adentro esta el reporte.pdf. LA DIRECCIÓN QUE TENGO ES ESTA:C:\Users\usuario\Desktop\PUBLICIDAD COMERCIAL\REPORTESMP.pdf

DE ANTEMANO GRACIAS POR TU AYUDA.