Pytanie : Vbs/HTA email (Html) opierać się dalej przodować prześcieradło

Cześć Ekspert,

Can I zadawalać dostawać niektóre pomoc na tmy tmy nadmieniony requirement.

We patrzeć dla pismo che czytać the data od the przodować prześcieradło i chwytać the nazwa użytkownika ID wspominać adjecnt the data i wysyłać HTML wspominać poczta tamte nazwa użytkownika ID.

Please pozwalać jeżeli ty wymagać jakaś szczegół na the same.

format przodować szkotowy attached.

Attachments:

Tpxtracker.xls (895 KB)  (Kartoteka Typ Szczegół)  

Excel

Odpowiedź : Vbs/HTA email (Html) opierać się dalej przodować prześcieradło

Tutaj być the zmodyfikowany pismo. Ty właśnie potrzebować the data w the pismo.


OPCJA Wyraźny
Ciemnawy objExcel
Ciemnawy objWorkbook
Ciemnawy CurDate
Ciemnawy objEMail
Ciemnawy excelDate
Ciemnawy strDate
Ciemnawy strEMail
Ustalony objExcel = CreateObject ("Excel.Application")
Ustalony objWorkbook = objExcel.Workbooks.Open _
   (" C:\Tpxtracker.xls ")

Ciemnawy StartDate
StartDate = CDate ("01/14/2010")
Ciemnawy EndDate
EndDate = CDate ("01/31/2010")

Ciemnawy intRow
intRow = 2
CurDate = Data ()
'Wscript.Echo "Data Data: " & CurDate
Do objExcel.Cells (intRow, 9).Value = ""
   'Wscript.Echo "Email: " & objExcel.Cells (intRow, 6).Value
   'Wscript.Echo "Data: " & objExcel.Cells (intRow, 9).Value
   excelDate = objExcel.Cells (intRow, 9).Value
   strEMail = objExcel.Cells (intRow, 6).Value
   Jeżeli StartDate <>= excelDate wtedy
        Ustalony objEmail = CreateObject ("CDO.Message")
       objEmail.From = "[email protected]"
       objEmail.To = strEMail
       objEmail.Subject = "Powitanie"
        objEmail.HTMLBody = "Powitanie the Firma."
       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 "Poczta wysyłać" & strEMail
   Kończyć Jeżeli
   intRow = intRow + (1)
Pętla

objExcel.Quit