Cacher is the code snippet organizer for pro developers

' http://www.rgagnon.com/wshdetails/wsh-0018.html
' http://www.rgagnon.com/wshdetails/wsh-0002.html
' http://www.bernhard-ehlers.de/projects/OutlookSecurity.html

' Get full filepath from 1st argument
Dim Full_Filename
Dim Filename
Set objArgs = WScript.Arguments
if WScript.Arguments.Count=0 then
  WScript.Quit 1
end if
' WScript.Echo objArgs(0)
Full_Filename = objArgs(0)

' Parse to simple filename
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(Full_Filename)
Filename = objFSO.GetFileName(objFile)
Set objFile = Nothing
Set objFSO = Nothing

' Start to mail
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = Filename
objMessage.From = "your_name@your_domain.com.tw"
objMessage.To = "your_name@your_domain.com"
objMessage.TextBody = "Send " & Filename & " via Outlook+Calibre"
objMessage.AddAttachment Full_Filename
objMessage.Send

WScript.Echo "Mail successed!"