Delete a Module in Outlook Project

Question

Can I delete an Outlook VBA Module?

I have tried the below code:

Dim vbMod As Object

Set vbMod = Application.VBE.ActiveVBProject.VBComponents
vbMod.Rem         


        

Answer 1

Try this.

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

To test it:

Sub Test()
    DeleteModule "ModuleName"
End Sub