Linea de codigo para adjuntar archivo a mail

Estimados; estoy trabajando sobre un codigo que se configura para enviar un mail desde una cuenta de gmail. Todo el precedimiento se ejecuta de forma correcta. EL INCONVENIENTE LO TENGO EN EL MOMENTO DE ADJUNTAR UN ARCHIVO PARA ENVIAR. Incluso he incluido una linea para retardar algunos segundos y lograr el procesos, pero no he obtenido resultados. Agradezco si pueden pasarme una solucion para este problema, gracias.
ADJUNTO EL CODIGO
Sub enviaCorreo()
On
Error Resume Next
Set
oMsg = CreateObject("CDO.Message")
Set oConf =
CreateObject("CDO.Configuration")
oConf.Load
-1
Set
Flds = oConf.Fields
With Flds
.item("http://schemas.microsoft.com/cdo/configuration/smtpusessl")
= True
.item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")
= 1
.item("http://schemas.microsoft.com/cdo/configuration/sendusername")
= "[email protected]"
.item("http://schemas.microsoft.com/cdo/configuration/sendpassword")
= "password"
.item("http://schemas.microsoft.com/cdo/configuration/smtpserver")
= "smtp.gmail.com"
.item("http://schemas.microsoft.com/cdo/configuration/sendusing")
= 2
.item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
= 465
.Update
End With
mensaje = "texto
del mensaje"
With oMsg
Set .Configuration = oConf
'ponemos el nombre y
correo para el reply
.From =
"""mi_nombre"" <[email protected]>"
.To = "[email protected]"
' correo destino
.Subject = "texto asunto"
.TextBody = mensaje
'.Attachments.Add "C:\Users\Alejandro\Desktop\CAJAS DE PRUEBA\ANA 23-10-19.pdf"
' Application.Wait (Now + TimeValue("0:00:30"))
.Send
End With
If Err <> 0 Then
MsgBox ("Se ha producido un error, y no
se ha podido enviar el email.")
Else
MsgBox ("El email se ha enviado correctamente.")
End If
End Sub