Find Microsoft Outlook type library:
package require registry
package require tcom
set application Outlook.Application
if {[catch {registry get HKEY_CLASSES_ROOT\\$application\\CLSID {}} clsid]} {
puts stderr "registry: $clsid"
exit 1
}
if {[catch {registry get HKEY_CLASSES_ROOT\\CLSID\\$clsid\\Typelib {}} typelib]} {
puts stderr "registry: $typelib"
exit 1
}
if {[catch {registry keys HKEY_CLASSES_ROOT\\TypeLib\\$typelib} keys]} {
puts stderr "registry: $keys"
exit 1
}
set version [lindex [lsort -real $keys] end]
if {[catch {registry get HKEY_CLASSES_ROOT\\Typelib\\$typelib\\$version\\FLAGS {}} flag]} {
puts stderr "registry: $flag"
exit 1
}
if {[catch {registry get HKEY_CLASSES_ROOT\\Typelib\\$typelib\\$version\\$flag\\win32 {}} win32]} {
puts stderr "registry: $win32"
exit 1
}
if {[catch {::tcom::import $win32} olb]} {
puts stderr "tcom: $olb"
exit 1
}
unset clsid typelib keys flag win32Variables of the Type Library: foreach name [info vars ::${olb}::*] {
puts $name
}Will output:::Outlook::OlFormRegistry ::Outlook::OlMailingAddress ::Outlook::OlPermission ::Outlook::OlPermissionService ::Outlook::OlAttachmentType ::Outlook::OlViewType ::Outlook::OlGender ::Outlook::OlUserPropertyType ::Outlook::OlOfficeDocItemsType ::Outlook::OlStoreType ::Outlook::OlTaskStatus ::Outlook::OlRecurrenceType ::Outlook::OlShowItemCount ::Outlook::OlNetMeetingType ::Outlook::OlFlagIcon ::Outlook::OlInspectorClose ::Outlook::OlFlagStatus ::Outlook::OlActionCopyLike ::Outlook::OlFolderDisplayMode ::Outlook::OlTrackingStatus ::Outlook::OlBodyFormat ::Outlook::OlJournalRecipientType ::Outlook::OlMailRecipientType ::Outlook::OlEditorType ::Outlook::OlDaysOfWeek ::Outlook::OlResponseStatus ::Outlook::OlSensitivity ::Outlook::OlPane ::Outlook::OlMeetingStatus ::Outlook::OlSaveAsType ::Outlook::OlActionResponseStyle ::Outlook::__uuidof ::Outlook::OlTaskDelegationState ::Outlook::OlTaskRecipientType ::Outlook::OlTaskOwnership ::Outlook::OlMeetingResponse ::Outlook::OlWindowState ::Outlook::OlActionReplyStyle ::Outlook::OlActionShowOn ::Outlook::OlSyncState ::Outlook::OlBusyStatus ::Outlook::OlExchangeConnectionMode ::Outlook::OlImportance ::Outlook::OlSortOrder ::Outlook::OlNoteColor ::Outlook::OlRecurrenceState ::Outlook::OlDisplayType ::Outlook::OlRemoteStatus ::Outlook::OlItemType ::Outlook::OlDownloadState ::Outlook::OlTaskResponse ::Outlook::OlViewSaveOption ::Outlook::OlDefaultFolders ::Outlook::OlObjectClass ::Outlook::OlMeetingRecipientType ::Outlook::OlOutlookBarViewTypeContents of array ::Outlook::OlFormRegistry:
parray ::Outlook::OlFormRegistryWill output:
::Outlook::OlFormRegistry(olDefaultRegistry) = 0 ::Outlook::OlFormRegistry(olFolderRegistry) = 3 ::Outlook::OlFormRegistry(olOrganizationRegistry) = 4 ::Outlook::OlFormRegistry(olPersonalRegistry) = 2
