This message is displayed as VB.NET
Sub ListForms(fld As Outlook.MAPIFolder)
Dim strList As String
' requires reference to Collaboration Data Objects library
' (CDO 1.21)
Dim cdoSession As MAPI.Session
Dim cdoFolder As MAPI.folder
Dim cdoFilter As MAPI.MessageFilter
Dim cdoMessages As MAPI.Messages
Dim cdoMessage As MAPI.Message
Const CdoPR_Form_Name = &H6800001E
On Error Resume Next
Set cdoSession = CreateObject("MAPI.Session")
cdoSession.Logon "", "", False, False
Set cdoFolder = cdoSession.GetFolder(fld.EntryID, fld.storeID)
Set cdoMessages = cdoFolder.HiddenMessages
For Each cdoMessage In cdoMessages
If cdoMessage.Type = _
"IPM.Microsoft.FolderDesign.FormsDescription" Then
strList = strList & vbCrLf & _
cdoMessage.Fields(CdoPR_Form_Name).Value
End If
Next
If Len(strList) > 0 Then
strList = Mid(strList, 2)
Else
strList = "No forms found in folder"
End If
MsgBox strList, vbInformation, "Forms in " & fld.Name & " folder"
cdoSession.Logoff
Set cdoSession = Nothing
Set cdoFolder = Nothing
Set cdoMessage = Nothing
Set cdoMessages = Nothing
End Sub
|