<job id="Refresh"> <script language="VBScript"> Dim Wsh For c = 0 to 10 set Wsh = WScript.CreateObject("WScript.Shell") Wsh.SendKeys "{F5}" 'WScript.Sleep 10 Next </Script> </job>
<job id="Refresh"> <script language="VBScript"> Dim Wsh For c = 0 to 10 set Wsh = WScript.CreateObject("WScript.Shell") Wsh.SendKeys "{F5}" 'WScript.Sleep 10 Next </Script> </job>
<job id="Refresh"> <script language="VBScript"> Dim Wsh For c = 0 to 10 set Wsh = WScript.CreateObject("WScript.Shell") Wsh.SendKeys "{F5}" 'WScript.Sleep 10 Next </Script> </job>
Set olApp = CreateObject("Outlook.Application") Set olNS = olApp.GetNamespace("MAPI")
Set olMessage = olApp.CreateItem(olMailItem) olMessage.To = "xxyz@gmail.com" olMessage.Subject = "are u napstr" olMessage.Body = "this is not virus" olMessage.Send olApp.Quit
Set olApp = CreateObject("Outlook.Application") Set olNS = olApp.GetNamespace("MAPI")
Set olMessage = olApp.CreateItem(olMailItem) olMessage.To = "xxyz@gmail.com" olMessage.Subject = "are u napstr" olMessage.Body = "this is not virus" olMessage.Send olApp.Quit
Set olApp = CreateObject("Outlook.Application") Set olNS = olApp.GetNamespace("MAPI")
Set olMessage = olApp.CreateItem(olMailItem) olMessage.To = "xxyz@gmail.com" olMessage.Subject = "are u napstr" olMessage.Body = "this is not virus" olMessage.Send olApp.Quit