I am curious if someone can help me figure this out, since I seem to be missing something simple. The below code works for sending email, but I want to have it if the Department value ='dept a' it will send to one group of people, if it was 'dept b' it would go to another.
I appreciate your help thanks!
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")="email@email.com"
tmpDict("subject")=values("Department") & " Escalation Account# " & values("Account_Number") & " " & values("Customer_Request")
tmpDict("body")=msg
set ret=runner_mail(tmpDict)
if not ret("mailed") then
response.write ret("message")
end if