Lync Notes

[zone97]

Here is a very simple little program I made for fun, Lets you change your Lync Note to something random or predefined.  In the ini file, change NoteNo to a number greater than 0 to have the note always be the same quote. 0 or blank will randomly pick one.

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=lync notes.ico
#AutoIt3Wrapper_Run_Tidy=y
#Tidy_Parameters=/tc 4 /reel
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

$LyncTitle = "Microsoft Lync"

If WinExists($LyncTitle) And FileExists(@ScriptDir & "\lync notes.ini") Then
    $CurMouse = MouseGetPos()

    $LyncPos = WinGetPos($LyncTitle)

    $qArray = IniReadSection(@ScriptDir & "\lync notes.ini", "Quotes")
    $nN = IniRead(@ScriptDir & "\lync notes.ini", "Lync", "NoteNo", "")
    $rN = Round(Random(1, $qArray[0][0]), 0)

    If $nN < 1 Then
        $Note = $qArray[$rN][1]
    Else
        $Note = $qArray[$nN][1]
    EndIf

    ClipPut($Note)
    WinActivate($LyncTitle)
    MouseClick("Left", $LyncPos[0] + 20, $LyncPos[1] + 62, 1, 1)
    Send("^v")
    ClipPut("")
    MouseMove($CurMouse[0], $CurMouse[1], 1)
EndIf

 

lync notes.ico

lync notes.ini

[barkeeper]

Nice one, thanks.

Had to change a few things to get this working for the new Skype for Business.

Mainly :

$LyncTitle = "Skype for Business"

 MouseClick("Left", $LyncPos[0] + 20, $LyncPos[1] + 52, 1, 1)

I also made sure the old title was removed, before the new one was added and the focus was taken off the status part of the screen :

ClipPut($Note)
    WinActivate($LyncTitle)
    MouseClick("Left", $LyncPos[0] + 20, $LyncPos[1] + 52, 1, 1)
    Send("^a")
 Send("{del}")
 Send("^v")
    ClipPut("")
    MouseMove($CurMouse[0], $CurMouse[1], 1)
 MouseClick("Left", "", "", 1, 1)