sub sendMessage {
    my (%params) = @_;
    
    return if ! CheckParams (\%params, \@okMsgParams, \@requiredMsgParams);
    
    $params{Type} = 'text/plain' if ! exists $params{Type};
    $params{Date} = Date::EzDate->new ()->{'%Y:%m:%d %T'}
        if ! exists $params{date};
    $params{From} = $BuildManagerContext::gMyEmailAddress if ! exists $params{From};
    
    my $msg = MIME::Lite->new (%params);
    my $result = eval {$msg->send};
    
    if (! defined $result) {
        my $mailMsg = "Error: failed to send message below. Error is $@\n";
        
        $mailMsg .= "The following parameters were supplied:\n";
        $mailMsg .= "$_: $params{$_}\n" for keys %params;
        $mailMsg ||= '-- No parameters supplied --';
        
        BuildManagerContext::AddLogString ($mailMsg, 1);
        BuildManagerContext::FlushLogStrings ();
        return undef;
    }
    
    return 1;
}