Windows Scripting - Как узнать имя MAPI-профайла по умолчанию

Подписка на рассылку

Лучше смотреть с Microsoft Internet Explorer 4.0 и выше

Как узнать имя MAPI-профайла по умолчанию?

Самый простой способ программно открыть сессию CDO - это указать имя MAPI-профайла. К сожалению, CDO не предоставляет возможности узнать имена профайлов.

Рассмотрим простой способ получения имени MAPI-профайла по умолчанию - извлечем его из Registry. Единственная тонкость - эта информация хранится там в разных ключах, в зависимости от типа операционной системы.

Листинг: profile.vbs

Option Explicit

Function GetDefaultMapiProfile()
	Dim Shell
	Set Shell = WScript.CreateObject("WScript.Shell")

	Dim RegKey9x, RegKeyNT
	RegKey9x = _
		"HKCU\Software\Microsoft\Windows Messaging Subsystem\" & _
		"Profiles\DefaultProfile"
	RegKeyNT = _
		"HKCU\Software\Microsoft\Windows NT\CurrentVersion\" & _
		"Windows Messaging Subsystem\Profiles\DefaultProfile"
	
	On Error Resume Next
	Err.Clear
	GetDefaultMapiProfile = Shell.RegRead(RegKey9x)
	If Err.Number <> 0 Then 
		Err.Clear
		GetDefaultMapiProfile = Shell.RegRead(RegKeyNT)
		If Err.Number <> 0 Then GetDefaultMapiProfile = ""
	End If
	
	Set Shell = Nothing
End Function

MsgBox GetDefaultMapiProfile