ImportFromFileAndSend secundario ()
objFSO dévil como objeto, _
objFile1 como objeto, _
objFile2 como objeto, _
olkMsg como objeto, _
strBuffer como secuencia, _
arrParts como variante, _
strTable como secuencia
Fijar el objFSO = CreateObject (“Scripting.FileSystemObject”)
“En la línea siguiente corregir el nombre de fichero y la trayectoria.”
Fijar objFile1 = objFSO.OpenTextFile (“C:\eeTesting\masterfile.txt ")
Hacer hasta objFile1.AtEndOfStream
strBuffer = objFile1.ReadLine
los arrParts = partieron (strBuffer, “; ")
Fijar el olkMsg = Application.CreateItem (el olMailItem)
Con el olkMsg
“En la línea siguiente corregir la trayectoria del archivo.”
Fijar objFile2 = objFSO.OpenTextFile (“C:\eeTesting\” y arrParts (0))
“En la línea cambio siguiente el tema según lo deseado.”
. El tema = “su tema va aquí”
. A = arrParts (1)
.BodyFormat = olFormatHTML
Hacer hasta objFile2.AtEndOfStream
“En la línea siguiente corregir el HTML según lo deseado.”
strTable = strTable y ““y objFile2.ReadLine y” | | “
Lazo
“En la línea siguiente corregir el mensaje según lo deseado.”
.HTMLBody = “hola,
Nombre del software | Comentarios | “y strTable y”
Respetos Somename "
. Exhibición
Extremo con
objFile2.Close
Lazo
Fijar el olkMsg = nada
Fijar objFile1 = nada
Fijar objFile2 = nada
Fijar el objFSO = nada
Terminar el submarino
|