VorImportFromFileAndSend ()
Schwaches objFSO als Gegenstand, _
objFile1 als Gegenstand, _
objFile2 als Gegenstand, _
olkMsg als Gegenstand, _
strBuffer als Schnur, _
arrParts als Variante, _
strTable als Schnur
objFSO = CreateObject („Scripting.FileSystemObject“) einstellen
„Auf der folgenden Linie den Dateinamen und den Weg redigieren.“
Einstellen objFile1 = objFSO.OpenTextFile („C:\eeTesting\masterfile.txt ")
Bis objFile1.AtEndOfStream tun
strBuffer = objFile1.ReadLine
arrParts = spalteten auf sich (strBuffer, „; ")
olkMsg = Application.CreateItem (olMailItem) einstellen
Mit olkMsg
„Auf der folgenden Linie den Aktenweg redigieren.“
Einstellen objFile2 = objFSO.OpenTextFile („C:\eeTesting\“ u. arrParts (0))
„Auf folgenden Zzeilenwechsel das Thema, wie gewünscht.“
. Thema = „Ihr Thema geht hier“
. Zu = arrParts (1)
.BodyFormat = olFormatHTML
Bis objFile2.AtEndOfStream tun
„Auf der folgenden Linie das HTML redigieren, wie gewünscht.“
strTable = strTable u. „„u. objFile2.ReadLine u.“ | | „
Schleife
„Auf der folgenden Linie die Mitteilung redigieren, wie gewünscht.“
.HTMLBody = „hallo,
Software-Name | Anmerkungen | „u. strTable u.“
Respekt Somename "
. Anzeige
Ende mit
objFile2.Close
Schleife
olkMsg einstellen = nichts
Einstellen objFile1 = nichts
Einstellen objFile2 = nichts
objFSO einstellen = nichts
Unterseeboot beenden
|