use Mail::Box::Manager;
 my $mgr = Mail::Box::Manager->new;

 my $msg = Mail::Message->build(...); # what yoy already have
 $msg->send(via => 'smtp');   # calls Mail::Transport::SMTP

 $mgr->appendMessage('Outbox', $msg);