Как заставить Consultant+ автообновляться и отсылать последний созданный USR файл после обновления на email...
Нашел где-то - сохранил в блокноте.
Как заставить обновляться каждое утро в 2.00?
При этом в папке RECIEVE создается новый файлик- так вот его бы отправить на email...
Option Explicit
Dim objShell, objEmail
Dim strFrom, strTo, strServer, strUsername, strPassword, strFilename, strSubject, strMessage
strFrom = "consultant@kamaprom.ru"
strTo = "updates@gmail.com"
strServer = "gmail.com"
'strUsername = "my login here"
'strPassword = "my password here"
strFilename = "D:\Consultant\RECEIVE\CONS#1_000000.USR"
strSubject = "Отчёт об обновлении"
strMessage = "Это автоматический отчёт об обновлении. Пожалуйста, не отвечайте на это письмо."
' Generate a report
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.CurrentDirectory = "D:\ConsPlus\"
objShell.Run("D:\ConsPlus\cons.exe /adm /usr /base* /yes")
Set objShell = Nothing
' Send it to email
Set objEmail = CreateObject("CDO.Message")
objEmail.From = strFrom
objEmail.To = strTo
objEmail.BodyPart.Charset = "windows-1251"
objEmail.Subject = strSubject
objEmail.TextBody = strMessage
objEmail.AddAttachment strFilename
'objEmail.Configuration.Fields.Item _
' ("
http://schemas.microsoft.com/c...") = 1
objEmail.Configuration.Fields.Item _
("
http://schemas.microsoft.com/c...") = 2
objEmail.Configuration.Fields.Item _
("
http://schemas.microsoft.com/c...") = strServer
objEmail.Configuration.Fields.Item _
("
http://schemas.microsoft.com/c...") = 25
'objEmail.Configuration.Fields.Item _
' ("
http://schemas.microsoft.com/c...") = 1
'objEmail.Configuration.Fields.Item _
' ("
http://schemas.microsoft.com/c...")= strUsername
'objEmail.Configuration.Fields.Item _
' ("
http://schemas.microsoft.com/c...") = strPassword
objEmail.Configuration.Fields.Update
objEmail.Send
Set objEmail = Nothing