Вопрос : Vbs/HTA для посылки электронная почта (HTML) основанного дальше первенствуют лист

Ответ : Vbs/HTA для посылки электронная почта (HTML) основанного дальше первенствуют лист

Здесь доработанный сценарий. Вам как раз нужно изменить даты в сценарии.


ВАРИАНТ точный
Тусклое objExcel
Тусклое objWorkbook
Тусклое CurDate
Тусклое objEMail
Тусклое excelDate
Тусклое strDate
Тусклое strEMail
Установите objExcel = CreateObject («Excel.Application»)
Установите objWorkbook = _ objExcel.Workbooks.Open
   (" C:\Tpxtracker.xls ")

Затемните StartDate
StartDate = CDate («01/14/2010»)
Тусклое EndDate
EndDate = CDate («01/31/2010»)

Тусклое intRow
intRow = 2
CurDate = дата ()
Дата 'Wscript.Echo «сегодняшняя: » & CurDate
Не сделать до objExcel.Cells (intRow, 9).Value = ""
   Электронная почта 'Wscript.Echo «: » & objExcel.Cells (intRow, 6).Value
   Дата 'Wscript.Echo «: » & objExcel.Cells (intRow, 9).Value
   excelDate = objExcel.Cells (intRow, 9).Value
   strEMail = objExcel.Cells (intRow, 6).Value
   Если StartDate <>= excelDate после этого
        Установите objEmail = CreateObject («CDO.Message»)
       objEmail.From = «[email protected]»
       objEmail.To = strEMail
       objEmail.Subject = «гостеприимсво»
        objEmail.HTMLBody = «гостеприимсво к компании.»
       _ objEmail.Configuration.Fields.Item
           (" http://schemas.microsoft.com/cdo/configuration/sendusing ") = 2
       _ objEmail.Configuration.Fields.Item
           (" http://schemas.microsoft.com/cdo/configuration/smtpserver ") = _
               «smtpservername»
        _ objEmail.Configuration.Fields.Item
           (" http://schemas.microsoft.com/cdo/configuration/smtpserverport ") = 25
       objEmail.Configuration.Fields.Update
       objEmail.Send
       Wscript.echo «почта посланная к» & strEMail
   Закончитесь если
   intRow = intRow + 1
Петля

objExcel.Quit