Here is my complete tag call and code in the RCPT template and it seems to
be working:

<cfx_iMSMail priority="0" kickpost="yes"
Query="getenews"
Queryfield="email"
QToken_CID="xidnum"
QToken_email_id="email"
QToken_TheStation="tstat"
QToken_MStation="mstat"
parsetokens="yes"
SMTPFROM="accbounces-<:CID:>@dcfind.com"
header_to="<:email_id:>"
header_from="#caller# Weather <webteam@#trim(get1.station)#.com>"
header_Precedence="bulk"
header_Received="from mail.dcfind.com [216.230.250.26] by
dcfindmail.soloserver"
header_reply="webteam@#trim(get1.station)#.com"
header_subject="#caller# eForecast for #dateformat(now(),"mm/dd/yy")#"
log="yes"
token_addheader_Return_path="accbounces-<:CID:>@dcfind.com"
body="#get1.text#

******************************************
#trim(get1.adline)#
******************************************

You are receiving this email because you have signed up for the
#caller# eForecast email list.

============================================================
To be removed from future mailings, please unsubscribe at
http://www.<:MStation:>.com/usub.hrb?a=efore&b=<:cid:>&e=<:email_id:>
============================================================
eforecast sent #dateformat(now(),"mm/dd/yy")# at
#lcase(timeformat(now(),"h:mm tt"))#"
>


and the call in the RCPT template:

   <cfif findnocase("accbounces-",smtpname) neq 0>
   <cftry>
   <cfset bid="#mid(smtpname,find("-",smtpname)+1,20)#">
        <cfoutput> <inlog text="BAD BOUNCE [#smtpname# - #bid#]"></cfoutput>
        <cfquery name="get1" datasource="XXXXXXXX" dbtype="ODBC">select TOP 1
station,bouncecount,idnum,email                 from theusers where
idnum='#bid#'</cfquery>
        <cfif get1.recordcount gt 0>
        <cfif get1.bouncecount gt 9>
                <cfquery name="writeuser" datasource="XXXXXXX" dbtype="ODBC">update
theusers set

EFORECASTAM=0,EFORECASTPM=0,EFORECASTWKD=0,WXSEVERE=0,TROPICAL=0,consumer=0,
sports=                         0,weather=0,enews=0,

iteam=0,breaking=0,medical=0,programming=0,technology=0,newslink=0,bouncecou
nt=0 where                              idnum='#get1.idnum#'
                </cfquery>
                <cfset themsg="removed '" & "#trim(get1.email)#" & "' from " &
"#trim(get1.station)#">
                <cfx_iMSMail smtpto="[EMAIL PROTECTED]" smtpfrom="[EMAIL PROTECTED]"
header_to="[EMAIL PROTECTED]" header_from="[EMAIL PROTECTED]"
header_subject="Bounce Count Exceeded" body="#themsg#">
        <cfelse>
                <cfquery name="up1" datasource="XXXXXXX" dbtype="ODBC">update theusers 
set
bouncecount = #get1.bouncecount# + 1</cfquery>
        </cfif>
        </cfif>
   <cfcatch type="any"></cfcatch>
   </cftry>
   </cfif>

hope this helps

==^=======================================================
     This list server is Powered by iMS
   "The Swiss Army Knife of Mail Servers"
   --------------------------------------
To leave this list please complete the form at 
http://www.coolfusion.com/iMSSupport.cfm
Need an iMS Developer license?  Sign up for a free license here:
http://www.coolfusion.com/iMSDevelopers.cfm
List archives: http://www.mail-archive.com/infusion-email%40eoscape.com/
Note: You are subscribed as [email protected]
==^=======================================================


Reply via email to