home | get Sue’s code | forums | share code | registration

Outlook Technologies

Outlook Forms

Languages

Samples

More Outlook Resource Sites

Microsoft Developer Network (MSDN)

FAQs and other general resources

share code 09-Feb-2010 10:06

Looking for help with Outlook programming projects — VSTO, add-ins, VBA, custom Outlook forms, etc.? You′ve come to the right place!

NEW! >> Subscribe to this site via RSS. For more RSS options, see the complete list of feeds on our main news page.

Code level: advanced Code area: Outlook Expert Techniques Printer Friendly Version
Title: Retrieving the Default Profile from the registry
Description: Code retrieves the default profile from the Windows registry. Windows stores the information in at least 2 places which is why I use the constant string and also allow for an optional fully qualified key as an input parameter. Basically, it looks like NT inserts \Windows NT\CurrentVersion in the middle of the string. Both ends are otherwise identical. The important key is Windows Messaging Subsystem.
Date: 23-Oct-2003 08:59
Code level: advanced
Code area: Outlook Expert Techniques
Posted by: Gary Winey
Body: Private Const HighLevelKey = "HKCU\Software\Microsoft##ReplaceMe##\Windows Messaging Subsystem\Profiles\DefaultProfile" Private Const ReplaceMe = "##ReplaceMe##" Function GetDefaultProfile(Optional ByVal RegistryKey As String) As String Dim WshShell As Object Dim lngX As Long Dim lngErr As Long Dim strTemp As String Dim strReturn As String Dim blnFound As Boolean On Error Resume Next 'Handle errors here Set WshShell = CreateObject("Wscript.Shell") RegistryKey = Trim$(RegistryKey) If Len(RegistryKey) Then strReturn = WshShell.RegRead(RegistryKey) 'Check parm value If Err.Number = 0 Then GetDefaultProfile = strReturn On Error GoTo 0 Exit Function Else Err.Clear End If End If Do While True Select Case lngX Case 0 strTemp = Replace$(HighLevelKey, ReplaceMe, "\Windows NT\CurrentVersion") Case 1 strTemp = Replace$(HighLevelKey, ReplaceMe, vbNullString) End Select strReturn = WshShell.RegRead(strTemp) 'For WindowsNT systems lngErr = Err.Number ' MsgBox "Temp: " & strTemp & vbCrLf & "Return: " & strReturn & vbCrLf & "Error: " & Err.Number & " " & Err.Description ' Debug.Print "Temp: " & strTemp & vbCrLf & "Return: " & strReturn & vbCrLf & "Error: " & Err.Number & " " & Err.Description & vbCrLf If lngErr = 0 Then blnFound = True 'Key found Exit Do ElseIf lngX Then 'Key not found Exit Do End If Err.Clear lngX = lngX + 1 Loop Set WshShell = Nothing Err.Clear If blnFound Then GetDefaultProfile = strReturn End If On Error GoTo 0 End Function 'GetDefaultProfile
All 4comments

	Page [ 1 ]
	marco marco 10-Nov-2003 05:54 I am so interested about the subject you are writing..but before analyzing your code, I would like to ask you if you can explain me what is gotten from such code ???...is it the profile or/and the password ???......waiting your response thanks
	Sue Mosher 10-Nov-2003 18:48 Looks to me like Gary's code returns the name of the user's default profile.
	vishal joshi 03-Jun-2005 02:39 How to get the default Signature name
	Sue Mosher 03-Jun-2005 10:01 Vishal, see the sample at http://www.outlookcode.com/codedetail.aspx?id=615
	Page [ 1 ]

name email

Search Outlook Code