'SendEmailMessage.vbs

Option Explicit
Dim objOutlook, clsMessage, clsRecipient, objOutlookAttach

Open Outlook Session
Set objOutlook=CreateObject("Outlook.Application")
Set clsMessage=objOutlook.CreateItem(0) 'Value of 0=MailItem

With clsMessage
Set clsRecipient=clsmessage.Recipients.Add("%InternetEmailAccount")
clsRecipient.type=1 'Value of 1="To"
clsMessage.Body="Here you go!"
clsMessage.Importance=2 'Value of 2=Important
Set objOutlookAttach=Attachments.Add(\\%servername%\%sharename%\%file.txt%")

clsRecipient.Resolve
If not clsRecipient.Resolve Then
  clsMessage.Display
End If
  clsMessage.Send
End With

Set clsMessage=Nothing
Set objOutlook=Nothing
WScript.Quit