Sign in to follow this  
Followers 0
jdickens

Do you have to enter pw in Outlook?

1 post in this topic

$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


If I am too verbose, just say so. You don't need to run on and on.

Share this post


Link to post
Share on other sites



Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0