|
'********** Send simple email ************
' do not forget to setup email parameters like From, SMTP server etc
' on 'Security->User login settings' dialog
dim tmpDict, ret
set tmpDict = CreateObject("Scripting.Dictionary")
tmpDict("to")="test@test.com"
tmpDict("subject")="Sample subject"
tmpDict("body")="Hello there" & vbcrlf & "Best regards"
set ret=runner_mail(tmpDict)
if not ret("mailed") then
response.write ret("message")
end if
|