[Petya V4sechkin]

• [решено] Не запускаются автоматически командные файлы из Планировщика заданий
• Не работает bat в планировщике заданий
• Scheduled task won't run .bat file

В указанное в расписании время запуск не производится.

Как определили?

Ошибки тоже нет.

Планировщик -> меню Дополнительно -> Просмотреть журнал -> там что?

[MioZo]

Первые два поста изучал, третий анализирую (перевожу переводчиком).

Приведу содержимое батника 2007.cmd:

Код:

 taskkill /IM outlook.exe
start /D"%ProgramFiles%\Microsoft Office\Office12" OUTLOOK.EXE /autorun AutoSendMail

Что в указанное время запуск не производится определил по результату (не создается исходящее сообщение в Outlook, создаваемое макросом AutoSendMail).

Фрагмент журнала:
"User(AutoSend)..job" (2007.cmd)
Закончилось в 31.08.2011 17:28:06
Итог: Задание завершено с кодом (0).
[ ***** Самая последняя запись находится над этой строкой ***** ]

Спасибо за наводки, изучаю проблему, пока не решил.

[Petya V4sechkin]

MioZo, содержимое AutoSendMail выложите?

[MioZo]

Код:

Function GetAttach()
  Dim strPath
  Dim arrFiles
    strPath = "C:\test"
    Set arrFiles = CreateObject("Shell.Application").NameSpace(strPath).Items
    arrFiles.Filter 64, "*.xls"
    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

Function GetBoiler(ByVal sFile As String) As String
   Dim fso As Object
    Dim ts As Object
   Set fso = CreateObject("Scripting.FileSystemObject")
  Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
  GetBoiler = ts.readall
  ts.Close
End Function

Sub AutoSendMail()
' Working in Office 2000-2010
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
    Dim SigString As String
    Dim Signature As String

    Set OutApp = CreateObject("Outlook.Application")
    Outlook.ActiveWindow.WindowState = 1
    Set OutMail = OutApp.CreateItem(0)
       
    strbody = "<H3><B></B></H3>" & _
              "Суточный отчет.<br>" & _
              "Подразделение.<br>

    SigString = "C:\Documents and Settings\" & Environ("username") & _
                "\Application Data\Microsoft\Signatures\UserName.htm"

    If Dir(SigString) <> "" Then
    Signature = GetBoiler(SigString)

    Else
        Signature = ""
    End If

    On Error Resume Next
    With OutMail
        .To = "adress@domain"
        .CC = ""
        .BCC = ""
        .Subject = "This is the Subject line"
        .HTMLBody = strbody & "<br><br>" & Signature
        .Attachments.Add GetAttach
        .Send   'or use .Display
    End With

    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

[severagent007]

Учётка должна иметь пароль, иначе не выполняет задания, хоть и создаёт

[MioZo]

Используются доменные УЗ (в т.ч. в указанном случае). Требования к сложности пароля.
Крыжик "Выполнять только при выполненном входе в систему", как понимаю, и "подставляет" пользователя и пароль в Job'е.