ImportFromFileAndSend secundário ()
objFSO não ofuscante como o objeto, _
objFile1 como o objeto, _
objFile2 como o objeto, _
olkMsg como o objeto, _
strBuffer como a corda, _
arrParts como a variação, _
strTable como a corda
Ajustar o objFSO = o CreateObject (“Scripting.FileSystemObject”)
“Na linha seguinte editar o nome de arquivo e o trajeto.”
Ajustar objFile1 = objFSO.OpenTextFile (“C:\eeTesting\masterfile.txt ")
Fazer até objFile1.AtEndOfStream
strBuffer = objFile1.ReadLine
arrParts = separação (strBuffer, “; ")
Ajustar o olkMsg = o Application.CreateItem (o olMailItem)
Com olkMsg
“Na linha seguinte editar o trajeto da lima.”
Ajustar objFile2 = objFSO.OpenTextFile (“C:\eeTesting\” & arrParts (0))
“Na linha mudança seguinte o assunto como desejado.”
. O assunto = “seu assunto vai aqui”
. = arrParts (1)
.BodyFormat = olFormatHTML
Fazer até objFile2.AtEndOfStream
“Na linha seguinte editar o HTML como desejado.”
strTable = strTable & ““& objFile2.ReadLine &” | | “
Laço
“Na linha seguinte editar a mensagem como desejada.”
.HTMLBody = “olá!,
Nome do software | Comentários | “& strTable &”
Considerações Somename "
. Exposição
Extremidade com
objFile2.Close
Laço
Ajustar o olkMsg = nada
Ajustar objFile1 = nada
Ajustar objFile2 = nada
Ajustar o objFSO = nada
Terminar o submarino
|