Make a message alert with ding sound using Microsoft Office assistant popup

Share this post
FaceBook  Twitter  Mixx.mn     


Make a message alert with ding sound using Microsoft Office assistant popup, use following code:
Code:

strAgentName = "MERLIN"
strAgentPath = "C:\Windows\Msagent\Chars\" & strAgentName & ".acs"
Set objAgent = CreateObject("Agent.Control.2")

objAgent.Connected = TRUE
objAgent.Characters.Load strAgentName, strAgentPath
Set objPeter = objAgent.Characters.Character(strAgentName)

objPeter.MoveTo 500,300
objPeter.Show

objPeter.Play "GetAttention"
objPeter.Play "GetAttentionReturn"

objPeter.Speak("You got a message, script provided by Automation.ultimatetimepass.com")

Wscript.Sleep 2000

Set objAction= objPeter.Hide

Do While objPeter.Visible = True
Wscript.Sleep 250
Loop