Enabling a Folder for Mail

[Visual Basic]
Sub EnableFolder(DomainName As String, _
                 FolderName As String)
                                        
    'DomainName is something like "MyDomain.wherever.com"
    'FolderName is something like "Public Folders/Folder3"
    
    Dim objFolder As New CDO.Folder
    Dim objRecip As CDOEXM.IMailRecipient
    Dim fullurl As String

    'fullurl might look like:
    ' "file://./backofficestorage/MyDomain.wherever.com/Public Folders/Folder3"
    fullurl = "file://./backofficestorage/" + _
              DomainName + "/" + FolderName

    objFolder.DataSource.Open fullurl, , adModeReadWrite, adFailIfNotExists
    Set objRecip = objFolder
    objRecip.MailEnable
    objFolder.DataSource.Save
    
End Sub
Enabling a Folder for Mail

Example
