删除Outlook项目中的模块 [英] Delete a Module in Outlook Project
本文介绍了删除Outlook项目中的模块的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
我可以删除Outlook VBA模块吗?
Can I delete an Outlook VBA Module?
我尝试了以下代码:
Dim vbMod As Object
Set vbMod = Application.VBE.ActiveVBProject.VBComponents
vbMod.Remove VBComponent:=vbMod.Item("Module2")
但是出现错误:
438错误,对象不支持此属性或方法
438 Error, Object doesn't support this property or method
这可以使用Outlook VBA完成吗,并且要包含任何参考吗?
Can this be done with Outlook VBA and are there any References to be included?
推荐答案
尝试一下.
您将需要添加对 Microsoft Visual Basic for Applications Extensibility 5.3 的引用.
You will need to add a reference to Microsoft Visual Basic for Applications Extensibility 5.3.
Public Sub DeleteModule(ByVal ModuleName As String)
On Error GoTo Trap
Dim VBAEditor As VBIDE.VBE
Dim objProject As VBIDE.VBProject
Dim objComponent As VBIDE.VBComponent
Set VBAEditor = Application.VBE
Set objProject = VBAEditor.ActiveVBProject
For Each objComponent In objProject.VBComponents
If objComponent.Name = ModuleName Then
objComponent.Collection.Remove objComponent
End If
Next
Leave:
On Error GoTo 0
Exit Sub
Trap:
MsgBox Err.Description, vbCritical
Resume Leave
End Sub
要测试:
Sub Test()
DeleteModule "ModuleName"
End Sub
这篇关于删除Outlook项目中的模块的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文