Here's one made up mostly from bits and pieces of info off this list. Its also got some extra cfmailparams (replyto and message-id) that help keep the mail from failing some antispam tests based on message formatting.
One of my clients did a mailer of about 4500 pieces with it last week and got four back from people who couldn't see anything in the message. Not sure if that's a bad relative number or not. The regexes could maybe use a little work. I'd be grateful to hear of any improvements/additions. Cheers, --Matt Robertson-- MSB Designs, Inc. http://mysecretbase.com <CF_tag_multimail TaggedInput=#RecShow.PageText# MailTo=#MailRun.EmailAddr# MailFrom=#GetSelf.Email# Subject=#RecShow.Title# EmailServer=#Settings.EmailServer#> <cfsilent> <cfscript> variables.CleanOutput=ReplaceNoCase(attributes.TaggedInput,"<li>","-","a ll"); variables.CleanOutput=ReplaceNoCase(variables.CleanOutput,"&","and", "all"); variables.CleanOutput=ReplaceNoCase(variables.CleanOutput," "," ","all"); variables.CleanOutput=ReplaceNoCase(variables.CleanOutput,"</li>#chr(13) ##chr(10)#","#chr(13)##chr(10)#","all"); variables.CleanOutput=Replace(variables.CleanOutput,"</p>","#chr(13)##ch r(10)#","all"); variables.CleanOutput=Replace(variables.CleanOutput,"#chr(13)##chr(10)#" ,"#chr(13)##chr(10)##chr(13)##chr(10)#","all"); variables.CleanOutput=ReplaceNoCase(variables.CleanOutput,"</ol>","#chr( 13)##chr(10)#","all"); variables.CleanOutput=ReplaceNoCase(variables.CleanOutput,"<br>","#chr(1 3)##chr(10)#","all"); variables.CleanOutput=REReplace(variables.CleanOutput,"<[^>]+>","","all" ); variables.CleanOutput=REReplace(variables.CleanOutput,"[[:space:]]*#chr( 13)##chr(10)#[[:space:]]*#chr(13)##chr(10)#","#chr(13)##chr(10)##chr(13) ##chr(10)#","all"); variables.Boundary=Replace(CreateUUID(), "-", "", 'all'); variables.ContentType="multipart/alternative; boundary=""#boundary#"""; </cfscript> </cfsilent> <cfmail to="#Attributes.MailTo#" from="#attributes.MailFrom#" server="#attributes.EmailServer#" subject="#attributes.Subject#" type="HTML"> --#variables.Boundary# Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit #variables.CleanOutput# --#variables.Boundary# Content-Type: text/html; charset=us-ascii Content-Transfer-Encoding: 7bit #attributes.TaggedInput# --#variables.Boundary#-- <cfmailparam name="Reply-To" value="#Attributes.MailTo#"> <cfmailparam name="Message-ID" value="<#CreateUUID()#@#attributes.EmailServer#>"> <cfmailparam name="Content-Type" value="#variables.ContentType#"> <cfmailparam name="MIME-Version" value="1.0"> </cfmail> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~| Archives: http://www.houseoffusion.com/cf_lists/index.cfm?forumid=4 Subscription: http://www.houseoffusion.com/cf_lists/index.cfm?method=subscribe&forumid=4 FAQ: http://www.thenetprofits.co.uk/coldfusion/faq Get the mailserver that powers this list at http://www.coolfusion.com
