' ShareFile.vbs
dim objArgs, FSO, oOutlook, oMail
Dim sFileName, sMailBody


Set oOutlook = CreateObject("Outlook.Application")
Set FSO = CreateObject("Scripting.FileSystemObject")
sMailBody = "Here is the link(s) to download file(s)"

Set objArgs = WScript.Arguments
For I =  0  to objArgs.Count -  1 
	sFileName = FSO.GetFileName(objArgs(I))
	FSO.CopyFile objArgs(I), "\\FTPServer\files\"
	sMailBody = sMailBody & chr( 13 ) & chr( 10 ) & "ftp://ftp.server.com/download/" & sFileName 

Next
set oMail = oOutlook.CreateItem( 0 )
oMail.Body = sMailBody
oMail.Subject = "Link to download"
oMail.Display