Send mail in Outlook through the vbs?

Dim objOutlook
Dim objOutlookMsg
Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
objOutlookMsg.To = "test@domain.com"
objOutlookMsg.CC = ""
objOutlookMsg.BCC = ""
objOutlookMsg.Subject = " Build Notification Started"
objOutlookMsg.Body = "Dear ASP Manager, Build Notification Started"
 objOutlookMsg.Attachments.Add "D:\test.txt"
objOutlookMsg.Send