Services/Mail/classes/class.ilMail.php

Go to the documentation of this file.

<?php
/*
        +-----------------------------------------------------------------------------+
        | ILIAS open source                                                           |
        +-----------------------------------------------------------------------------+
        | Copyright (c) 1998-2001 ILIAS open source, University of Cologne            |
        |                                                                             |
        | This program is free software; you can redistribute it and/or               |
        | modify it under the terms of the GNU General Public License                 |
        | as published by the Free Software Foundation; either version 2              |
        | of the License, or (at your option) any later version.                      |
        |                                                                             |
        | This program is distributed in the hope that it will be useful,             |
        | but WITHOUT ANY WARRANTY; without even the implied warranty of              |
        | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the               |
        | GNU General Public License for more details.                                |
        |                                                                             |
        | You should have received a copy of the GNU General Public License           |
        | along with this program; if not, write to the Free Software                 |
        | Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA. |
        +-----------------------------------------------------------------------------+
*/


require_once "Services/User/classes/class.ilObjUser.php";

class ilMail
{
        var $ilias;

        var $lng;

        var $mfile;

        var $mail_options;

        var $user_id;

        var $table_mail;

        var $table_mail_saved;

        var $mail_counter;

        var $mail_data;


        var $mail_obj_ref_id;

        var $mail_send_type;

        var $save_in_sentbox;

        var $mail_rcp_to;
        var $mail_rcp_cc;
        var $mail_rcp_bc;
        var $mail_subject;
        var $mail_message;
        var $mail_use_placeholders = 0;

        var $soap_enabled = true;
        
        private $mlists = null;

        function ilMail($a_user_id)
        {
                require_once "classes/class.ilFileDataMail.php";
                require_once "Services/Mail/classes/class.ilMailOptions.php";
                require_once "Services/Mail/classes/class.ilMailingLists.php";

                global $ilias, $lng, $ilUser;

                $lng->loadLanguageModule("mail");

                // Initiate variables
                $this->ilias =& $ilias;
                $this->lng   =& $lng;
                $this->table_mail = 'mail';
                $this->table_mail_saved = 'mail_saved';
                $this->user_id = $a_user_id;
                $this->mfile =& new ilFileDataMail($this->user_id);
                $this->mail_options =& new ilMailOptions($a_user_id);
                $this->mlists = new ilMailingLists($ilUser);

                // DEFAULT: sent mail aren't stored insentbox of user.
                $this->setSaveInSentbox(false);

                // GET REFERENCE ID OF MAIL OBJECT
                $this->readMailObjectReferenceId();
        }
        
        public function doesRecipientStillExists($a_recipient, $a_existing_recipients)
        {               
                if(self::_usePearMail())
                {
                        $recipients = $this->explodeRecipients($a_existing_recipients);
                        if(is_a($recipients, 'PEAR_Error'))
                        {
                                return false;                           
                        }
                        else
                        {
                                foreach($recipients as $rcp)
                                {
                                        if (substr($rcp->mailbox, 0, 1) != '#')
                                        {
                                                if(trim($rcp->mailbox) == trim($a_recipient) ||
                                                   trim($rcp->mailbox.'@'.$rcp->host) == trim($a_recipient))
                                                {
                                                        return true;
                                                }
                                        }
                                        else if (substr($rcp->mailbox, 0, 7) == '#il_ml_')
                                        {
                                                if(trim($rcp->mailbox.'@'.$rcp->host) == trim($a_recipient))
                                                {
                                                        return true;
                                                }
                                        }
                                        else
                                        {
                                                if(trim($rcp->mailbox.'@'.$rcp->host) == trim($a_recipient))
                                                {
                                                        return true;
                                                }
                                        }                                       
                                }
                        }
                }
                else
                {               
                        $recipients = $this->explodeRecipients($a_existing_recipients);                 
                        if(count($recipients))
                        {
                                foreach($recipients as $recipient)
                                {
                                        if(trim($recipient) == trim($a_recipient))
                                        {
                                                return true;
                                        }
                                }
                        }
                }
                
                return false;
        }

        function enableSOAP($a_status)
        {
                $this->soap_enabled = $a_status;
        }
        function isSOAPEnabled()
        {
                if(!extension_loaded('curl'))
                {
                        return false;
                }
                return (bool) $this->soap_enabled;
        }


        function setSaveInSentbox($a_save_in_sentbox)
        {
                $this->save_in_sentbox = $a_save_in_sentbox;
        }

        function getSaveInSentbox()
        {
                return $this->save_in_sentbox;
        }

        function setMailSendType($a_types)
        {
                $this->mail_send_type = $a_types;
        }

        function setMailRcpTo($a_rcp_to)
        {
                $this->mail_rcp_to = $a_rcp_to;
        }

        function setMailRcpCc($a_rcp_cc)
        {
                $this->mail_rcp_cc = $a_rcp_cc;
        }

        function setMailRcpBc($a_rcp_bc)
        {
                $this->mail_rcp_bc = $a_rcp_bc;
        }

        function setMailSubject($a_subject)
        {
                $this->mail_subject = $a_subject;
        }

        function setMailMessage($a_message)
        {
                $this->mail_message = $a_message;
        }

        function readMailObjectReferenceId()
        {
                global $ilDB;
                
                // mail settings id is set by a constant in ilias.ini. Keep the select for some time until everyone has updated his ilias.ini
                if (!MAIL_SETTINGS_ID)
                {
                        $query = "SELECT object_reference.ref_id FROM object_reference,tree,object_data ".
                                        "WHERE tree.parent = ".$ilDB->quote(SYSTEM_FOLDER_ID)." ".
                                        "AND object_data.type = 'mail' ".
                                        "AND object_reference.ref_id = tree.child ".
                                        "AND object_reference.obj_id = object_data.obj_id";
                        $res = $this->ilias->db->query($query);

                        while ($row = $res->fetchRow(DB_FETCHMODE_ASSOC))
                        {
                                $this->mail_obj_ref_id = $row["ref_id"];
                        }
                }
                else
                {
                        $this->mail_obj_ref_id = MAIL_SETTINGS_ID;
                }
        }

        function getMailObjectReferenceId()
        {
                return $this->mail_obj_ref_id;
        }
        
        function formatNotificationSubject()
        {
                return $this->lng->txt('mail_notification_subject');
        }
                
        function formatNotificationMessage($user_id, $mail_data = array())
        {
                global $tpl, $lng;
                
                $tpl =& new ilTemplate('tpl.mail_notifications.html', true, true, 'Services/Mail');
                
                $tpl->setVariable('TXT_RECEIVED_MAILS', sprintf($this->lng->txt('mail_received_x_new_mails'), count($mail_data)));
                                
                $counter = 0;
                foreach ($mail_data as $mail)
                {
                        $tpl->setCurrentBlock('mails');
                        $tpl->setVariable('NR', $counter + 1);                  
                        $tpl->setVariable('TXT_SENT', $this->lng->txt('sent'));
                        $tpl->setVariable('SEND_TIME', ilFormat::formatDate($mail['send_time']));
                        $tpl->setVariable('TXT_SUBJECT', $this->lng->txt('subject'));
                        $tpl->setVariable('SUBJECT', $mail['m_subject']);               
                        $tpl->parseCurrentBlock();
                        
                        ++$counter;     
                }               
                
                $message = $this->replacePlaceholders($tpl->get(), $user_id);           
                
                return $message;
        }
        
        public function formatNamesForOutput($users = '')
        {
                $users = trim($users);
                if($users)
                {
                        if(strstr($users, ','))
                        {
                                $rcp_to_array = array();
                                
                                $recipients = explode(',', $users);
                                foreach($recipients as $recipient)
                                {
                                        $recipient = trim($recipient);
                                        if($uid = ilObjUser::_lookupId($recipient))
                                        {
                                                $tmp_obj = new ilObjUser($uid);

                                                if(ilObjUser::_lookupPref($uid, 'public_profile') == 'y')
                                                {                                                               
                                                        $rcp_to_array[] = $tmp_obj->getFullname().' ['.$recipient.']';
                                                }
                                                else
                                                {
                                                        $rcp_to_array[] = $recipient;
                                                }
                                                unset($tmp_obj);                
                                        }
                                        else
                                        {
                                                $rcp_to_array[] = $recipient;
                                        }                                                       
                                }

                                return trim(implode(', ', $rcp_to_array));
                        }
                        else
                        {
                                if($uid = ilObjUser::_lookupId($users))
                                {
                                        $tmp_obj = new ilObjUser($uid);
                                        if(ilObjUser::_lookupPref($uid, 'public_profile') == 'y')
                                        {
                                                return $tmp_obj->getFullname().' ['.$users.']';
                                        }
                                        else
                                        {
                                                unset($tmp_obj);
                                                return $users;
                                        }                                       
                                }
                                else
                                {
                                        return $users;
                                }
                        }
                }
                else
                {
                        return $this->lng->txt('not_available');
                }
        }
        
        function getPreviousMail($a_mail_id)
        {
                global $ilDB;
                
                $query = "SELECT b.* FROM " . $this->table_mail ." AS a ".
                                 "INNER JOIN ".$this->table_mail ." AS b ON b.folder_id = a.folder_id AND b.user_id = a.user_id AND b.send_time > a.send_time ".
                                 "WHERE a.user_id = ".$ilDB->quote($this->user_id) ." ".                                 
                                 "AND a.mail_id = ".$ilDB->quote($a_mail_id)." ORDER BY b.send_time ASC LIMIT 1";
                
                $this->mail_data = $this->fetchMailData($this->ilias->db->getRow($query,DB_FETCHMODE_OBJECT));
                
                return $this->mail_data; 
        }
        
        function getNextMail($a_mail_id)
        {
                global $ilDB;
                
                $query = "SELECT b.* FROM " . $this->table_mail ." AS a ".
                                 "INNER JOIN ".$this->table_mail ." AS b ON b.folder_id = a.folder_id AND b.user_id = a.user_id AND b.send_time < a.send_time ".
                                 "WHERE a.user_id = ".$ilDB->quote($this->user_id) ." ".                                 
                                 "AND a.mail_id = ".$ilDB->quote($a_mail_id)." ORDER BY b.send_time DESC LIMIT 1";
                
                $this->mail_data = $this->fetchMailData($this->ilias->db->getRow($query,DB_FETCHMODE_OBJECT));
                
                return $this->mail_data;
        }

        function getMailsOfFolder($a_folder_id)
        {
                global $ilDB;
                
                $this->mail_counter = array();
                $this->mail_counter["read"] = 0;
                $this->mail_counter["unread"] = 0;

                $query = "SELECT * FROM $this->table_mail ".
                        "WHERE user_id = ".$ilDB->quote($this->user_id) ." ".
                        "AND folder_id = ".$ilDB->quote($a_folder_id)." ORDER BY send_time DESC";
                
                $res = $this->ilias->db->query($query);

                while ($row = $res->fetchRow(DB_FETCHMODE_OBJECT))
                {
                        if($row->sender_id and !ilObjectFactory::ObjectIdExists($row->sender_id))
                        {
                                continue;
                        }
                        $tmp = $this->fetchMailData($row);

                        if ($tmp["m_status"] == 'read')
                        {
                                ++$this->mail_counter["read"];
                        }

                        if ($tmp["m_status"] == 'unread')
                        {
                                ++$this->mail_counter["unread"];
                        }

                        $output[] = $tmp;
                }

                $this->mail_counter["total"] = count($output);

                return $output ? $output : array();
        }
        
        function countMailsOfFolder($a_folder_id)
        {
                global $ilDB;           

                $query = "SELECT COUNT(*) FROM $this->table_mail ".
                        "WHERE user_id = ".$ilDB->quote($this->user_id) ." ".
                        "AND folder_id = ".$ilDB->quote($a_folder_id)." ";
                
                if (is_object($res = $this->ilias->db->query($query)))
                {
                        return $res->numRows(); 
                }
                
                return 0;
        }
        
        function deleteMailsOfFolder($a_folder_id)
        {
                if ($a_folder_id)
                {               
                        global $ilDB;
        
                        $query = "DELETE FROM $this->table_mail ".
                                "WHERE user_id = ".$ilDB->quote($this->user_id) ." ".
                                "AND folder_id = ".$ilDB->quote($a_folder_id)." ";
                        
                        $res = $this->ilias->db->query($query);
                        
                        return true;
                }
                
                return false;
        }

        function getMailCounterData()
        {
                return is_array($this->mail_counter) ? $this->mail_counter : array(
                        "total"  => 0,
                        "read"   => 0,
                        "unread" => 0);
        }

        function getMail($a_mail_id)
        {
                global $ilDB;
                
                $query = "SELECT * FROM $this->table_mail ".
                        "WHERE user_id = ".$ilDB->quote($this->user_id)." ".
                        "AND mail_id = ".$ilDB->quote($a_mail_id)." ";
                
                $this->mail_data = $this->fetchMailData($this->ilias->db->getRow($query,DB_FETCHMODE_OBJECT));
                
                return $this->mail_data; 
        }

        function markRead($a_mail_ids)
        {
                global $ilDB;
                // CREATE IN STATEMENT
                $in = "(". implode(",",ilUtil::quoteArray($a_mail_ids)) . ")";
                
                $query = "UPDATE $this->table_mail ".
                        "SET m_status = 'read' ".
                        "WHERE user_id = ".$ilDB->quote($this->user_id)." ".
                        "AND mail_id IN $in";

                $res = $this->ilias->db->query($query);

                return true;
        }

        function markUnread($a_mail_ids)
        {
                global $ilDB;
                // CREATE IN STATEMENT
                $in = "(". implode(",",ilUtil::quoteArray($a_mail_ids)) . ")";
                
                $query = "UPDATE $this->table_mail ".
                        "SET m_status = 'unread' ".
                        "WHERE user_id = ".$ilDB->quote($this->user_id)." ".
                        "AND mail_id IN $in";

                $res = $this->ilias->db->query($query);

                return true;
        }

        function moveMailsToFolder($a_mail_ids,$a_folder_id)
        {
                global $ilDB;
                // CREATE IN STATEMENT
                $in = "(". implode(",",ilUtil::quoteArray($a_mail_ids)) . ")";

                $query = "UPDATE $this->table_mail ".
                        "SET folder_id = ".$ilDB->quote($a_folder_id)." ".
                        "WHERE user_id = ".$ilDB->quote($this->user_id)." ".
                        "AND mail_id IN $in";

                $res = $this->ilias->db->query($query);

                return true;
        }

        function deleteMails($a_mail_ids)
        {
                global $ilDB;
                
                foreach ($a_mail_ids as $id)
                {
                        $query = "DELETE FROM $this->table_mail ".
                                "WHERE user_id = ".$ilDB->quote($this->user_id)." ".
                                "AND mail_id = ".$ilDB->quote($id)." ";
                        $res = $this->ilias->db->query($query);
                        $this->mfile->deassignAttachmentFromDirectory($id);
                }

                return true;
        }

        function fetchMailData($a_row)
        {
                if (!$a_row) return;
                
                return array(
                        "mail_id"         => $a_row->mail_id,
                        "user_id"         => $a_row->user_id,
                        "folder_id"       => $a_row->folder_id,
                        "sender_id"       => $a_row->sender_id,
                        "attachments"     => unserialize(stripslashes($a_row->attachments)), 
                        "send_time"       => $a_row->send_time,
                        "rcp_to"          => stripslashes($a_row->rcp_to),
                        "rcp_cc"          => stripslashes($a_row->rcp_cc),
                        "rcp_bcc"         => stripslashes($a_row->rcp_bcc),
                        "m_status"        => $a_row->m_status,
                        "m_type"          => unserialize(stripslashes($a_row->m_type)),
                        "m_email"         => $a_row->m_email,
                        "m_subject"       => stripslashes($a_row->m_subject),
                        "m_message"       => stripslashes($a_row->m_message),                   
                        "import_name"     => stripslashes($a_row->import_name),
                        "use_placeholders"=> $a_row->use_placeholders);
        }

        function updateDraft($a_folder_id,
                                                 $a_attachments,
                                                 $a_rcp_to,
                                                 $a_rcp_cc,
                                                 $a_rcp_bcc,
                                                 $a_m_type,
                                                 $a_m_email,
                                                 $a_m_subject,
                                                 $a_m_message,
                                                 $a_draft_id = 0, $a_use_placeholders = 0)
        {
                global $ilDB;
                
                $query = "UPDATE $this->table_mail ".
                        "SET folder_id = ".$ilDB->quote($a_folder_id).",".
                        "attachments = '".addslashes(serialize($a_attachments))."',".
                        "send_time = now(),".
                        "rcp_to = ".$ilDB->quote($a_rcp_to).",".
                        "rcp_cc = ".$ilDB->quote($a_rcp_cc).",".
                        "rcp_bcc = ".$ilDB->quote($a_rcp_bcc).",".
                        "m_status = 'read',".
                        "m_type = '".addslashes(serialize($a_m_type))."',".
                        "m_email = ".$ilDB->quote($a_m_email).",".
                        "m_subject = ".$ilDB->quote($a_m_subject).",".
                        "m_message = ".$ilDB->quote($a_m_message).",".
                        "use_placeholders = ".$ilDB->quote($a_use_placeholders)." ".
                        "WHERE mail_id = ".$ilDB->quote($a_draft_id)."";
                        
                $res = $this->ilias->db->query($query);

                return $a_draft_id;
        }

        function sendInternalMail($a_folder_id,
                                                          $a_sender_id,
                                                          $a_attachments,
                                                          $a_rcp_to,
                                                          $a_rcp_cc,
                                                          $a_rcp_bcc,
                                                          $a_status,
                                                          $a_m_type,
                                                          $a_m_email,
                                                          $a_m_subject,
                                                          $a_m_message,
                                                          $a_user_id = 0, $a_use_placeholders = 0)
        {
                $a_user_id = $a_user_id ? $a_user_id : $this->user_id;

                global $ilDB, $log;
                //$log->write('class.ilMail->sendInternalMail to user_id:'.$a_rcp_to.' '.$a_m_message);

                if ($a_use_placeholders) $a_m_message = $this->replacePlaceholders($a_m_message, $a_user_id);

                $query = "INSERT INTO $this->table_mail ".
                        "SET user_id = ".$ilDB->quote($a_user_id).",".
                        "folder_id = ".$ilDB->quote($a_folder_id).",".
                        "sender_id = ".$ilDB->quote($a_sender_id).",".
                        "attachments = '".addslashes(serialize($a_attachments))."',".
                        "send_time = now(),".
                        "rcp_to = ".$ilDB->quote($a_rcp_to).",".
                        "rcp_cc = ".$ilDB->quote($a_rcp_cc).",".
                        "rcp_bcc = ".$ilDB->quote($a_rcp_bcc).",".
                        "m_status = ".$ilDB->quote($a_status).",".
                        "m_type = '".addslashes(serialize($a_m_type))."',".
                        "m_email = ".$ilDB->quote($a_m_email).",".
                        "m_subject = ".$ilDB->quote($a_m_subject).",".
                        "m_message = ".$ilDB->quote($a_m_message)." ";

                $res = $this->ilias->db->query($query);
                $query = "SELECT LAST_INSERT_ID() as id";
                $row = $this->ilias->db->getRow($query,DB_FETCHMODE_ASSOC);

                return $row["id"];
        }
        
        function replacePlaceholders($a_message, $a_user_id)
        {               
                global $lng;
                
                $user = new ilObjUser($a_user_id);              
                
                // determine salutation         
                switch ($user->getGender())
                {
                        case 'f':       $gender_salut = $lng->txt('salutation_f');
                                                break;
                        case 'm':       $gender_salut = $lng->txt('salutation_m');
                                                break;
        }

                $a_message = str_replace('[MAIL_SALUTATION]', $gender_salut, $a_message);
                $a_message = str_replace('[LOGIN]', $user->getLogin(), $a_message);
                $a_message = str_replace('[FIRST_NAME]', $user->getFirstname(), $a_message);
                $a_message = str_replace('[LAST_NAME]', $user->getLastname(), $a_message);
                $a_message = str_replace('[ILIAS_URL]', ILIAS_HTTP_PATH.'/login.php?client_id='.CLIENT_ID, $a_message);
                $a_message = str_replace('[CLIENT_NAME]', CLIENT_NAME, $a_message);
                
                unset($user);
        
                return $a_message;
        }
        
        function distributeMail($a_rcp_to,$a_rcp_cc,$a_rcp_bcc,$a_subject,$a_message,$a_attachments,$sent_mail_id,$a_type,$a_action, $a_use_placeholders = 0)
        {
                global $log;

                include_once 'Services/Mail/classes/class.ilMailbox.php';
                include_once './Services/User/classes/class.ilObjUser.php';

                if (!ilMail::_usePearMail())
                {
                        // REPLACE ALL LOGIN NAMES WITH '@' BY ANOTHER CHARACTER
                        $a_rcp_to = $this->__substituteRecipients($a_rcp_to, 'resubstitute');
                        $a_rcp_cc = $this->__substituteRecipients($a_rcp_cc, 'resubstitute');
                        $a_rcp_bc = $this->__substituteRecipients($a_rcp_bc, 'resubstitute');
                }

                $mbox =& new ilMailbox();
                
                if (!$a_use_placeholders) # No Placeholders
                {                       
                        $rcp_ids = $this->getUserIds(trim($a_rcp_to).','.trim($a_rcp_cc).','.trim($a_rcp_bcc));
                        
                        $as_email = array();
                                                
                        foreach($rcp_ids as $id)
                        {
                                $tmp_mail_options =& new ilMailOptions($id);
        
                                // DETERMINE IF THE USER CAN READ INTERNAL MAILS
                                $tmp_user =& new ilObjUser($id);
                                $tmp_user->read();
                                $user_can_read_internal_mails = $tmp_user->hasAcceptedUserAgreement() && 
                                                                                            $tmp_user->getActive() && 
                                                                                            $tmp_user->checkTimeLimit();
        
                                // CONTINUE IF SYSTEM MESSAGE AND USER CAN'T READ INTERNAL MAILS
                                if (in_array('system', $a_type) && !$user_can_read_internal_mails)
                                {
                                        continue;
                                }
        
                                // CONTINUE IF USER CAN'T READ INTERNAL MAILS OR IF HE/SHE WANTS HIS/HER MAIL
                                // SENT TO HIS/HER EXTERNAL E-MAIL ADDRESS ONLY
                                if (!$user_can_read_internal_mails ||
                                        $tmp_mail_options->getIncomingType() == $this->mail_options->EMAIL)
                                {
                                        $as_email[] = $id;
                                        continue;
                                }
        
                                if ($tmp_mail_options->getIncomingType() == $this->mail_options->BOTH)
                                {
                                        $as_email[] = $id;
                                }
        
                                $mbox->setUserId($id);
                                $inbox_id = $mbox->getInboxFolder();
        
                                $mail_id = $this->sendInternalMail($inbox_id, $this->user_id,
                                                                          $a_attachments, $a_rcp_to,
                                                                          $a_rcp_cc, '', 'unread', $a_type,
                                                                          0, $a_subject, $a_message, $id, 0);
                                if ($a_attachments)
                                {
                                        $this->mfile->assignAttachmentsToDirectory($mail_id, $sent_mail_id, $a_attachments);
                                }
                        }
                        
                        // SEND EMAIL TO ALL USERS WHO DECIDED 'email' or 'both'
                        $to = array();
                        $bcc = array();
                        
                        if (count($as_email) == 1)
                        {
                                $to[] = ilObjUser::_lookupEmail($as_email[0]); 
                        }
                        else
                        {
                                foreach ($as_email as $id)
                                {
                                        $bcc[] = ilObjUser::_lookupEmail($id);
                                }
                        }
                        
                        if(count($to) > 0 || count($bcc) > 0)
                        {
                                $this->sendMimeMail(implode(',', $to), '', implode(',', $bcc), $a_subject, $a_message, $a_attachments);
                        }
                }
                else # Use Placeholders
                {
                        // to
                        $rcp_ids_replace = $this->getUserIds(trim($a_rcp_to));
                        
                        // cc / bcc
                        $rcp_ids_no_replace = $this->getUserIds(trim($a_rcp_cc).','.trim($a_rcp_bcc));
                        
                        $as_email = array();                    
                        
                        // to
                        foreach($rcp_ids_replace as $id)
                        {
                                $tmp_mail_options =& new ilMailOptions($id);
        
                                // DETERMINE IF THE USER CAN READ INTERNAL MAILS
                                $tmp_user =& new ilObjUser($id);
                                $tmp_user->read();
                                $user_can_read_internal_mails = $tmp_user->hasAcceptedUserAgreement() &&
                                                                                            $tmp_user->getActive() &&
                                                                                            $tmp_user->checkTimeLimit();
        
                                // CONTINUE IF SYSTEM MESSAGE AND USER CAN'T READ INTERNAL MAILS
                                if (in_array('system', $a_type) && !$user_can_read_internal_mails)
                                {
                                        continue;
                                }
        
                                // CONTINUE IF USER CAN'T READ INTERNAL MAILS OR IF HE/SHE WANTS HIS MAIL
                                // SENT TO HIS/HER EXTERNAL E-MAIL ADDRESS ONLY
                                if (!$user_can_read_internal_mails ||
                                        $tmp_mail_options->getIncomingType() == $this->mail_options->EMAIL)
                                {
                                        $as_email[] = $id;
                                        continue;
                                }
        
                                if ($tmp_mail_options->getIncomingType() == $this->mail_options->BOTH)
                                {
                                        $as_email[] = $id;
                                }
        
                                $mbox->setUserId($id);
                                $inbox_id = $mbox->getInboxFolder();
        
                                $mail_id = $this->sendInternalMail($inbox_id, $this->user_id,
                                                                          $a_attachments, $a_rcp_to,
                                                                          $a_rcp_cc, '', 'unread', $a_type,
                                                                          0, $a_subject, $a_message, $id, 1);
                                if ($a_attachments)
                                {
                                        $this->mfile->assignAttachmentsToDirectory($mail_id, $sent_mail_id, $a_attachments);
                                }
                        }
                        
                        if (count($as_email))
                        {
                                foreach ($as_email as $id)
                                {                                       
                                        $this->sendMimeMail(ilObjUser::_lookupEmail($id), '', '', $a_subject, $this->replacePlaceholders($a_message, $id), $a_attachments);
                                }
                        }
                        
                        $as_email = array();
                        
                        // cc / bcc
                        foreach($rcp_ids_no_replace as $id)
                        {
                                $tmp_mail_options =& new ilMailOptions($id);
        
                                // DETERMINE IF THE USER CAN READ INTERNAL MAILS
                                $tmp_user =& new ilObjUser($id);
                                $tmp_user->read();
                                $user_can_read_internal_mails = $tmp_user->hasAcceptedUserAgreement() 
                                        && $tmp_user->getActive() && $tmp_user->checkTimeLimit();
        
                                // CONTINUE IF SYSTEM MESSAGE AND USER CAN'T READ INTERNAL MAILS
                                if (in_array('system', $a_type) && !$user_can_read_internal_mails)
                                {
                                        continue;
                                }
        
                                // CONTINUE IF USER CAN'T READ INTERNAL MAILS OR IF HE/SHE WANTS HIS MAIL
                                // SENT TO HIS/HER EXTERNAL E-MAIL ADDRESS ONLY
                                if (!$user_can_read_internal_mails ||
                                        $tmp_mail_options->getIncomingType() == $this->mail_options->EMAIL)
                                {
                                        $as_email[] = $id;
                                        continue;
                                }
        
                                if ($tmp_mail_options->getIncomingType() == $this->mail_options->BOTH)
                                {
                                        $as_email[] = $id;
                                }
        
                                $mbox->setUserId($id);
                                $inbox_id = $mbox->getInboxFolder();
        
                                $mail_id = $this->sendInternalMail($inbox_id, $this->user_id,
                                                                          $a_attachments, $a_rcp_to,
                                                                          $a_rcp_cc, '', 'unread', $a_type,
                                                                          0, $a_subject, $a_message, $id, 0);
                                if ($a_attachments)
                                {
                                        $this->mfile->assignAttachmentsToDirectory($mail_id, $sent_mail_id, $a_attachments);
                                }
                        }
                        
                        if (count($as_email))
                        {
                                foreach ($as_email as $id)
                                {                                       
                                        $this->sendMimeMail(ilObjUser::_lookupEmail($id), '', '', $a_subject, $a_message, $a_attachments);
                                }
                        }
                }       
                
                return true;
        }       

        function getUserIds($a_recipients)
        {
                global $log, $rbacreview;
                $ids = array();

                if (ilMail::_usePearMail())
                {
                        $tmp_names = $this->explodeRecipients($a_recipients);
                        if (! is_a($tmp_names, 'PEAR_Error'))
                        {
                                for ($i = 0;$i < count($tmp_names); $i++)
                                {                                       
                                        if (substr($tmp_names[$i]->mailbox,0,1) === '#')
                                        {
                                                $role_ids = $rbacreview->searchRolesByMailboxAddressList($tmp_names[$i]->mailbox.'@'.$tmp_names[$i]->host);
                                                foreach($role_ids as $role_id)
                                                {
                                                        foreach($rbacreview->assignedUsers($role_id) as $usr_id)
                                                        {
                                                                $ids[] = $usr_id;
                                                        }
                                                }
                                        }
                                        else if (strtolower($tmp_names[$i]->host) == 'ilias')
                                        {
                                                if ($id = ilObjUser::getUserIdByLogin(addslashes($tmp_names[$i]->mailbox)))
                                                {
                                                        //$log->write('class.ilMail->getUserIds() recipient:'.$tmp_names[$i]->mailbox.'@'.$tmp_names[$i]->host.' user_id:'.$id);
                                                        $ids[] = $id;
                                                }
                                                else
                                                {
                                                        //$log->write('class.ilMail->getUserIds() no user account found for recipient:'.$tmp_names[$i]->mailbox.'@'.$tmp_names[$i]->host);
                                                }
                                        }
                                        else
                                        {
                                                //$log->write('class.ilMail->getUserIds() external recipient:'.$tmp_names[$i]->mailbox.'@'.$tmp_names[$i]->host);
                                        }
                                }
                        }
                        else
                        {
                                //$log->write('class.ilMail->getUserIds() illegal recipients:'.$a_recipients);
                        }
                }
                else
                {
                        $tmp_names = $this->explodeRecipients($a_recipients);
                        for ($i = 0;$i < count($tmp_names); $i++)
                        {
                                if (substr($tmp_names[$i],0,1) == '#')
                                {
                                        if(ilUtil::groupNameExists(addslashes(substr($tmp_names[$i],1))))
                                        {
                                                include_once("./classes/class.ilObjectFactory.php");
                                                include_once('./classes/class.ilObjGroup.php');
                                                
                                                foreach(ilObject::_getAllReferences(ilObjGroup::_lookupIdByTitle(addslashes(substr($tmp_names[$i],1)))) as $ref_id)
                                                {
                                                        $grp_object = ilObjectFactory::getInstanceByRefId($ref_id);
                                                        break;
                                                }
                                                // STORE MEMBER IDS IN $ids
                                                foreach ($grp_object->getGroupMemberIds() as $id)
                                                {
                                                        $ids[] = $id;
                                                }
                                        }
                                        // is role: get role ids
                                        elseif($role_id = $rbacreview->roleExists(addslashes(substr($tmp_names[$i],1))))
                                        {
                                                foreach($rbacreview->assignedUsers($role_id) as $usr_id)
                                                {
                                                        $ids[] = $usr_id;
                                                }
                                        }
                                        
                                }
                                else if (!empty($tmp_names[$i]))
                                {
                                        if ($id = ilObjUser::getUserIdByLogin(addslashes($tmp_names[$i])))
                                        {
                                                $ids[] = $id;
                                        }
                                }
                        }
                }
                return array_unique($ids);
        }

        function checkMail($a_rcp_to,$a_rcp_cc,$a_rcp_bcc,$a_m_subject,$a_m_message,$a_type)
        {
                $error_message = '';

                if (empty($a_m_subject))
                {
                        $error_message .= $error_message ? "<br>" : '';
                        $error_message .= $this->lng->txt("mail_add_subject");
                }

                if (empty($a_rcp_to))
                {
                        $error_message .= $error_message ? "<br>" : '';
                        $error_message .= $this->lng->txt("mail_add_recipient");
                }

                return $error_message;
        }

        function getEmailsOfRecipients($a_rcp)
        {
                $addresses = array();

                if (ilMail::_usePearMail())
                {
                        $tmp_rcp = $this->explodeRecipients($a_rcp);
                        if (! is_a($tmp_rcp, 'PEAR_Error'))
                        {
                                foreach ($tmp_rcp as $rcp)
                                {
                                        // NO GROUP
                                        if (substr($rcp->mailbox,0,1) != '#')
                                        {
                                                if (strtolower($rcp->host) != 'ilias')
                                                {
                                                        $addresses[] = $rcp->mailbox.'@'.$rcp->host;
                                                        continue;
                                                }
                
                                                if ($id = ilObjUser::getUserIdByLogin(addslashes($rcp->mailbox)))
                                                {
                                                        $tmp_user = new ilObjUser($id);
                                                        $addresses[] = $tmp_user->getEmail();
                                                        continue;
                                                }
                                        }
                                        else
                                        {
                                                // Roles
                                                $role_ids = $rbacreview->searchRolesByMailboxAddressList($rcp->mailbox.'@'.$rcp->host);
                                                foreach($role_ids as $role_id)
                                                {
                                                        foreach($rbacreview->assignedUsers($role_id) as $usr_id)
                                                        {
                                                                $tmp_user = new ilObjUser($usr_id);
                                                                $addresses[] = $tmp_user->getEmail();
                                                        }
                                                }
                                        }
                                }
                        }
                }
                else
                {
                        $tmp_rcp = $this->explodeRecipients($a_rcp);
        
                        foreach ($tmp_rcp as $rcp)
                        {
                                // NO GROUP
                                if (substr($rcp,0,1) != '#')
                                {
                                        if (strpos($rcp,'@'))
                                        {
                                                $addresses[] = $rcp;
                                                continue;
                                        }
        
                                        if ($id = ilObjUser::getUserIdByLogin(addslashes($rcp)))
                                        {
                                                $tmp_user = new ilObjUser($id);
                                                $addresses[] = $tmp_user->getEmail();
                                                continue;
                                        }
                                }
                                else
                                {
                                        // GROUP THINGS
                                        include_once("./classes/class.ilObjectFactory.php");
                                        include_once('./classes/class.ilObjGroup.php');
        
                                        // Fix 
                                        foreach(ilObjGroup::_getAllReferences(ilObjGroup::_lookupIdByTitle(addslashes(substr($tmp_names[$i],1)))) as $ref_id)
                                        {
                                                $grp_object = ilObjectFactory::getInstanceByRefId($ref_id);
                                                break;
                                        }
                                        // GET EMAIL OF MEMBERS AND STORE THEM IN $addresses
                                        foreach ($grp_object->getGroupMemberIds() as $id)
                                        {
                                                $tmp_user = new ilObjUser($id);
                                                $addresses[] = $tmp_user->getEmail();
                                        } 
                                }
                        }
                }

                return $addresses;
        }
                
        function checkRecipients($a_recipients,$a_type)
        {
                global $rbacsystem,$rbacreview;
                $wrong_rcps = '';

                if (ilMail::_usePearMail())
                {
                        $tmp_rcp = $this->explodeRecipients($a_recipients);
                        if (is_a($tmp_rcp, 'PEAR_Error'))
                        {
                                $colon_pos = strpos($tmp_rcp->message, ':');
                                $wrong_rcps = '<br />'.(($colon_pos === false) ? $tmp_rcp->message : substr($tmp_rcp->message, $colon_pos+2));
                        }
                        else
                        {
                                foreach ($tmp_rcp as $rcp)
                                {
                                        // NO ROLE MAIL ADDRESS
                                        if (substr($rcp->mailbox,0,1) != '#')
                                        {
                                                // ALL RECIPIENTS MUST EITHER HAVE A VALID LOGIN OR A VALID EMAIL
                                                $user_id = ($rcp->host == 'ilias') ? ilObjUser::getUserIdByLogin(addslashes($rcp->mailbox)) : false;
                                                if ($user_id == false && $rcp->host == 'ilias')
                                                {
                                                        $wrong_rcps .= "<br />".htmlentities($rcp->mailbox);
                                                        continue;
                                                }
                                                
                                                // CHECK IF USER CAN RECEIVE MAIL
                                                if ($user_id)
                                                {
                                                        if(!$rbacsystem->checkAccessOfUser($user_id, "mail_visible", $this->getMailObjectReferenceId()))
                                                        {
                                                                $wrong_rcps .= "<br />".htmlentities($rcp->mailbox).
                                                                        " (".$this->lng->txt("user_cant_receive_mail").")";
                                                                continue;
                                                        }
                                                }
                                        }
                                        else if (substr($rcp->mailbox, 0, 7) == '#il_ml_')
                                        {
                                                if (!$this->mlists->mailingListExists($rcp->mailbox))
                                                {                                       
                                                        $wrong_rcps .= "<br />".htmlentities($rcp->mailbox).    
                                                                " (".$this->lng->txt("mail_no_valid_mailing_list").")";
                                                }
                                                
                                                continue;
                                        }
                                        else
                                        {
                                                $role_ids = $rbacreview->searchRolesByMailboxAddressList($rcp->mailbox.'@'.$rcp->host);
                                                if (count($role_ids) == 0)
                                                {
                                                        $wrong_rcps .= '<br />'.htmlentities($rcp->mailbox).
                                                                ' ('.$this->lng->txt('mail_no_recipient_found').')';
                                                        continue;
                                                }
                                                else if (count($role_ids) > 1)
                                                {
                                                        $wrong_rcps .= '<br/>'.htmlentities($rcp->mailbox).
                                                                ' ('.sprintf($this->lng->txt('mail_multiple_recipients_found'), implode(',', $role_ids)).')';
                                                }
                                        }
                                }
                        }
                }
                else
                {
                        $tmp_rcp = $this->explodeRecipients($a_recipients);

                        foreach ($tmp_rcp as $rcp)
                        {
                                if (empty($rcp))
                                {
                                        continue;
                                }
                                // NO GROUP
                                if (substr($rcp,0,1) != '#')
                                {
                                        // ALL RECIPIENTS MUST EITHER HAVE A VALID LOGIN OR A VALID EMAIL
                                        if (!ilObjUser::getUserIdByLogin(addslashes($rcp)) and
                                                !ilUtil::is_email($rcp))
                                        {
                                                $wrong_rcps .= "<br />".htmlentities($rcp);
                                                continue;
                                        }

                                        // CHECK IF USER CAN RECEIVE MAIL
                                        if ($user_id = ilObjUser::getUserIdByLogin(addslashes($rcp)))
                                        {
                                                if(!$rbacsystem->checkAccessOfUser($user_id, "mail_visible", $this->getMailObjectReferenceId()))
                                                {
                                                        $wrong_rcps .= "<br />".htmlentities($rcp).
                                                                " (".$this->lng->txt("user_cant_receive_mail").")";
                                                        continue;
                                                }
                                        }
                                }
                                else if (substr($rcp, 0, 7) == '#il_ml_')
                                {
                                        if (!$this->mlists->mailingListExists($rcp))
                                        {                                       
                                                $wrong_rcps .= "<br />".htmlentities($rcp).     
                                                        " (".$this->lng->txt("mail_no_valid_mailing_list").")";
                                        }
                                        
                                        continue;
                                }
                                else if (ilUtil::groupNameExists(addslashes(substr($rcp,1))))
                                {
                                        continue;
                                }
                                else if (!$rbacreview->roleExists(addslashes(substr($rcp,1))))
                                {
                                        $wrong_rcps .= "<br />".htmlentities($rcp).     
                                                " (".$this->lng->txt("mail_no_valid_group_role").")";
                                        continue;
                                }                               
                        }
                }
                return $wrong_rcps;
        }

        function savePostData($a_user_id,
                                                  $a_attachments,
                                                  $a_rcp_to,
                                                  $a_rcp_cc,
                                                  $a_rcp_bcc,
                                                  $a_m_type,
                                                  $a_m_email,
                                                  $a_m_subject,
                                                  $a_m_message,
                                                  $a_use_placeholders)
        {
                global $ilDB;
                
                $query = "DELETE FROM $this->table_mail_saved ".
                        "WHERE user_id = ".$ilDB->quote($this->user_id)." ";
                $res = $this->ilias->db->query($query);

                $query = "INSERT INTO $this->table_mail_saved ".
                        "SET user_id = ".$ilDB->quote($a_user_id).",".
                        "attachments = '".addslashes(serialize($a_attachments))."',".
                        "rcp_to = ".$ilDB->quote($a_rcp_to).",".
                        "rcp_cc = ".$ilDB->quote($a_rcp_cc).",".
                        "rcp_bcc = ".$ilDB->quote($a_rcp_bcc).",".
                        "m_type = '".addslashes(serialize($a_m_type))."',".
                        "m_email = '',".
                        "m_subject = ".$ilDB->quote($a_m_subject).",".
                        "m_message = ".$ilDB->quote($a_m_message).",".
                        "use_placeholders = ".$ilDB->quote($a_use_placeholders)."";
                $res = $this->ilias->db->query($query);

                $this->getSavedData();

                return true;
        }

        function getSavedData()
        {
                global $ilDB;
                
                $query = "SELECT * FROM $this->table_mail_saved ".
                        "WHERE user_id = ".$ilDB->quote($this->user_id)." ";

                $this->mail_data = $this->fetchMailData($this->ilias->db->getRow($query, DB_FETCHMODE_OBJECT));

                return $this->mail_data;
        }

        function sendMail($a_rcp_to,$a_rcp_cc,$a_rcp_bc,$a_m_subject,$a_m_message,$a_attachment,$a_type, $a_use_placeholders = 0)
        {
                global $lng,$rbacsystem,$log;
                //$log->write('class.ilMail.sendMail '.$a_rcp_to.' '.$a_m_subject);
                $error_message = '';
                $message = '';

                if (in_array("system",$a_type))
                {
                        $this->__checkSystemRecipients($a_rcp_to);
                        $a_type = array('system');
                }

                if ($a_attachment)
                {
                        if (!$this->mfile->checkFilesExist($a_attachment))
                        {
                                return "YOUR LIST OF ATTACHMENTS IS NOT VALID, PLEASE EDIT THE LIST";
                        }
                }
                // CHECK NECESSARY MAIL DATA FOR ALL TYPES
                if ($error_message = $this->checkMail($a_rcp_to,$a_rcp_cc,$a_rcp_bc,$a_m_subject,$a_m_message,$a_type))
                {
                        return $error_message;
                }
                // check recipients
                if ($error_message = $this->checkRecipients($a_rcp_to,$a_type))
                {
                        $message .= $error_message;
                }

                if ($error_message = $this->checkRecipients($a_rcp_cc,$a_type))
                {
                        $message .= $error_message;
                }

                if ($error_message = $this->checkRecipients($a_rcp_bc,$a_type))
                {
                        $message .= $error_message;
                }
                // if there was an error
                if (!empty($message))
                {
                        return $this->lng->txt("mail_following_rcp_not_valid").$message;
                }

                // CHECK FOR SYSTEM MAIL
                if (in_array('system',$a_type))
                {
                        if (!empty($a_attachment))
                        {
                                return $lng->txt("mail_no_attach_allowed");
                        }
                }
                
                // ACTIONS FOR ALL TYPES
                // GET RCPT OF MAILING LISTS
                $rcp_to = $this->parseRcptOfMailingLists($a_rcp_to);
                $rcp_cc = $this->parseRcptOfMailingLists($a_rcp_cc);
                $rcp_bc = $this->parseRcptOfMailingLists($a_rcp_bc);

                if (! ilMail::_usePearMail())
                {
                        // REPLACE ALL LOGIN NAMES WITH '@' BY ANOTHER CHARACTER
                        $rcp_to = $this->__substituteRecipients($rcp_to,"substitute");
                        $rcp_cc = $this->__substituteRecipients($rcp_cc,"substitute");
                        $rcp_bc = $this->__substituteRecipients($rcp_bc,"substitute");
                }

                // COUNT EMAILS
                $c_emails = $this->__getCountRecipients($rcp_to,$rcp_cc,$rcp_bc,true);
                $c_rcp = $this->__getCountRecipients($rcp_to,$rcp_cc,$rcp_bc,false);

                // currently disabled..
                /*
                if (count($c_emails))
                {
                        if (!$this->getEmailOfSender())
                        {
                                return $lng->txt("mail_check_your_email_addr");
                        }
                }
                */
                
                // check smtp permission
                if($c_emails && $this->user_id != ANONYMOUS_USER_ID && 
                   !$rbacsystem->checkAccess('smtp_mail', $this->mail_obj_ref_id))
                {
                        return $this->lng->txt('mail_no_permissions_write_smtp');
                }                       
                        
                // save mail in sent box
                $sent_id = $this->saveInSentbox($a_attachment,$a_rcp_to,$a_rcp_cc,$a_rcp_bc,$a_type,
                                                                                $a_m_subject,$a_m_message);
                                                                                
                if($a_attachment)
                {
                        $this->mfile->assignAttachmentsToDirectory($sent_id,$sent_id);

                        if ($error = $this->mfile->saveFiles($sent_id,$a_attachment))
                        {
                                return $error;
                        }
                }

                // FILTER EMAILS
                // IF EMAIL RECIPIENT
                if($c_emails)
                {               
                        $this->sendMimeMail($this->__getEmailRecipients($rcp_to),
                                                                $this->__getEmailRecipients($rcp_cc),
                                                                $this->__getEmailRecipients($rcp_bc),
                                                                $a_m_subject,
                                                                $a_m_message,
                                                                $a_attachment,
                                                                0);
                }

                if (in_array('system',$a_type))
                {
                        if (!$this->distributeMail($rcp_to,$rcp_cc,$rcp_bc,$a_m_subject,$a_m_message,$a_attachment,$sent_id,$a_type,'system', $a_use_placeholders))
                        {
                                return $lng->txt("mail_send_error");
                        }
                }
                // ACTIONS FOR TYPE SYSTEM AND NORMAL
                if (in_array('normal',$a_type))
                {
                        // TRY BOTH internal and email (depends on user settings)
                        if (!$this->distributeMail($rcp_to,$rcp_cc,$rcp_bc,$a_m_subject,$a_m_message,$a_attachment,$sent_id,$a_type,'normal', $a_use_placeholders))
                        {
                                return $lng->txt("mail_send_error");
                        }
                }

                // Temporary bugfix
                if (!$this->getSaveInSentbox())
                {
                        $this->deleteMails(array($sent_id));
                }

                return '';
        }
        
        function parseRcptOfMailingLists($rcpt = '')
        {
                if ($rcpt == '') return $rcpt;
                
                $arrRcpt = $this->explodeRecipients(trim($rcpt));
                if (!is_array($arrRcpt) || empty($arrRcpt)) return $rcpt;
                
                $new_rcpt = array();
                
                foreach ($arrRcpt as $item)
                {
                        if (ilMail::_usePearMail())
                        {
                                if (substr($item->mailbox, 0, 7) == '#il_ml_')
                                {
                                        if ($this->mlists->mailingListExists($item->mailbox))
                                        {
                                                foreach ($this->mlists->getCurrentMailingList()->getAssignedEntries() as $entry)
                                                {
                                                        $new_rcpt[] = ($entry['login'] != '' ? $entry['login'] : $entry['email']);
                                                }
                                        }
                                }
                                else
                                {
                                        $new_rcpt[] = $item->mailbox.'@'.$item->host;
                                }
                        }
                        else
                        {
                                if (substr($item, 0, 7) == '#il_ml_')
                                {
                                        if ($this->mlists->mailingListExists($item))
                                        {
                                                foreach ($this->mlists->getCurrentMailingList()->getAssignedEntries() as $entry)
                                                {
                                                        $new_rcpt[] = ($entry['login'] != '' ? $entry['login'] : $entry['email']);
                                                }
                                        }       
                                }
                                else
                                {
                                        $new_rcpt[] = $item;
                                }
                        }               
                }               
                
                return implode(',', $new_rcpt);
        }

        function saveInSentbox($a_attachment,$a_rcp_to,$a_rcp_cc,$a_rcp_bcc,$a_type,
                                                   $a_m_subject,$a_m_message)
        {
                include_once "Services/Mail/classes/class.ilMailbox.php";

                $mbox = new ilMailbox($this->user_id);
                $sent_id = $mbox->getSentFolder();

                return $this->sendInternalMail($sent_id,$this->user_id,$a_attachment,$a_rcp_to,$a_rcp_cc,
                                                                                $a_rcp_bcc,'read',$a_type,$a_as_email,$a_m_subject,$a_m_message,$this->user_id, 0);
        }


        
        function addFullname($a_email)
        {
                include_once 'Services/Mail/classes/class.ilMimeMail.php';
                
                global $ilUser;

                return ilMimeMail::_mimeEncode($ilUser->getFullname()).'<'.$a_email.'>';
        }

        function sendMimeMail($a_rcp_to,$a_rcp_cc,$a_rcp_bcc,$a_m_subject,$a_m_message,$a_attachments)
        {
                #var_dump("<pre>",$a_rcp_to,$a_rcp_cc,$a_rcp_bcc,$a_m_subject,$a_m_message,$a_attachments,"<pre>");
                
                $inst_name = $this->ilias->getSetting("inst_name") ? $this->ilias->getSetting("inst_name") : "ILIAS 3";
                $a_m_subject = "[".$inst_name."] ".$a_m_subject;
                
                if($this->user_id != ANONYMOUS_USER_ID)
                {
                        $sender = $this->addFullname($this->getEmailOfSender());        
                }
                else
                {
                        if(trim($this->ilias->getSetting('mail_external_sender_noreply')) != '')
                        {
                                include_once "Services/Mail/classes/class.ilMimeMail.php";
                                $sender = ilMimeMail::_mimeEncode(self::_getAnonymousName()).
                                                  '<noreply@'.trim($this->ilias->getSetting('mail_external_sender_noreply')).'>';
                        }
                        else
                        {
                                include_once "Services/Mail/classes/class.ilMimeMail.php";
                                $sender = ilMimeMail::_mimeEncode(self::_getAnonymousName()).
                                                  '<noreply@'.$_SERVER['SERVER_NAME'].'>';
                        }
                }

                if($this->isSOAPEnabled())
                {
                        // Send per soap
                        include_once 'Services/WebServices/SOAP/classes/class.ilSoapClient.php';

                        $soap_client = new ilSoapClient();
                        $soap_client->setTimeout(1);
                        $soap_client->setResponseTimeout(1);
                        $soap_client->enableWSDL(true);
                        $soap_client->init();

                        $attachments = array();
                        $a_attachments = $a_attachments ? $a_attachments : array();
                        foreach($a_attachments as $attachment)
                        {
                                $attachments[] = $this->mfile->getAbsolutePath($attachment);
                        }
                        $attachments = implode(',',$attachments);                       

                        $soap_client->call('sendMail',array($_COOKIE['PHPSESSID'].'::'.$_COOKIE['ilClientId'],  // session id
                                                                                                $a_rcp_to,
                                                                                                $a_rcp_cc,
                                                                                                $a_rcp_bcc,
                                                                                                $sender,
                                                                                                $a_m_subject,
                                                                                                $a_m_message,
                                                                                                $attachments));
                
                        return true;
                }
                else
                {
                        // send direct
                        include_once "Services/Mail/classes/class.ilMimeMail.php";
                        
                        $mmail = new ilMimeMail();
                        $mmail->autoCheck(false);
                        $mmail->From($sender);
                        $mmail->To($a_rcp_to);
                        // Add installation name to subject
                        $mmail->Subject($a_m_subject);
                        $mmail->Body($a_m_message);

                        if ($a_rcp_cc)
                        {
                                $mmail->Cc($a_rcp_cc);
                        }

                        if ($a_rcp_bcc)
                        {
                                $mmail->Bcc($a_rcp_bcc);
                        }

                        if (is_array($a_attachments))
                        {       
                                foreach ($a_attachments as $attachment)
                                {
                                        $mmail->Attach($this->mfile->getAbsolutePath($attachment));
                                }
                        }

                        $mmail->Send();
                }
        }
        function getEmailOfSender()
        {
                $umail = new ilObjUser($this->user_id);
                $sender = $umail->getEmail();

                if (ilUtil::is_email($sender))
                {
                        return $sender;
                }
                else
                {
                        return '';
                }
        }

        function saveAttachments($a_attachments)
        {
                global $ilDB;
                
                $query = "UPDATE $this->table_mail_saved ".
                        "SET attachments = '".addslashes(serialize($a_attachments))."' ".
                        "WHERE user_id = ".$ilDB->quote($this->user_id)." ";

                $res = $this->ilias->db->query($query);

                return true;
        }

        function getAttachments()
        {
                return $this->mail_data["attachments"] ? $this->mail_data["attachments"] : array();
        }
        
        function explodeRecipients($a_recipients)
        {
                if (ilMail::_usePearMail())
                {
                        if (strlen(trim($a_recipients)) > 0)
                        {
                                require_once 'Mail/RFC822.php';
                                $parser = &new Mail_RFC822();
                                return $parser->parseAddressList($a_recipients, "ilias", false, true);
                        } else {
                                return array();
                        }
                }
                else
                {
                        $a_recipients = trim($a_recipients);
        
                        // WHITESPACE IS NOT ALLOWED AS SEPERATOR
                        #$a_recipients = preg_replace("/ /",",",$a_recipients);
                        $a_recipients = preg_replace("/;/",",",$a_recipients);
                        
        
                        foreach(explode(',',$a_recipients) as $tmp_rec)
                        {
                                if($tmp_rec)
                                {
                                        $rcps[] = trim($tmp_rec);
                                }
                        }
                        return is_array($rcps) ? $rcps : array();
                }
        }

        function __getCountRecipient($rcp,$a_only_email = true)
        {
                $counter = 0;

                if (ilMail::_usePearMail())
                {
                        $tmp_rcp = $this->explodeRecipients($rcp);
                        if (! is_a($tmp_rcp, 'PEAR_Error'))
                        {
                                foreach ($tmp_rcp as $to)
                                {
                                        if ($a_only_email)
                                        {
                                                // Addresses which aren't on the ilias host, and 
                                                // which have a mailbox which does not start with '#',
                                                // are external e-mail addresses
                                                if ($to->host != 'ilias' && substr($to->mailbox,0,1) != '#')
                                                {
                                                        ++$counter;
                                                }
                                        }
                                        else
                                        {
                                                ++$counter;
                                        }
                                }
                        }
                }
                else
                {
                        foreach ($this->explodeRecipients($rcp) as $to)
                        {
                                if ($a_only_email)
                                {
                                        if (strpos($to,'@'))
                                        {
                                                ++$counter;
                                        }
                                }
                                else
                                {
                                        ++$counter;
                                }
                        }
                }
                return $counter;
        }
                        

        function __getCountRecipients($a_to,$a_cc,$a_bcc,$a_only_email = true)
        {
                return $this->__getCountRecipient($a_to,$a_only_email) 
                        + $this->__getCountRecipient($a_cc,$a_only_email) 
                        + $this->__getCountRecipient($a_bcc,$a_only_email);
        }

        function __getEmailRecipients($a_rcp)
        {
                if (ilMail::_usePearMail())
                {
                        $rcp = array();
                        $tmp_rcp = $this->explodeRecipients($a_rcp);
                        if (! is_a($tmp_rcp, 'PEAR_Error'))
                        {
                                foreach ($tmp_rcp as $to)
                                {
                                        if(substr($to->mailbox,0,1) != '#' && $to->host != 'ilias')
                                        {
                                                $rcp[] = $to->mailbox.'@'.$to->host;
                                        }
                                }
                        }
                        return implode(',',$rcp);
                }
                else
                {
                        foreach ($this->explodeRecipients($a_rcp) as $to)
                        {
                                if(strpos($to,'@'))
                                {
                                        $rcp[] = $to;
                                }
                        }
                        return implode(',',$rcp ? $rcp : array());
                }
        }

        function __prependMessage($a_m_message,$rcp_to,$rcp_cc)
        {
                $inst_name = $this->ilias->getSetting("inst_name") ? $this->ilias->getSetting("inst_name") : "ILIAS 3";

                $message = $inst_name." To:".$rcp_to."\n";

                if ($rcp_cc)
                {
                        $message .= "Cc: ".$rcp_cc;
                }

                $message .= "\n\n";
                $message .= $a_m_message;

                return $message;
        }

        function __checkSystemRecipients(&$a_rcp_to)
        {
                if (preg_match("/@all/",$a_rcp_to))
                {
                        // GET ALL LOGINS
                        $all = ilObjUser::_getAllUserLogins($this->ilias);
                        $a_rcp_to = preg_replace("/@all/",implode(',',$all),$a_rcp_to);
                }

                return;
        }

        function __substituteRecipients($a_rcp,$direction)
        {
                $new_name = array();

                $tmp_names = $this->explodeRecipients($a_rcp);


                foreach($tmp_names as $name)
                {
                        if(strpos($name,"#") === 0)
                        {
                                $new_name[] = $name;
                                continue;
                        }
                        switch($direction)
                        {
                                case "substitute":
                                        if(strpos($name,"@") and ilObjUser::_loginExists($name))
                                        {
                                                $new_name[] = preg_replace("/@/","�#�",$name);
                                        }
                                        else
                                        {
                                                $new_name[] = $name;
                                        }
                                        break;
                                        
                                case "resubstitute":
                                        if(stristr($name,"�#�"))
                                        {
                                                $new_name[] = preg_replace("/�#�/","@",$name);
                                        }
                                        else
                                        {
                                                $new_name[] = $name;
                                        }
                                        break;
                        }
                }
                return implode(",",$new_name);
        }

        public static function _getUserInternalMailboxAddress($usr_id, $login=null, $firstname=null, $lastname=null) {
                if (ilMail::_usePearMail())
                {
                        if ($login == null)
                        {
                                require_once './Services/User/classes/class.ilObjUser.php';
                                $usr_obj = new ilObjUser($usr_id);
                                $usr_obj->read();
                                $login = $usr_obj->getLogin();
                                $firstname = $usr_obj->getFirstname();
                                $lastname = $usr_obj->getLastname();
                        }
                        return preg_replace('/[()<>@,;:\\".\[\]]/','',$firstname.' '.$lastname).' <'.$login.'>';
                }
                else
                {
                        return $login;
                }
        }
        public static function _usePearMail() {
                global $ilias;

                $result = false;
                if ($ilias->getSetting('pear_mail_enable') == true)
                {
                        // Note: We use the include statement to determine whether PEAR MAIL is
                        //      installed. We use the @ operator to prevent PHP from issuing a
                        //      warning while we test for PEAR MAIL.
                        $is_pear_mail_installed = @include_once 'Mail/RFC822.php';
                        if ($is_pear_mail_installed) {
                                $result = true;
                        } else {
                                // Disable Pear Mail, when we detect that it is not
                                // installed
                                global $log;
                                $log->write("WARNING: ilMail::_userPearMail disabled Pear Mail support, because include 'Mail/RFC822.php' failed.");
                                $ilias->setSetting('pear_mail_enable', false);
                        }
                }
                return $result;
        }
        
        public static function _getAnonymousName()
        {               
                return 'ILIAS';
        }
        
} // END class.ilMail
?>