ImportFromFileAndSend secondario ()
objFSO fioco come oggetto, _
objFile1 come oggetto, _
objFile2 come oggetto, _
olkMsg come oggetto, _
strBuffer come stringa, _
arrParts come variante, _
strTable come stringa
Regolare il objFSO = CreateObject (“Scripting.FileSystemObject„)
“Sulla linea seguente pubblicare il nome di schedario ed il percorso.„
Regolar objFile1 = objFSO.OpenTextFile (“C:\eeTesting\masterfile.txt ")
Fare fino a objFile1.AtEndOfStream
strBuffer = objFile1.ReadLine
i arrParts = hanno spaccato (strBuffer, “; ")
Regolare il olkMsg = Application.CreateItem (olMailItem)
Con olkMsg
“Sulla linea seguente pubblicare il percorso della lima.„
Regolar objFile2 = objFSO.OpenTextFile (“C:\eeTesting\„ & arrParts (0))
“Sulla linea cambiamento seguente l'oggetto come voluto.„
. L'oggetto = “il vostro oggetto va qui„
. A = arrParts (1)
.BodyFormat = olFormatHTML
Fare fino a objFile2.AtEndOfStream
“Sulla linea seguente pubblicare il HTML come voluto.„
strTable = strTable & ““& objFile2.ReadLine &„ | | “
Ciclo
“Sulla linea seguente pubblicare il messaggio come voluto.„
.HTMLBody = “ciao,
Nome del software | Osservazioni | “& strTable &„
Riguardi Somename "
. Esposizione
Estremità con
objFile2.Close
Ciclo
Regolare il olkMsg = niente
Regolar objFile1 = niente
Regolar objFile2 = niente
Regolare il objFSO = niente
Concludere il sommergibile
|