mannyram70
Posts: 2
|
Posted: 07/09/2007, 8:46 PM |
|
Can someone assist me to convert this CDONT's emai to ASP Email (Persists), Thanks.
' Send email to support
sql = "select user_email from users where send_new=1"
openrs rs, sql
while not rs.EOF
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.From = "123@abc.com"
objCDO.To = GetValue(rs, "user_email")
objCDO.Subject = "New case # " & case_id & " - " & fldsummary
objCDO.Body = support_body
objCDO.MailFormat = 0
objCDO.Send
set objCDO=Nothing
rs.MoveNext
wend
' Send email to customer
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.From = "123@abc.com"
objCDO.To = flduser_email
objCDO.Subject = "New case # " & case_id & " - " & fldsummary
objCDO.Body = "Your support request was recorded in our system. You may view the details at " & URL & "usrCaseResponses.asp?case_id=" & case_id & "&email=" & flduser_email
objCDO.MailFormat = 0
objCDO.Send
set objCDO=Nothing
response.redirect URL & "Thanks.asp?case_id=" & case_id
' My AfterInsert Event END here -----------------------------------------------------------------------------------------------
|
|
|
mannyram70
Posts: 2
|
Posted: 07/09/2007, 9:03 PM |
|
I know the Set Mail = Server.CreateObject("Persits.MailSender") has to be changed. Also, the objCDO. needs to be changed to Mail, however I am stuck with calling the fld names.
|
|
|
|