test-email.vbs

Const MSG_RECIPIENT_LIST = "some-email@gmail.com"
Const MSG_SUBJECT = "Some Subject"
Const MSG_BODY = "Testing"
 
Dim olkApp, olkSes, olkMsg
Set olkApp = CreateObject("Outlook.Application")
Set olkSes = olkApp.GetNamespace("MAPI")
olkSes.Logon olkApp.DefaultProfileName
Set olkMsg = olkApp.CreateItem(0)
With olkMsg
    .To = MSG_RECIPIENT_LIST
    .Subject = MSG_SUBJECT
    .HTMLBody = MSG_BODY
    .Send
End With
olkSes.Logoff
Set olkMsg = Nothing
Set olkSes = Nothing
Set olkApp = Nothing