Email script that imports data from .txt files

[Ragnoth]

Basically...this script is tied to a program I created that generates the text files...I am trying to make it grab the text from the Subject.txt and put into the subject line and same thing with the body of the e-mail just using the body.txt

It does not seem to be working...

Set myNetwork = WScript.CreateObject("WScript.Network")


Dim myUserName
Dim myComputerName

Dim ol, ns, newMail

myUserName = myNetwork.UserName
myComputerName = myNetwork.Computername



Set ol = WScript.CreateObject("Outlook.Application")
Set ns = ol.getNamespace("MAPI")
ns.logon myUserName,"password" ',true, false
Set newMail = ol.CreateItem(olMailItem)

newMail.To = "myemail@gmail.com"

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\users\public\documents\body.txt", 1)
Set objFile2 = objFSO.OpenTextFile("C:\users\public\documents\Subject.txt", 1)

Do Until objFile.AtEndOfStream
    strCharacters = objFile.Read(1)


newMail.Subject =  myUserName & Wscript.Echo strCharacters

Do Until objFile2.AtEndOfStream
    strCharacters = objFile2.Read(1)


newMail.Body = Wscript.Echo strCharacters & FormatDateTime(Now(), vbGeneralDate)

newMail.Send

[Ragnoth]

I think I may have figured it out myself...will marked resolved in a min if I did....and Fail though my code is slightly different now

here it is now

Set myNetwork = WScript.CreateObject("WScript.Network")


Dim myUserName
Dim myComputerName

Dim ol, ns, newMail

myUserName = myNetwork.UserName
myComputerName = myNetwork.Computername



Set ol = WScript.CreateObject("Outlook.Application")
Set ns = ol.getNamespace("MAPI")
ns.logon myUserName,"password" ',true, false
Set newMail = ol.CreateItem(olMailItem)

newMail.To = "myemailaddress"

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\users\public\documents\body.txt", 1)
Set objFile2 = objFSO.OpenTextFile("C:\users\public\documents\Subject.txt", 1)

Do Until objFile.AtEndOfStream
    strCharacters = objFile.Read(1)

Dim Subject
Set Subject = WScript.StdOut.Write(strCharacters)

newMail.Subject =  myUserName & " " & Subject
loop


Do Until objFile2.AtEndOfStream
    strCharacters2 = objFile2.Read(1)

Dim body
Set body = WScript.StdOut.Write(strCharacters2)

newMail.Body = body & " " & FormatDateTime(Now(), vbGeneralDate)
loop
newMail.Send