[NEOINFORMATIONIS]

ISKA, я столкнулся с одной очень неприятной проблемой, и ломаю над этим голову.
Скрипт который вы мне сделали работает хорошо, НО, проблема заключается в том, что данный документ которую нужно будет отправить на почту через (vbs скрипт) появляется не сразу а через некоторое время, точно предугадать время появлении нет возможности. И по этому думаю как бы сделать так,чтобы этот скрипт (vbs.) который и должен отправить на почту появившийся документ, проверял на наличии этого самого документа и только потом его отправлял на почту?!

ISKA, ВОЗМОЖНО ДОПИСАТЬ В ЭТОМ КОДЕ , ЧТОБЫ ПЕРЕД ОТПРАВКОЙ НА ПОЧТУ ОНА ПРОВЕРЯЛА ЭТОТ ДОКУМЕНТ В ЭТОЙ ЖЕ ПАПКЕ ... НА СУЩЕСТВОВАНИИ ДАННОГО ДОКУМЕНТА, КАК ТОЛЬКО ДОКУМЕНТ ПОЯВИТСЯ ОН СРАЗУ ЖЕ ОТПРАВИТ НА ПОЧТУ, А ДО ТЕХ ПОР БУДЕТ ЖДАТЬ ЕГО ПОЯВЛЕНИЯ!
А вот и сам код:

Option Explicit

Const cdoSendUsingPort = 2
Const cdoBasic = 1

Const strConstPartOfSchema = "http://schemas.microsoft.com/cdo/configuration/"


Dim strSourceFile

strSourceFile = "C:\Users\Admin\Documents\honestech TVR\документ.txt"

With WScript.CreateObject("Scripting.FileSystemObject")
If .FileExists(strSourceFile) Then
With WScript.CreateObject("CDO.Message")
.From = "dostupmne@bk.ru"
.To = "dostupdai@bk.ru"
.Subject = "File [" & strSourceFile & "]"

.TextBody = "Мама мыла раму"
.TextBodyPart.Charset = "windows-1251"

.AddAttachment strSourceFile

With .Configuration.Fields
.Item(strConstPartOfSchema & "smtpserver") = "smtp.mail.ru"
.Item(strConstPartOfSchema & "sendusing") = cdoSendUsingPort
.Item(strConstPartOfSchema & "smtpserverport") = 465
.Item(strConstPartOfSchema & "smtpauthenticate") = cdoBasic
.Item(strConstPartOfSchema & "sendusername") = "dostupmne@bk.ru"
.Item(strConstPartOfSchema & "sendpassword") = "***12345qwW***"
.Item(strConstPartOfSchema & "smtpusessl") = True

.Update
End With

.Send
End With
Else
WScript.Echo "Source file [" & strSourceFile & "] not found."
WScript.Quit 1
End If
End With

WScript.Quit 0