Enviar archivo por correo mediante macro

Con esta macro, todo está en la macro

'***Macro Para enviar correos
Sub correo()
'Por.Dam
Ruta = "C:\Documents and Settings\Soporte expertos\"
Archivo = "aa.xls"
Set dam1 = CreateObject("outlook.application")
Set dam2 = dam1.createitem(olmailitem)
'dam2.SentOnBehalfOfName = "Damor" 'Range("B2") 'en nombre de
dam2.to = "[email protected]" 'Range("B2") 'Destinatarios
dam2.cc = "[email protected]" 'Con copia
dam2.bcc = "[email protected]" 'Con copia oculta
dam2.Subject = "asunto" 'Range("C2") '"Asunto"
dam2.body = "cuerpo" 'Range("D2") '"Cuerpo del mensaje"
dam2.Attachments.Add Ruta & Archivo
dam2.send 'El correo se envía en automático
'dam2.display 'El correo se muestra
End Sub

Saludos. Dam