Lo script l\'ho creato, lo allego, magari a qualcuno puņ servire. Non ero a conoscenza del parametro u della convert, proverņ.
Grazie mille a tutti
Forall v In db.Views
Set view = v
If view.IsFolder=True Then
If view.Name<>"(Regole)" _
And view.Name<>"($JunkMail)" _
And view.Name<>"($Inbox)" _
And view.Name<>"($Trash)" _
And view.Name<>"(Diario di gruppo)" _
And view.Name<>"($Alarms)" Then
Set vc = view.AllEntries
Set view2 = db2.GetView(view.Name)
If view2 Is Nothing Then
Msgbox"Non recuperata folder "+view.Name
Else
Call vc.PutAllInFolder(view2.name)
End If
End If
End If
End Forall
|