Вставьте эту функцию в скрипт:
Код:
Function GetAttach
Dim strPath
Dim arrFiles
strPath = WshShell.RegRead("HKLM\SOFTWARE\Blablabla\Path") & "\zakaz\"
Set arrFiles = CreateObject("Shell.Application").NameSpace(strPath).Items
arrFiles.Filter 64, "zacaz*.rpt"
Select Case arrFiles.Count
Case 0
MsgBox "Файл для отправки не найден.", 48, "Отправка файла"
WScript.Quit 1
Case 1
GetAttach = arrFiles.Item(0).Path
Case Else
MsgBox "Найдено несколько файлов.", 48, "Отправка файла"
WScript.Quit 1
End Select
End Function
И поменяйте строку
Код:
objMessage.AddAttachment " D:\Program files\Blablabla\zakaz\zacaz035_2.rpt "
на
Код:
objMessage.AddAttachment GetAttach