Const FILE_NAME = "\AutomatedMailTool.xlsm"
Const WB_NAME = "AutomatedMailTool.xlsm"
Const PROC_NAME = "Start_Send_Mail"
Const PARAM01 = "Send"

'ファイルシステムオブジェクト
Dim FSO

'自フォルダのパス
Dim FileFullPath
Dim OwnPath

Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
OwnPath = FSO.getParentFolderName(WScript.ScriptFullName)
FileFullPath = OwnPath & FILE_NAME

'OwnPath = FSO.GetFolder(".").Path
'FileFullPath = OwnPath.Path & FILE_NAME


Dim xlsApp
Dim xlWorkbook

Set xlsApp = WScript.CreateObject("Excel.Application")
xlsApp.Visible = false

Set xlWorkbook = xlsApp.Workbooks.Open(FileFullPath)
xlWorkbook.Worksheets("処理実行シート").Cells(12, 3).Value = PARAM01
'xlsApp.Run "AutomatedMailTool.xlsm!Start_Send_Mail" 
xlsApp.Run "Start_Send_Mail" 

xlWorkbook.Save
xlWorkbook.Close
xlsApp.Quit

Set xlWorkbook  = Nothing
Set xlsApp = Nothing
MsgBox "メール送信処理完了", vbOK

WScript.Quit