Question : Vbs/HTA pour envoyer l'email (HTML) basé dessus excellent la feuille

Réponse : Vbs/HTA pour envoyer l'email (HTML) basé dessus excellent la feuille

Voici le manuscrit modifié. Vous devez juste changer les dates dans le manuscrit.


OPTION explicite
Faible objExcel
Faible objWorkbook
Faible CurDate
Faible objEMail
Faible excelDate
Faible strDate
Faible strEMail
Placer l'objExcel = le CreateObject (« Excel.Application »)
Placer l'objWorkbook = le _ d'objExcel.Workbooks.Open
   (" C:\Tpxtracker.xls ")

Obscurcir StartDate
StartDate = CDate (« 01/14/2010 »)
Faible EndDate
EndDate = CDate (« 01/31/2010 »)

Faible intRow
intRow = 2
CurDate = date ()
'Date d'aujourd'hui de Wscript.Echo « :  » Et CurDate
Faire jusqu'à objExcel.Cells (intRow, 9).Value = ""
   'Email de Wscript.Echo « :  » et objExcel.Cells (intRow, 6).Value
   'Date de Wscript.Echo « :  » et objExcel.Cells (intRow, 9).Value
   excelDate = objExcel.Cells (intRow, 9).Value
   strEMail = objExcel.Cells (intRow, 6).Value
   Si StartDate <>= puis excelDate
        Placer l'objEmail = le CreateObject (« CDO.Message »)
       objEmail.From = « [email protected] »
       objEmail.To = strEMail
       objEmail.Subject = « bienvenue »
        objEmail.HTMLBody = « bienvenue à la compagnie. »
       _ d'objEmail.Configuration.Fields.Item
           (" http://schemas.microsoft.com/cdo/configuration/sendusing ") = 2
       _ d'objEmail.Configuration.Fields.Item
           (" http://schemas.microsoft.com/cdo/configuration/smtpserver ") = _
               « smtpservername »
        _ d'objEmail.Configuration.Fields.Item
           (" http://schemas.microsoft.com/cdo/configuration/smtpserverport ") = 25
       objEmail.Configuration.Fields.Update
       objEmail.Send
       Wscript.echo « courrier envoyé à » et strEMail
   Finir si
   intRow = intRow + 1
Boucle

objExcel.Quit