Como ver la ruta completa de carpetas donde esta guardado un mensaje de outllok 365
Buscar un mensaje que este ubicado en esa carpeta perdida
CTRL + SHIFT + F
Cuando encontramos mail lo abrimos, luego creamos y ejecutamos el siguiente macro que nos indicara la ruta completa de carpetas:
ALT + F8 para abrir venta de macros (da un nombre, pega el código, graba y ejecútalo)
Public Sub GetItemsFolderPath()
Dim obj As Object
Dim F As Outlook.MAPIFolder
Dim Msg$
Set obj = Application.ActiveWindow
If TypeOf obj Is Outlook.Inspector Then
Set obj = obj.CurrentItem
Else
Set obj = obj.Selection(1)
End If
Set F = obj.Parent
Msg = "The path is: " & F.FolderPath & vbCrLf
Msg = Msg & "Switch to the folder?"
If MsgBox(Msg, vbYesNo) = vbYes Then
Set Application.ActiveExplorer.CurrentFolder = F
End If
End Sub
script encontrado en: http://vboffice.net/en/developers/get-the-message-folder/
Public Sub GetItemsFolderPath()
Dim obj As Object
Dim F As Outlook.MAPIFolder
Dim Msg$
Set obj = Application.ActiveWindow
If TypeOf obj Is Outlook.Inspector Then
Set obj = obj.CurrentItem
Else
Set obj = obj.Selection(1)
End If
Set F = obj.Parent
Msg = "The path is: " & F.FolderPath & vbCrLf
Msg = Msg & "Switch to the folder?"
If MsgBox(Msg, vbYesNo) = vbYes Then
Set Application.ActiveExplorer.CurrentFolder = F
End If
End Sub
script encontrado en: http://vboffice.net/en/developers/get-the-message-folder/
Comentarios