ImportFromFileAndSend secondaire ()
Faible objFSO comme objet, _
objFile1 comme objet, _
objFile2 comme objet, _
olkMsg comme objet, _
strBuffer comme corde, _
arrParts comme variante, _
strTable comme corde
Placer l'objFSO = le CreateObject (« Scripting.FileSystemObject »)
« Sur la prochaine ligne éditer le nom de fichier et le chemin. »
Placer objFile1 = objFSO.OpenTextFile (« C:\eeTesting\masterfile.txt ")
Faire jusqu'à objFile1.AtEndOfStream
strBuffer = objFile1.ReadLine
les arrParts = se sont dédoublés (strBuffer, « ; ")
Placer l'olkMsg = l'Application.CreateItem (l'olMailItem)
Avec l'olkMsg
« Sur la prochaine ligne éditer le chemin de dossier. »
Placer objFile2 = objFSO.OpenTextFile (« C:\eeTesting\ » et arrParts (0))
« Sur la prochaine ligne changement le sujet comme désiré. »
. Le sujet = « votre sujet va ici »
. À = arrParts (1)
.BodyFormat = olFormatHTML
Faire jusqu'à objFile2.AtEndOfStream
« Sur la prochaine ligne éditer le HTML comme désiré. »
strTable = strTable et « « et objFile2.ReadLine et » | | «
Boucle
« Sur la prochaine ligne éditer le message comme désiré. »
.HTMLBody = « salut,
Nom de logiciel | Commentaires | « et strTable et »
Respect Somename "
. Affichage
Extrémité avec
objFile2.Close
Boucle
Placer l'olkMsg = rien
Placer objFile1 = rien
Placer objFile2 = rien
Placer l'objFSO = rien
Finir le sous-marin
|