AXForum  
Вернуться   AXForum > Microsoft Dynamics AX > DAX: Программирование
All
Забыли пароль?
Зарегистрироваться Правила Справка Пользователи Сообщения за день Поиск Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
Старый 11.03.2008, 14:53   #21  
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)
Теги
ax2.5

 

Похожие темы
Тема Автор Раздел Ответов Посл. сообщение
Отправка почты через Outlook... lev DAX: Программирование 9 12.12.2008 13:27
Отправка почты miklenew DAX: Программирование 10 07.09.2008 23:07
CRM:создания действия.ошибка fialka DAX: Программирование 2 23.06.2008 09:45
CRM:отправка почты на Outlook fialka DAX: Функционал 2 17.06.2008 16:09
Русская локализация Axapta 3 ? SlavaK DAX: Администрирование 59 01.07.2003 22:38
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход

Рейтинг@Mail.ru
Часовой пояс GMT +3, время: 02:50.