Símbolo comodín en macro excel

Hola. Gracias de nuevo por la ayuda.
La macro me funciona siempre que el fichero a adjuntar esta en la unidad c:\ pero si quieres adjuntar un fichero que se encuentra guardado en un directorio de una unidad de red no funciona. No es problema de permisos ya que desde el explorador puedo acceder a dicha unidad sin problemas. No sé si al querer adjuntar un fichero que esta guardado en una unidad de red el código es diferente.
Gracias, un saludo.

Hola:
Cambia la macro por esta
Sub correo()
'Por.Dam
ruta = "C:\trabajo\"
archivo = "*.xls*"
Set dam1 = CreateObject("outlook.application")
Set dam2 = dam1.createitem(olmailitem)
dam2.to = "" '"[email protected]" 'Destinatarios
dam2.cc = "" '"[email protected]" 'Con copia
dam2.bcc = "[email protected]" 'Con copia oculta
dam2.Subject = "aviso informativo" '"Asunto"
ChDir ruta
arch = Dir(archivo)
Do While arch <> ""
dam2.Attachments.Add ruta & arch
arch = Dir()
Loop
dam2.display 'El correo se muestra
End Sub
Ahora con esta macro puedes usar el comodín * para poner varios archivos
Saludos
No olvides finalizar la pregunta