set rmail=CreateDictionary()
body = "Changed fields" & vbcrlf
for each key in values.Keys
if not IsEqual(values(key),oldvalues(key)) then _
body=body & key & ": " & values(key) & vbcrlf
next
rmail("to")="test@test.com"
rmail("subject")="Sample subject"
runner_mail(rmail)
|