That sounds rather like this problem. http://community.sellerdeck.com/arch...p/t-47995.html
Is this a general problem or just with one order?
					Is this a general problem or just with one order?
use strict;
use Mail::Mailer;
sub SendRichMail
####################################################### # # GetScriptUrl - retrieve an url to the specified script
sub SendRichMail
	{
#? ACTINIC::ASSERT($#_ >= 4, "Invalid argument count in SendRichMail ($#_)", __LINE__, __FILE__);
	#
	# !!!!!! This is a function commonly used by many utilities.  Any changes to its interface will
	# !!!!!! need to be verified with the various utility scripts.
	#
	if ($#_ < 4)
		{
		return($::FAILURE, GetPhrase(-1, 12, 'Actinic::SendRichMail'), 0, 0);
		}
	my ($sSmtpServer, $sEmailAddress, $sLocalError, $sSubjectText, $sMessageText, $sMessageHTML, $sBoundary, $sReturnAddress);
	($sSmtpServer, $sEmailAddress, $sSubjectText, $sMessageText, $sMessageHTML, $sReturnAddress) = @_;
	#
	# Check message content for bare LFs and repair if there are some
	#
	$sMessageText =~ s/\r\n/\n/g;        		# CRLF -> LF
	$sMessageText =~ s/\r/\n/g;          		# remaining CR -> LF
	$sMessageText =~ s/\n/\r\n/g;        		# all LF -> CRLF
							# and check the HTML content as well
	$sMessageHTML =~ s/\r\n/\n/g;        		# CRLF -> LF
	$sMessageHTML =~ s/\r/\n/g;          		# remaining CR -> LF
	$sMessageHTML =~ s/\n/\r\n/g;        		# all LF -> CRLF
	#
	# Check the return address
	#
	if (!$sReturnAddress)						# if no return address defined
		{
		$sReturnAddress = $sEmailAddress;			# use the destination email address
		}
	# (V11) use systems sendmail program
	my $mailer = Mail::Mailer->new();
	if ( ! $mailer->open({ From    => $sReturnAddress,
 	                To      => $sEmailAddress,
                        Subject => $sSubjectText,
                      })
	  )
		{
		return($::FAILURE, "SendMail failure! $!", 0, 0);
		}
        print $mailer $sMessageText;
        $mailer->close();
	return($::SUCCESS, '', 0, 0);
	}
$sMessageText =~ s/\n/\r\n/g; # all LF -> CRLF
# $sMessageText =~ s/\n/\r\n/g; # all LF -> CRLF
Comment