Function Main()

	Dim objExcel, objWB, objSheet, rowNum
	Dim objMail

	' Open and check the spreadsheet for data
	Set objExcel = CreateObject("Excel.Application") 
	Set objWB = objExcel.Workbooks.Open("C:\Threshold Quantity Data\F-PG Restock.xls")
	Set objSheet = objExcel.ActiveWorkbook.Worksheets(1) 

	rowNum = objSheet.UsedRange.Rows.Count
	
	' Close the workbook and exit the application. 
	objWB.Close 
	objExcel.Quit 

	set objWB = Nothing 
	set objExcel = Nothing

	' Don't send the data file if it only contains a header row (column names)
	If(rowNum > 1) Then
		Set objMail =  CreateObject("CDO.Message")
		With objMail
			.From = "<email address here>"
			.To = "<email address here>"
			.Bcc = "<email address here>"
			.Subject = "Regina PG - Parts List For Reorder" 
			.Textbody = "The Available Quantity of some parts is equal to or less then the Quantity Threshold.  Please review the attached file."
			.AddAttachment("file://C:\Threshold Quantity Data\F-PG Restock.xls")
			.Send
		End With
		Set objMail = nothing
	End If

	Main = DTSTaskExecResult_Success
End Function