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):
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):
- Aprire Outlook e digitare Alt+F11
- Fare click di destra su Progetto1 > Inserisci > Modulo
- Copiare il seguente script all’interno della finestra che si è aperta:
-
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
PropName =
"http://schemas.microsoft.com/mapi/proptag/0x3613001E"
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
- Premere F5
A questo punto sul vostro cellulare vedrete tutte le cartelle del vostro acccount!!!