如何取得 Outlook Express 裡使用者所設定的 E-Mail 信箱帳號



來源網址:如何取得 Outlook Express 裡使用者所設定的 E-Mail 信箱帳號

從登錄檔中讀取

HKCU\Software\Microsoft\Internet Account Manager\Accounts\00000001
HKCU\Software\Microsoft\Internet Account Manager\Accounts\00000002

依此類推,端看有多少使用者!

===========

=VB.Net 寫法 :=

===========

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

MessageBox.Show (GetEmailBox)

End Sub

Private Function GetEmailBox() As String

Dim strKey As String = “HKCU\Software\Microsoft\Internet Account Manager\Accounts\”

Dim bytLoop As Byte

On Error Resume Next

With CreateObject(”WScript.Shell”)

For bytLoop = 1 To 255

GetEmailBox &= .RegRead(strKey & Format(bytLoop, “00000000″) & “\SMTP Email Address”) & vbCrLf

If Err.Number > 0 Then Exit For

Next

End With

End Function

=========

=VB6 寫法 :=

=========

Dim strMail As String

Dim objWshShell As Object

Dim bytLoop As Byte

Set objWshShell = CreateObject(”WScript.Shell”)

On Error Resume Next

With objWshShell

For bytLoop = 1 To 255

strMail = strMail & .RegRead(”HKCU\Software\Microsoft\Internet Account Manager\Accounts\” & _

Format(bytLoop, “00000000″) & “\SMTP Email Address”) & vbCrLf

If Err Then Exit For

Next

End With

Set objWshShell = Nothing

MsgBox strMail

Leave a Reply

CAPTCHA 驗證圖片
更換一張圖片