Frage : Vbs/HTA, zum der eMail (HTML) zu senden an gegründet übertreffen Blatt

Hallo suchen Experten,

Can, das ich bitte etwas Hilfe auf tmy below erwähntem requirement.

We erhalte, nach Index, der des Datums vom übertreffenblatt liest und nehmen die LOGON Identifikation erwähnten adjecnt zum Datum und schicken eine HTML formatierte Post zu jenen LOGON ID.

Please informieren mich gefangen, wenn Sie irgendwelche Details über das same.

format von übertreffen Blatt attached.

fordern

Attachments:

Tpxtracker.xls (895 KBS)  (Akten-Art Details)  

Excel

Antwort : Vbs/HTA, zum der eMail (HTML) zu senden an gegründet übertreffen Blatt

Ist hier der geänderte Index. Sie müssen gerade die Daten im Index ändern.


WAHL ausdrücklich
Schwaches objExcel
Schwaches objWorkbook
Schwaches CurDate
Schwaches objEMail
Schwaches excelDate
Schwaches strDate
Schwaches strEMail
objExcel = CreateObject („Excel.Application“) einstellen
objWorkbook = objExcel.Workbooks.Open _ einstellen
   („C:\Tpxtracker.xls ")

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

Schwaches intRow
intRow = 2
CurDate = Datum ()
'Wscript.Echo „heutiges Datum: “ U. CurDate
Bis objExcel.Cells (intRow, 9).Value = "" tun
   'Wscript.Echo „eMail: “ u. objExcel.Cells (intRow, 6).Value
   'Wscript.Echo „Datum: “ u. objExcel.Cells (intRow, 9).Value
   excelDate = objExcel.Cells (intRow, 9).Value
   strEMail = objExcel.Cells (intRow, 6).Value
   Wenn StartDate <>= excelDate dann
        objEmail = CreateObject („CDO.Message“) einstellen
       objEmail.From = „[email protected]“
       objEmail.To = strEMail
       objEmail.Subject = „Willkommen“
        objEmail.HTMLBody = „Willkommen zur 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 „Post geschickt zu“ u. strEMail
   Beenden wenn
   intRow = intRow + 1
Schleife

objExcel.Quit