Thank you!, now I know how to do, but now I need to restrict access to a certain folder with vba
Aqui esta el ejemplo:
Public WithEvents myOlFolders As Outlook.Folders
Public Sub Application_Startup()
Set myOlFolders = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Folders
End Sub
Private Sub myOlFolders_FolderAdd(ByVal Folder As Outlook.MAPIFolder)
If InStr(1, Trim(UCase(Folder.FolderPath)), Trim(UCase("Solutions")), vbTextCompare) <> 0 Then
MsgBox "Can't Create Folder in Solutions Folder"
Folder.Delete
End If
End Sub