FAQ

Lorem ipsum dolor sit amet, consectetur adipiscing elit.

Visualizzare tutte le cartelle di Exchange sul cellulare impostare da IPF.Imap a IPF.Note ( Iphone – Android – WinPhone)

Può capitare che impostando un account exchange su un dispositivo mobile non vengano visualizzate tutte le cartelle create dall’utente.
Il problema è da ricercarsi nel formato delle cartelle.
Bisogna cambiare il formato delle cartelle da IPF.Imap a IPF.Note.
Per farlo basta eseguire questi semplici passaggi (previo aver configurato l’account di cui si vogliono visualizzare le cartelle su un pc con outlook da 2007 in poi):

  1. Aprire Outlook e digitare Alt+F11
  2. Fare click di destra su Progetto1 > Inserisci > Modulo
  3. Copiare il seguente script all’interno della finestra che si è aperta:
  4. Option Explicit
    Dim SubFolder As MAPIFolder
    Sub ChangeFolderClassAllSubFolders()
    Dim i As Long
    Dim iNameSpace As NameSpace
    Dim myOlApp As Outlook.Application
    Dim ChosenFolder As Object
    Dim Folders As New Collection
    Dim EntryID As New Collection
    Dim StoreID As New Collection
    Set myOlApp = Outlook.Application
    Set iNameSpace = myOlApp.GetNamespace("MAPI")
    Set ChosenFolder = iNameSpace.PickFolder
    If ChosenFolder Is Nothing Then
    GoTo ExitSub:
    End If
    Call GetFolder(Folders, EntryID, StoreID, ChosenFolder)
    ChangeFolderContainer
    For i = 1 To Folders.Count
    Set SubFolder = myOlApp.Session.GetFolderFromID(EntryID(i), StoreID(i))
    On Error Resume Next
    ChangeFolderContainer
    On Error GoTo 0
    Next i
    ExitSub:
    End Sub
    Private Sub ChangeFolderContainer()
    Dim oFolder As Outlook.folder
    Dim oPA As Outlook.PropertyAccessor
    Dim PropName, Value, folderType As String
    Value = "IPF.Note"
    On Error Resume Next
    Set oFolder = SubFolder 'Application.ActiveExplorer.CurrentFolder
    Set oPA = oFolder.PropertyAccessor
    folderType = oPA.GetProperty(PropName)
    Debug.Print SubFolder.Name & " " & (folderType)
    If folderType = "IPF.Imap" Then
    oPA.SetProperty PropName, Value
    Debug.Print " Changed: " & SubFolder.Name & " " & Value
    End If
    Set oFolder = Nothing
    Set oPA = Nothing
    End Sub
    Sub GetFolder(Folders As Collection, EntryID As Collection, StoreID As Collection, Fld As MAPIFolder)
    Dim SubFolder As MAPIFolder
    Folders.Add Fld.FolderPath
    EntryID.Add Fld.EntryID
    StoreID.Add Fld.StoreID
    For Each SubFolder In Fld.Folders
    GetFolder Folders, EntryID, StoreID, SubFolder
    Next SubFolder
    ExitSub:
    Set SubFolder = Nothing
    End Sub
  5. Premere F5

A questo punto sul vostro cellulare vedrete tutte le cartelle del vostro acccount!!!

 

Follow

© 2024 N.S. S.a.s. di Mangogna Sergio & C.

HOME         PRODOTTI         SOLUZIONI         FAQ         LINKS         DOWNLOADS         CONTATTI

P.zza Cav. di Vitt. Veneto, 28
20090 Buccinasco (MI)

P.IVA 11768670157

info@nssas.it

+39 02 36 55 1606