Questione : Vbs/HTA per trasmettere il email (HTML) basato sopra eccellono lo strato

Ciao gli esperti, il

Can che ottengo prego un certo aiuto su requirement.

We stanno cercando lo scritto che leggerà la data dallo strato di supremazia e bloccano l'identificazione di inizio attività hanno accennato il adjecnt alla data e trasmettono ad una posta formattata HTML ai quei l'inizio attività ID.

Please lo lasciano sapere se richiedete qualunque particolari sul same.

format di eccellete lo strato attached.

 class= " lastRow del
>Attachments " di nome " del class= del class= " valore " del
il

class= " fileInfo " del
il title= " " di nome di schedario del class= " di Tpxtracker.xls il class= (895 KB)  Javascript " del href= " " dei attachmentDetails del class= di (tipo di lima particolari)  
class= " descrizione " del
Excel
il class= di
del >
class= del

Risposta : Vbs/HTA per trasmettere il email (HTML) basato sopra eccellono lo strato

Qui è lo scritto modificato. Dovete appena cambiare le date nello scritto.


OPZIONE esplicita
objExcel fioco
objWorkbook fioco
CurDate fioco
objEMail fioco
excelDate fioco
strDate fioco
strEMail fioco
Regolare il objExcel = CreateObject (“Excel.Application„)
Regolare il objWorkbook = il _ di objExcel.Workbooks.Open
   (" C:\Tpxtracker.xls ")

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

intRow fioco
intRow = 2
CurDate = data ()
Odierna data 'di Wscript.Echo “: „ & CurDate
Fare fino a objExcel.Cells (intRow, 9).Value = ""
   Email 'di Wscript.Echo “: „ & objExcel.Cells (intRow, 6).Value
   Data 'di Wscript.Echo “: „ & objExcel.Cells (intRow, 9).Value
   excelDate = objExcel.Cells (intRow, 9).Value
   strEMail = objExcel.Cells (intRow, 6).Value
   Se StartDate <>= excelDate allora
        Regolare il objEmail = CreateObject (“CDO.Message„)
       objEmail.From = “[email protected]„
       objEmail.To = strEMail
       objEmail.Subject = “benvenuto„
        objEmail.HTMLBody = “benvenuto all'azienda.„
       _ di objEmail.Configuration.Fields.Item
           (" http://schemas.microsoft.com/cdo/configuration/sendusing ") = 2
       _ di objEmail.Configuration.Fields.Item
           (" http://schemas.microsoft.com/cdo/configuration/smtpserver ") = _
               “smtpservername„
        _ di objEmail.Configuration.Fields.Item
           (" http://schemas.microsoft.com/cdo/configuration/smtpserverport ") = 25
       objEmail.Configuration.Fields.Update
       objEmail.Send
       Wscript.echo “posta trasmessa a„ & strEMail
   Concluder se
   intRow = intRow + 1
Ciclo

objExcel.Quit
Altre soluzioni  
 
programming4us programming4us