Pergunta : Vbs/HTA para emitir o email (HTML) baseado sobre primam a folha

Olá! os peritos,

Can que eu começ por favor alguma ajuda em requirement.

We estão procurando o certificado que lerá a data da folha primar e capturam a identificação do início de uma sessão mencionaram o adjecnt à data e emitem a um correio formatado HTML aos aqueles o início de uma sessão ID.

Please deixam-me saber se você exige quaisquer detalhes no same.

format de prima a folha attached.

 class= do " lastRow do
>Attachments do " nome " do class= do class= " valor " do
>
class= " fileInfo " do
o title= " do " nome de arquivo do class= " do Tpxtracker.xls o class= (895 KB)  Javascript " do href= " dos " attachmentDetails do class= do (tipo de lima detalhes)  
class= " descrição " do
Excel
o class= de
do >
class= do

Resposta : Vbs/HTA para emitir o email (HTML) baseado sobre primam a folha

Está aqui o certificado modificado. Você apenas precisa de mudar as datas no certificado.


OPÇÃO explícita
objExcel não ofuscante
objWorkbook não ofuscante
CurDate não ofuscante
objEMail não ofuscante
excelDate não ofuscante
strDate não ofuscante
strEMail não ofuscante
Ajustar o objExcel = o CreateObject (“Excel.Application”)
Ajustar o objWorkbook = o _ de objExcel.Workbooks.Open
   (“C:\Tpxtracker.xls ")

Escurecer StartDate
StartDate = CDate (“01/14/2010”)
EndDate não ofuscante
EndDate = CDate (“01/31/2010”)

intRow não ofuscante
intRow = 2
CurDate = data ()
Data de hoje 'de Wscript.Echo “: ” & CurDate
Fazer até objExcel.Cells (intRow, 9). Valor = ""
   Email 'de Wscript.Echo “: ” & objExcel.Cells (intRow, 6). Valor
   Data 'de Wscript.Echo “: ” & objExcel.Cells (intRow, 9). Valor
   excelDate = objExcel.Cells (intRow, 9). Valor
   strEMail = objExcel.Cells (intRow, 6). Valor
   Se StartDate <>= excelDate então
        Ajustar o objEmail = o CreateObject (“CDO.Message”)
       objEmail.From = “[email protected]”
       objEmail.To = strEMail
       objEmail.Subject = “boa vinda”
        objEmail.HTMLBody = “boa vinda à companhia.”
       _ 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 “correio emitido a” & strEMail
   Terminar se
   intRow = intRow + 1
Laço

objExcel.Quit
Outras soluções  
 
programming4us programming4us