Do you have to enter pw in Outlook?

[jdickens]

$PW = "monkeynuggets"
$PWWinTitle = "Enter Password"
$PWWinText  = "Please enter password now."
AdlibEnable("BringToFront")

Func BringToFront()
    If WinExists("Enter Network Password", "") Then
        WinSetOnTop("Enter Network Password", "", 0)
    EndIf
    If WinExists($PWWinTitle, $PWWinText) Then
        WinSetOnTop($PWWinTitle, $PWWinText, 1)
    EndIf
    Sleep(100)
EndFunc

While 1
    If WinExists("Enter Network Password") And $PW = "monkeynuggets" Then
        $PW = InputBox($PWWinTitle, $PWWinText, "", "*", -1, -1, 10, 10)
    EndIf
    If WinExists("Enter Network Password") Then
        ControlSend("Enter Network Password", "", 350, "^a")
        ControlSend("Enter Network Password", "", 350, "^x")
        ControlSend("Enter Network Password", "", 350, $PW)
        ControlSend("Enter Network Password", "", 350, "{ENTER}")
    EndIf
    Sleep(100)
WEnd

I have the same password for a couple email accounts outside the office.

Put this executable in startup folder.

This lets me enter the password once, and that's it for the day.

Any tip on how to put my window on top of Outlook's pw window?

J