Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations TouchToneTommy on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Help - lost Exchange 5.5 form password

Status
Not open for further replies.

KirkSi

IS-IT--Management
Nov 17, 2002
2
US
I not too long ago took over a couple of Exchange 5.5 servers that had some custom forms in the public folders. The guy that did the customization is long gone and management wants me to make some changes to the form.

I'm no programmer, but from what I can tell the password is stored in plain text. I just don't know how to read it. Anyone have a utility or script that will read this?

Thanks in advance - Kirk
 

You need to add the following macro into Outlook. And run it against the form. (Its been a while since i've used it, so i can't remember the exact process)

Sub GetFormPassword()
Dim objApp As Application
Dim objInsp As Inspector
Dim objFD As FormDescription

Set objApp = CreateObject("Outlook.Application")
Set objInsp = objApp.ActiveInspector
If Not objInsp Is Nothing Then
Set objFD = objInsp.CurrentItem.FormDescription
MsgBox _
Prompt:="The password for the " & _
Chr(34) & objFD.MessageClass & _
Chr(34) & " form is:" & _
vbCrLf & vbCrLf & objFD.Password, _
Title:="Get Form Password"

Else
MsgBox _
Prompt:="Please open an item using " & _
"the desired form before you " & _
"run the GetFormPassword macro.", _
Title:="Get Form Password"
End If


Set objFD = Nothing
Set objNS = Nothing
Set objApp = Nothing
End Sub
 
Thank you very much. That worked like a champ.
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top