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