dim mydate
mydate = Date
Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(" c:/test.txt", ForReading)
strText = objTextFile.ReadAll
objTextFile.Close
NameSpace = " http://schemas.microsoft.com/cdo/configuration/"
Set Email = CreateObject("CDO.Message")
Email.From = " "
Email.To = " "
Email.Subject = " "
Email.Textbody = strText
'Email.AddAttachment ""
With Email.Configuration.Fields
.Item(NameSpace&"sendusing") = 2
. Item(NameSpace&"smtpserver") = " "
.Item(NameSpace&"smtpserverport") = 25
.Item(NameSpace&"smtpauthenticate") = 1
.Item(NameSpace&"sendusername") = ""
.Item(NameSpace&"sendpassword") = " "
.Update
End With
Email.Send
Set Email=Nothing
mydate = Date
Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(" c:/test.txt", ForReading)
strText = objTextFile.ReadAll
objTextFile.Close
NameSpace = " http://schemas.microsoft.com/cdo/configuration/"
Set Email = CreateObject("CDO.Message")
Email.From = " "
Email.To = " "
Email.Subject = " "
Email.Textbody = strText
'Email.AddAttachment ""
With Email.Configuration.Fields
.Item(NameSpace&"sendusing") = 2
. Item(NameSpace&"smtpserver") = " "
.Item(NameSpace&"smtpserverport") = 25
.Item(NameSpace&"smtpauthenticate") = 1
.Item(NameSpace&"sendusername") = ""
.Item(NameSpace&"sendpassword") = " "
.Update
End With
Email.Send
Set Email=Nothing