Vraag : Vbs/HTA die e-mail (HTML) te verzenden wordt gebaseerd op blink blad uit

Hallo die zoeken de Deskundigen,

Can ik één of andere hulp op tmy onderstaande vermelde requirement.

We gelieve te worden manuscript dat zal lezen de datum van blad uitblinkt en login id's vangt adjecnt aan de datum worden vermeld en een HTML geformatteerde post naar die login ID.
Please/>

format van blad attached.

uitblinken

Attachments:

van

Tpxtracker.xls (895 KB)  (de Details van het Type van Dossier)  

Excel

Antwoord : Vbs/HTA die e-mail (HTML) te verzenden wordt gebaseerd op blink blad uit

Hier is het gewijzigde manuscript. U moet enkel de data in het manuscript veranderen.


Expliciete OPTIE
Schemerige objExcel
Schemerige objWorkbook
Schemerige CurDate
Schemerige objEMail
Schemerige excelDate
Schemerige strDate
Schemerige strEMail
Reeks objExcel = CreateObject („Excel.Application“)
Reeks objWorkbook = objExcel.Workbooks.Open _
   („C:\Tpxtracker.xls“)

Schemerige StartDate
StartDate = CDate („01/14/2010“)
Schemerige EndDate
EndDate = CDate („01/31/2010“)

Schemerige intRow
intRow = 2
CurDate = Datum ()
De Datum 'Wscript.Echo „Van vandaag: “ & CurDate
Doe tot objExcel.Cells (intRow, 9). Waarde = ""
   'Wscript.Echo „E-mail: “ & objExcel.Cells (intRow, 6). Waarde
   Datum 'Wscript.Echo „: “ & objExcel.Cells (intRow, 9). Waarde
   excelDate = objExcel.Cells (intRow, 9). Waarde
   strEMail = objExcel.Cells (intRow, 6). Waarde
   Als StartDate <>= excelDate toen
        Reeks objEmail = CreateObject („CDO.Message“)
       objEmail.From = „[email protected]“
       objEmail.To = strEMail
       objEmail.Subject = „Onthaal“
        objEmail.HTMLBody = „Onthaal aan het Bedrijf.“
       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 „Post wordt verzonden die naar“ & strEMail
   Eind als
   intRow = intRow + 1
Lijn

objExcel.Quit