Fråga : Vbs/HTA som överför e-posten (Html) som baseras på, överträffar täcker

Svar : Vbs/HTA som överför e-posten (Html) som baseras på, överträffar täcker

Är här ändrad skrivar. Du behöver precis att ändra daterar i skriva.


Explicit ALTERNATIV
Dunkel objExcel
Dunkel objWorkbook
Dunkla CurDate
Dunkel objEMail
Dunkel excelDate
Dunkel strDate
Dunkel strEMail
Fastställd objExcel = CreateObject (”Excel.Application”)
Fastställd objWorkbook = objExcel.Workbooks.Open-_,
   (”C:\Tpxtracker.xls”)

Dunkla StartDate
StartDate = CDate (”01/14/2010”)
Dunkla EndDate
EndDate = CDate (”01/31/2010”)

Dunkel intRow
intRow = 2
CurDate = daterar ()
'Dagens Wscript.Echo ”daterar: ” & CurDate
Gör till objExcel.Cells (intRow, 9). Värdera = "",
   'Wscript.Echo-”e-post: ” & objExcel.Cells (intRow, 6). Värdera
   'Wscript.Echo ”daterar: ” & objExcel.Cells (intRow, 9). Värdera
   excelDate = objExcel.Cells (intRow, 9). Värdera
   strEMail = objExcel.Cells (intRow, 6). Värdera
   Om StartDate <>= excelDate därefter
        Fastställd objEmail = CreateObject (”CDO.Message”)
       objEmail.From = ”[email protected]”,
       objEmail.To = strEMail
       objEmail.Subject = ”välkomnande”,
        objEmail.HTMLBody = ”välkomnande till företaget.”,
       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 ”postar överfört till” & strEMail
   Avsluta om
   intRow = intRow + 1
Kretsa

objExcel.Quit