Macro Excel para copiar automáticamente archivo outlook.pst de cada uno de los equipos de los usuarios en una carpeta

Entiendo que todo está en red pero prefiero preguntar por si acaso: En el archivo que mencionas ¿El nombre de usuario es el del "usuario de dominio"? Y el de cada maquina ¿es exactamente el que tiene cada PC? La fecha ¿es diferente para cada usuario? ¿La fecha responde a algo en especial? Es decir ¿puede tomarse la fecha de otro lado/cosa o solo existe en dicho archivo?

Abraham Valencia

Nota: Sé que la pregunta está dirigida, pero al ser un foro público y estar sin respuesta, daré una mano

Si Abraham el usuario es el del dominio, el nombre de cada máquina es el que tiene cada pc. La fecha, corresponde a la fecha en la cual se realiza la copia y sirve para en caso de dañarse el *.pst se pueda recuperar, simplemente retornando el archivo a la ubicación inicial

Aja, va quedando más claro. Solo algo importante, la ubicación del archivo .pst depende de su versión de Microsoft Outlook, su versión de Windows y cómo se configuró la cuenta de correo o como creó el archivo .pst, entonces ¿todos tienen el mismo windows y Office? ¿O los archivos *.pst han sido creados o exportados por uds. y están en alguna carpeta en especial de cada PC?

Abraham Valencia

Con lo último que digo es solo para estar seguro de que todos los archivos *.pst están en "C:\usuario" como parece ser

Si Abraham, todos con el mismo windows, office y c:\usuario

Gracias,

Aja, aunque no lo creas ya con esos datos la cosa no está tan complicada como sonaba. Ahora ando fuera de casa, llego y te ayudo.

Abraham Valencia

Prueba así:

Sub CopiandoArchivos()
Dim wshNetwork As Object
Dim Usuario As String, PCUsuario As String, ArchivoNuevo As String
Set wshNetwork = CreateObject("WScript.Network")
Let PCUsuario = wshNetwork.ComputerName
Let Usuario = wshNetwork.UserName
Let ArchivoNuevo = Usuario & "_" & PCUsuario & "_" & Month(Date) & "_" & Day(Date) & "_" & Year(Date)
FileCopy "C:\" & Usuario & "\outl.pst", "D:\copia\" & ArchivoNuevo & ".pst"
Set wshNetwork = Nothing
End Sub

Comentas

Abraham Valencia

Gracias Abraham, tengo las siguientes inquietudes:

1. En que parte de la macro abre  el archivo excel que va recorrer cada uno de los usuarios de la red ??

2. Faltaría un loop para recorrer todo el archivo ??

La macro que te envío, es basicamente un ejemplo ya que yo no puedo reproducir ni conozco detalles de tu red. Si quisieras usarla directamente, tendrías que: Ir de PC en PC y activarla ahí, lo que se hace fácil si colocar el libro/archivo con la macro en una carpeta compartida en red a la que todos los usuarios tengan acceso.

Si tu idea es que desde tu PC actives la macro y haga todo el trabajo en todas las PC desde ahí, te pregunto ¿tienes "acceso remoto" a todas las PC? De ser sí la respuesta tendrías que tener acceso "ilimitado" a los discos "C" y "D" de cada usuario ¿es así? Tú has colocado que todos tienen su copia del archivo en el disco/carpeta "C:\Usuario", por lo tanto dicho disco, al menos en apariencia, es de cada PC ¿o tu carpeta "C" es es realidad una carpeta compartida en red?

Abraham Valencia

Abraham, muchas ¡Gracias! 

Abraham, si tengo acceso remoto a todas las máquinas