禁止删除outlook 2007/2010 vba中的文件夹

我的一些同事从共享收件箱中删除了一些文件夹，这让我抓狂

我要求他们更加小心，但他们就是不给一个^%&*。因此，我在所有用户身上安装了一个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

---

它告诉我：“对象不生成自动化事件”

我设法重新创建了错误。通过从MAPI文件夹中删除MAPI修复了此问题

Public WithEvents objCritFolder_EIE_E3Imp As Outlook.Folder

---

“不源”-您不能这样做-您尝试向其中添加自动化事件的对象不支持自动化事件。您好，谢谢您，它可以正常工作。问题是有时有效，有时无效。我创建了一个子init（）来声明所有文件夹，并将call init放入应用程序的启动中，但它不接受它。我必须手动运行init sub才能工作。