Cuestión : Vbs/HTA para enviar el email (HTML) basado encendido sobresalen la hoja

Hola los expertos,

Can que consigo por favor una cierta ayuda en requirement.

We están buscando la escritura que leerá la fecha de la hoja del sobresalir y capturan la identificación de la conexión mencionaron el adjecnt a la fecha y envían un correo formatado HTML a esos la conexión ID.

Please me dejan saber si usted requiere cualesquiera detalles en el same.

format de sobresale la hoja attached.

 class= " lastRow del
>Attachments del " nombre " del class= del class= " valor " del
del >
class= " fileInfo " del
el title= " del " nombre de fichero del class= " del Tpxtracker.xls el class= (895 KB)  Javascript del href= " de los " attachmentDetails del class= " del (tipo de archivo detalles)  
class= " descripción " del
Excel
el class= de
del >
class= del

Respuesta : Vbs/HTA para enviar el email (HTML) basado encendido sobresalen la hoja

Aquí está la escritura modificada. Usted apenas necesita cambiar las fechas en la escritura.


OPCIÓN explícita
objExcel dévil
objWorkbook dévil
CurDate dévil
objEMail dévil
excelDate dévil
strDate dévil
strEMail dévil
Fijar el objExcel = CreateObject (“Excel.Application”)
Fijar el objWorkbook = el _ de objExcel.Workbooks.Open
   (“C:\Tpxtracker.xls ")

Amortiguar StartDate
StartDate = CDate (“01/14/2010”)
EndDate dévil
EndDate = CDate (“01/31/2010”)

intRow dévil
intRow = 2
CurDate = fecha ()
'Fecha de hoy de Wscript.Echo “: ” Y CurDate
Hacer hasta objExcel.Cells (intRow, 9).Value = el ""
   'Email de Wscript.Echo “: ” y objExcel.Cells (intRow, 6).Value
   'Fecha de Wscript.Echo “: ” y objExcel.Cells (intRow, 9).Value
   excelDate = objExcel.Cells (intRow, 9).Value
   strEMail = objExcel.Cells (intRow, 6).Value
   Si StartDate <>= excelDate después
        Fijar el objEmail = CreateObject (“CDO.Message”)
       objEmail.From = “[email protected]”
       objEmail.To = strEMail
       objEmail.Subject = “recepción”
        objEmail.HTMLBody = “recepción a la compañía.”
       _ de objEmail.Configuration.Fields.Item
           (“http://schemas.microsoft.com/cdo/configuration/sendusing ") = 2
       _ de objEmail.Configuration.Fields.Item
           (“http://schemas.microsoft.com/cdo/configuration/smtpserver ") = _
               “smtpservername”
        _ de objEmail.Configuration.Fields.Item
           (“http://schemas.microsoft.com/cdo/configuration/smtpserverport ") = 25
       objEmail.Configuration.Fields.Update
       objEmail.Send
       Wscript.echo “correo enviado a” y strEMail
   Terminar si
   intRow = intRow + 1
Lazo

objExcel.Quit
Otras soluciones  
 
programming4us programming4us