Предотвращение удаления папок в Outlook 2007/2010 vba

Question

У меня есть несколько коллег, которые удаляют некоторые папки из общего почтового ящика и сводят меня с ума.

Я попросил их быть более осторожными, но они просто не дают ^% & *. Поэтому я получил vba, чтобы наложить на всех пользователей, чтобы они не удаляли ничего из этого общего почтового ящика, но код не работает.

Любая помощь приветствуется.

Public WithEvents objCritFolder_EIE_E3Imp As Outlook.MAPIFolder 
Public WithEvents objCritFolder_EIE_E3Man As Outlook.MAPIFolder 

Private Sub application_Startup() 
Dim ns As Namespace 
Dim objRootFolder As Outlook.MAPIFolder 

Set ns = Application.GetNamespace("MAPI") 

Set objRootFolder = ns.Folders("MailBox - FOR ALL").Folders("Teams") 
Set objCritFolder_EIE_E3Imp = objRootFolder.Folders("TODAY") 
Set objCritFolder_EIE_E3Man = objRootFolder.Folders("TODAY + 1") 
Set objRootFolder = Nothing 
End Sub 

Private Sub objCritFolder_EIE_E3Imp_BeforeFolderMove(ByVal MoveTo As MAPIFolder, cancel As Boolean) 
Dim strMsg As String 
cancel = True 
strMsg = "You can't move the TODAY folder." 
MsgBox strMsg, vbCritical, "Folder Move Not Allowed" 
End Sub 
Private Sub objCritFolder_EIE_E3Man_BeforeFolderMove(ByVal MoveTo As MAPIFolder, cancel As Boolean) 
Dim strMsg As String 
cancel = True 
strMsg = "You can't move the TODAY + 1 folder." 
MsgBox strMsg, vbCritical, "Folder Move Not Allowed" 
End Sub 

Проблема заключается в:

Public WithEvents objCritFolder_EIE_E3Imp As Outlook.MAPIFolder 
Public WithEvents objCritFolder_EIE_E3Man As Outlook.MAPIFolder 

Это дает мне: "объект не исходные события автоматизации"

Answer 1

мне удалось воссоздать ошибку. Исправлено, удалив MAPI из MAPIFolder.

Public WithEvents objCritFolder_EIE_E3Imp As Outlook.Folder