Macro enviar hoja activa adjunta por gmail

Gracias por anticipado. Tengo esta macro que me envía un email desde excel a través de una cta. De gmail (no tengo outlook en esta maquina), pero no se cómo hacer que se envíe la hoja adjunta (o un archivo guardado, me da igual) como archivo adjunto. He intentado añadiendo la línea .Attachments.Add = "ruta del archivo" antes de .Send, pero es evidente que no ha funcionado.

Una vez más, agradezco por anticipado vuestra ayuda. Un Saludo.

Sub ENVIAR()
'
' ENVIAR Macro
' Macro grabada el 24/03/2013 por Juan Antonio
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") = "xxxxxxxxx"
.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
With oMsg
Set .Configuration = oConf
.From = """xxxxxx"" <[email protected]>"
.To = "[email protected]"
.Subject = "prueba adjunto"
.TextBody = "Aquí tienes el archivo"
.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