Dim StrTo
Dim StrFrom
Dim StrSubject
Dim StrText
Dim iMsg
Dim iConf
Dim Flds
Dim strSmartHost
'*************************************************************************************
'This Script Will send out Email but there are 4 line need to be completed
StrTo       = "" '<= who getting the emails can use the ; between the email name
StrFrom     = "" '<= Your email address
StrSubject  = "" '<= What you want the subject to say
StrText     = "" '<= The message in the message no HTML other wise it get put as SPAM
'*************************************************************************************
' DO NOT CHANGE ANY THING BELOW HERE EVEN THE SPELLING
'*************************************************************************************
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Const cdoSendUsingPort = 2
StrSmartHost = ""
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmartHost
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Update
End With
if trim(StrFrom)<>"" then
	With iMsg
		Set .Configuration = iConf
		.To = StrTo
		.From = StrFrom
		.Subject = StrSubject
		.TextBody = StrText 
		.Send
	End With
End if
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing