UnderImportFromFileAndSend ()
Dunkel objFSO som anmärker, _,
objFile1 som anmärker, _,
objFile2 som anmärker, _,
olkMsg som anmärker, _,
strBuffer som stränger, _,
arrParts som varianten, _,
strTable som stränger
Fastställd objFSO = CreateObject (”Scripting.FileSystemObject”)
”På det nästa fodra redigerar spara - namnge och banan.”,
Uppsättning objFile1 = objFSO.OpenTextFile (”C:\eeTesting\masterfile.txt”)
Gör till objFile1.AtEndOfStream
strBuffer = objFile1.ReadLine
arrParts = splittring (strBuffer, ”; ”)
Fastställd olkMsg = Application.CreateItem (olMailItem)
Med olkMsg
”På det nästa fodra redigerar sparabanan.”,
Uppsättning objFile2 = objFSO.OpenTextFile (”C:\eeTesting\” & arrParts (0))
”På det nästa fodra ändring betvinga som önskad.”,
. Betvinga = ”ditt betvingar går här”,
. Att = arrParts (1)
.BodyFormat = olFormatHTML
Gör till objFile2.AtEndOfStream
”På det nästa fodra redigerar HTMLEN som önskad.”,
strTable = strTable & ”,”& objFile2.ReadLine &”, | | ”,
Kretsa
”På det nästa fodra redigerar meddelandet som önskat.”,
.HTMLBody = ”Hi,
Känd programvara | Kommentarer | ”& strTable &”,
Hälsningar Somename ",
. Skärm
Avsluta med
objFile2.Close
Kretsa
Fastställd olkMsg = ingenting
Uppsättning objFile1 = ingenting
Uppsättning objFile2 = ingenting
Fastställd objFSO = ingenting
Avsluta suben
|