VB.NET get mail server

[scorpion53061]

Is there a registry setting that I can read in vb.net for windows platforms
that will give me the default mail server for the computer (e.g.
mail.charter.ne t)

[scorpion53061]

Never mind I found it.

"scorpion53 061" <sc************ @yahoo.com> wrote in message
news:OR******** ******@TK2MSFTN GP10.phx.gbl...

Is there a registry setting that I can read in vb.net for windows platforms that will give me the default mail server for the computer (e.g.
mail.charter.ne t)

[Cor]

Hi Scorpion,
Yes and what was it, if I had known it I had told you so contribute it
please
:-)
Cor

[scorpion53061]

I am rewriting the code will post it shortly.......

"Cor" <no*@non.com> wrote in message
news:OG******** ******@tk2msftn gp13.phx.gbl...

Hi Scorpion,
Yes and what was it, if I had known it I had told you so contribute it
please
:-)
Cor

[scorpion53061]

Cor,
This will work but I am sure it will only work on my machine. Do you have
any idea on how to make this work on other machines?

Try
regKey =
Registry.Users. OpenSubKey("S-1-5-21-1343024091-706699826-854245398-500\Softw
are\Microsoft\I nternet Account Manager\Account s\00000001", True)
ver = regKey.GetValue ("SMTP Server")
MsgBox(ver)

Catch ex As Exception
MsgBox(ex.ToStr ing)
regKey.Close()
Exit Sub
End Try
regKey.Close()
Exit Sub

"Cor" <no*@non.com> wrote in message
news:OG******** ******@tk2msftn gp13.phx.gbl...

Hi Scorpion,
Yes and what was it, if I had known it I had told you so contribute it
please
:-)
Cor

[scorpion53061]

I think the answer is to loop through USER and find the value of "SMTP
Server" and then grab its value.
I will try to write this........if anyone wants to help please jump in......

"scorpion53 061" <sc************ @yahoo.com> wrote in message
news:OM******** ******@tk2msftn gp13.phx.gbl...

Cor,
This will work but I am sure it will only work on my machine. Do you have
any idea on how to make this work on other machines?

Try
regKey =
Registry.Users. OpenSubKey("S-1-5-21-1343024091-706699826-854245398-500\Softw are\Microsoft\I nternet Account Manager\Account s\00000001", True)
ver = regKey.GetValue ("SMTP Server")
MsgBox(ver)

Catch ex As Exception
MsgBox(ex.ToStr ing)
regKey.Close()
Exit Sub
End Try
regKey.Close()
Exit Sub

"Cor" <no*@non.com> wrote in message
news:OG******** ******@tk2msftn gp13.phx.gbl...

Hi Scorpion,
Yes and what was it, if I had known it I had told you so contribute it
please
:-)
Cor

[scorpion53061]

Will this code return the smtp server on Windows 98, Me, 2000?
Any other things I should know?
Try
regKey =
Registry.Curren tUser.OpenSubKe y("Software\Mic rosoft\Internet Account
Manager\Account s\00000001", True)
ver = regKey.GetValue ("SMTP Server")
MsgBox(ver)
Exit Sub
Catch ex As Exception
MsgBox(ex.ToStr ing)
regKey.Close()
Exit Sub
End Try
regKey.Close()
Exit Sub
"Cor" <no*@non.com> wrote in message
news:OG******** ******@tk2msftn gp13.phx.gbl...

Hi Scorpion,
Yes and what was it, if I had known it I had told you so contribute it
please
:-)
Cor

[Fergus Cooney]

Hi Scorpion,

When I looked in my registry under
HKCU\Software\M icrosoft\Intern et Account Manager\Account s\
I found 00000007, 8, 9 etc, but no 00000001.

The earlier ones were deleted. Of the ones that are there, some are for
mail and some are for news.

The good news is that there is a key
HKCU\....\Inter net Account Manager\Default Mail Account
which gives the account number as a string. In my case it's 00000007.

The code below worked for me (on Win2000).
Perhaps some others could try it out.

Regards,
Fergus

<code>
Dim regKey As RegistryKey
Dim sSmtpServer As String
Try
regKey = Registry.Curren tUser.OpenSubKe y _
("Software\Micr osoft\Internet Account Manager", False)
Dim sMailAccount As String _
= regKey.GetValue ("Default Mail Account")
regKey.Close()

regKey = Registry.Curren tUser.OpenSubKe y _
("Software\Micr osoft\Internet Account Manager" _
& "\Accounts\ " & sMailAccount, False)
sSmtpServer = regKey.GetValue ("SMTP Server")

Catch ex As Exception
MsgBox(ex.ToStr ing)
Finally
If Not regKey Is Nothing Then _
regKey.Close()
End Try
</code>

[scorpion53061]

Fergus,
You were dead on balls accurate here. ......:) Thank you for your help.....

"Fergus Cooney" <fi*****@post.c om> wrote in message
news:%2******** *******@TK2MSFT NGP11.phx.gbl.. .

Hi Scorpion,

When I looked in my registry under
HKCU\Software\M icrosoft\Intern et Account Manager\Account s\
I found 00000007, 8, 9 etc, but no 00000001.

The earlier ones were deleted. Of the ones that are there, some are for mail and some are for news.

The good news is that there is a key
HKCU\....\Inter net Account Manager\Default Mail Account
which gives the account number as a string. In my case it's 00000007.

The code below worked for me (on Win2000).
Perhaps some others could try it out.

Regards,
Fergus

<code>
Dim regKey As RegistryKey
Dim sSmtpServer As String
Try
regKey = Registry.Curren tUser.OpenSubKe y _
("Software\Micr osoft\Internet Account Manager", False)
Dim sMailAccount As String _
= regKey.GetValue ("Default Mail Account")
regKey.Close()

regKey = Registry.Curren tUser.OpenSubKe y _
("Software\Micr osoft\Internet Account Manager" _
& "\Accounts\ " & sMailAccount, False)
sSmtpServer = regKey.GetValue ("SMTP Server")

Catch ex As Exception
MsgBox(ex.ToStr ing)
Finally
If Not regKey Is Nothing Then _
regKey.Close()
End Try
</code>

[Cor]

Hi Fergus,
It works as a fish in the water,
Four little changes, not real in the code, but if you want to show it
others, I think you tested it in the debugger.

<code> imports microsoft.win32
.... Dim regKey As RegistryKey
Dim sSmtpServer As String
Try
regKey = Registry.Curren tUser.OpenSubKe y _
("Software\Micr osoft\Internet Account Manager", False)
Dim sMailAccount As String _
= regKey.GetValue ("Default Mail Account") ..toString regKey.Close()

regKey = Registry.Curren tUser.OpenSubKe y _
("Software\Micr osoft\Internet Account Manager" _
& "\Accounts\ " & sMailAccount, False)
sSmtpServer = regKey.GetValue ("SMTP Server") ..toString
messagebox.show (sSmtp.Server)
Catch ex As Exception
MsgBox(ex.ToStr ing)
Finally
If Not regKey Is Nothing Then _
regKey.Close()
End Try
</code>

Nice it is in my snippets
Cor