'********** Send email with new data ************
' do not forget to setup email parameters like From, SMTP server etc
' on 'Security->User login settings' dialog
Dim dkeys, tmpDict, msg, n
msg =""
dkeys = values.keys
For n = 0 To values.Count-1
if not IsBinaryType(GetFieldType(dkeys(n),"")) then
msg = msg & dkeys(n) & " : " & values(dkeys(n)) & vbcrlf
end if
Next
set tmpDict = CreateObject("Scripting.Dictionary")
tmpDict("to")="--rbegin--test@test.com--rend--"
tmpDict("subject")="--rbegin--Sample subject--rend--"
tmpDict("body")=msg
set ret=runner_mail(tmpDict)
if not ret("mailed") then
response.write ret("message")
end if
|
Note