Okręt podwodny ImportFromFileAndSend ()
Ciemnawy objFSO Jako Przedmiot, _
objFile1 Jako Przedmiot, _
objFile2 Jako Przedmiot, _
olkMsg Jako Przedmiot, _
strBuffer Jako Sznurek, _
arrParts Jako Wariant, _
strTable Sznurek
Ustalony objFSO = CreateObject ("Scripting.FileSystemObject")
"Na the następny linia redagować the kartoteka - imię i ścieżka."
Ustawiać objFile1 = objFSO.OpenTextFile ("C:\eeTesting\masterfile.txt ")
Do objFile1.AtEndOfStream
strBuffer = objFile1.ReadLine
arrParts = Rozłam (strBuffer, "; ")
Ustalony olkMsg = Application.CreateItem (olMailItem)
Z olkMsg
"Na the następny linia redagować the kartoteka ścieżka."
Ustawiać objFile2 = objFSO.OpenTextFile ("C:\eeTesting\" & arrParts ((0)))
"Na the następny kreskowy zmiana the temat pragnąć."
. Temat = "Twój Temat Iść Tutaj"
. = arrParts (1)
.BodyFormat = olFormatHTML
Do objFile2.AtEndOfStream
"Na the następny linia redagować the HTML pragnąć."
strTable = strTable & ""& objFile2.ReadLine &" | | "
Pętla
"Na the następny linia redagować the wiadomość pragnąć."
.HTMLBody = "Cześć,
Oprogramowanie Imię | Komentarz | "& strTable &"
Uwzględnienie Somename "
. Pokaz
Końcówka Z
objFile2.Close
Pętla
Ustalony olkMsg = Nic
Set objFile1 = Nic
Set objFile2 = Nic
Ustalony objFSO = Nic
Końcówka Okręt podwodny
|