Does this work on CFMX?
At 10:35 AM 04/11/02 -0800, you wrote:
>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
