Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Старожил


Сообщения: 175
Благодарности: 119

Профиль | Отправить PM | Цитировать


Вставьте эту функцию в скрипт:
Код: Выделить весь код
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

Последний раз редактировалось SendMessage, 20-02-2011 в 10:12.

Это сообщение посчитали полезным следующие участники:

Отправлено: 04:45, 20-02-2011 | #2