my ($__to,$__cc,$__bcc,$__from,$__subject,$__html_message,$__text_message,$__importance,$__xpriority,$__x_ms_priority) = @_;
use MIME::Lite;
my $_sendIp = $ENV{REMOTE_ADDR} || "127.0.0.1";
my $msg = MIME::Lite->new(
		'From'    => $__from,
		'To'      => $__to,
		'Cc'      => $__cc,
		'Bcc'			=> $__bcc,
		'subject' => $__subject,
		'Type'    => 'multipart/mixed',
		"X-Mailer" 		=> "$_co_domain Mailer - Version 2.0",
		'X-Organization' => "$_co_name",
		"X-Mail-Sent-For" => "$_co_name or www.$_co_domain/$_un; From IP: $_sendIp",
		'X-Priority' => $__xpriority,
		'X-MSMail-Priority' => $__xpriority
);
	
$msg->attach(
		'Type'     =>'TEXT',
		'Data'     =>"$__text_message",
		'Disposition' => "inline"
);

$msg->attach(
		'Type'     =>'HTML',
		'Data'     =>"$__html_message",
		'Disposition' => "inline"
);
my $_encEmPass = "43616c9765365f5f2640f311e1w1d5d6t2f3eacw052459ed4t4";
$_encEmPass = decryptPass($_encEmPass);
use Test::Trap qw/ :output(systemsafe) /;
my $_sendError = "";
trap { $msg->send() or $_sendError = $@ };
$_ for $trap->die, $trap->stdout, $trap->stderr;
if(!$_sendError and $_) {
	$_sendError = $_;
}
if($_sendError) {
	return (0,"$_sendError");
} else {
	return (1,"");
}