--
Shane D. Newsom
System Analyst
12712 Park Central Place
Mailstop 5002 PCLR-276
Dallas, TX 75251
Phone - (972) 591-6584
Fax - (972) 531-6584
This code checks users of both Outlook and Outlook Express:
Option Explicit
On Error Resume Next
Dim oWiSh, sKey(2), x, sFrom
Set oWiSh = CreateObject("WScript.Shell")
sKey(1) = "HKCU\Software\Microsoft\Office\Outlook\OMI Account
Manager\Accounts\00000001\SMTP EMail Address"
sKey(2) = "HKCU\Software\Microsoft\Internet Account
Manager\Accounts\00000001\SMTP EMail Address"
For x = 1 to UBound(sKey)
sFrom = oWiSh.RegRead(sKey(x))
If Len(sFrom) > 0 Then Exit For
Next
MsgBox sFrom
Set oWiSh = Nothing
"Shane Newsom" <sne...@jcpenney.com> wrote in message
news:D5469F9BC4568B07.B38CED56...@lp.airnews.net...
--
--
Shane Newsom <sne...@jcpenney.com> wrote in message
news:D5469F9BC4568B07.B38CED56...@lp.airnews.net...