Send mail using VBScript(outlook)

    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