Показать сообщение отдельно
Старый 11.03.2008, 14:53   #19  
mit is offline
mit
Участник
Аватар для mit
 
386 / 36 (2) +++
Регистрация: 15.01.2003
Адрес: Moscow
вот этот метод отработает и без почтового клиента, только пользователь ели его логин не mit ничего не увидит.
X++:
void send(MY_MailType   _mailType,
          Notes         _text,
          str           _subject  = "Axapta message",
          EmailPriority _priority = EmailPriority::Normal,
          str           _attachmentPath = '',
          str           _cc = '')
{
    SysEmailBatch   sysEmailBatch;
    str             Email = _cc;
    MY_MailTable    MY_MailTable;

    void send()
    {
        ;
        sysEmailBatch = SysEmailBatch::construct();

        sysEmailBatch.parmSendername( 'Server' );
        sysEmailBatch.parmSenderAddr( 'axapta@myDomen.ru' );
        sysEmailBatch.parmEmailAddr(Email);
        sysEmailBatch.parmMessageBody(_text);
        sysEmailBatch.parmPriority(_priority);
        sysEmailBatch.parmSubject(_subject);
        sysEmailBatch.parmAttachmentfileName(_attachmentPath);

        if(curUserId() == "mit")
        {
            info(Email);
            info(_subject);
            info(_text);
            sysEmailBatch.run();
        }
        else
            sysEmailBatch.run();
    }
    ;
    _text = strReplace(_text, "\n", "<BR>\n");//аменяем символы перевода строки для html формата 

    if(Email)
        send();

    while select MY_MailTable
        where MY_MailTable.MailType == _mailType
    {
        Email = SysUserInfo::find(MY_MailTable.UserId).Email;

        if(Email == "")
        {
            _text a+= ("\n \n Не указан E-mail для " + this.userName(MY_MailTable.UserId));
            Email = "axpta@myDomen.ru";
        }
        send();
    }
}
__________________
Дом поросенка должен быть крепостью. (Наф-Наф, полн. собр. соч., т.5, стр. 286)