Sub ImportFromFileAndSend ()
Schemerige objFSO als Voorwerp, _
objFile1 als Voorwerp, _
objFile2 als Voorwerp, _
olkMsg als Voorwerp, _
strBuffer als Koord, _
arrParts als Variant, _
strTable als Koord
Reeks objFSO = CreateObject („Scripting.FileSystemObject“)
„Op de volgende lijn geef het dossier uit - naam en weg.“
Plaats objFile1 = objFSO.OpenTextFile („C:\eeTesting\masterfile.txt“)
Doe tot objFile1.AtEndOfStream
strBuffer = objFile1.ReadLine
arrParts = verdeel (strBuffer, „; “)
Reeks olkMsg = Application.CreateItem (olMailItem)
Met olkMsg
„Op de volgende lijn geef de dossierweg uit.“
Plaats objFile2 = objFSO.OpenTextFile („C:\eeTesting\“ & arrParts (0))
„Op de volgende lijn verander het onderwerp zoals gewenst.“
. Het onderwerp = „Uw Onderwerp gaat hier“
. Aan = arrParts (1)
.BodyFormat = olFormatHTML
Doe tot objFile2.AtEndOfStream
„Op de volgende lijn geef HTML uit zoals gewenst.“
strTable = strTable & „„& objFile2.ReadLine &“ | | „
Lijn
„Op de volgende lijn geef het bericht uit zoals gewenst.“
.HTMLBody = „hallo,
De Naam van de software | Commentaren | „& strTable &“
Achting Somename "
. Vertoning
Eind met
objFile2.Close
Lijn
Reeks olkMsg = niets
Vastgesteld objFile1 = niets
Vastgesteld objFile2 = niets
Reeks objFSO = niets
Sub van het eind
|