Отправка почты: ошибка с SysInetMailer

[axapta25Dev]

Привет всем.
Пытаюсь автоматом отправить письмо из Аксапты 2.5 с вложением.
Конфигурация у меня одна - outlook.
Но надо бы еще и для outlook express чтоб работало.

Нашел пример с SysInetMailer здесь, но у меня в методе logon вылазит ошибка. (логон постоянно unsuccessful)

Ошибка почтовой службы:
Рег. имя по умолчанию не найдено. Пользователь не может войти в Систему через диал. окно регистрации. Сообщение не послано.

Как это исправить?
Заранее спасибо.


Также нашел пример отправки через Outlook - но при отправке вылазит окошко - он хочет подтверждения отправки.
На mazzy.ru дается ссылка,
http://forum.mazzy.ru/index.php?sho...findpost&p=1666
по которой вроде решили это - там файлик приаттачен, но уже этой страницы нет.
Сергей, не мог бы ты выложить сюда этот архив? Спасибо.

[mit]

Без привязки к почтовой программе:

   #Mapi
	Mapi		  m	 = new Mapi();
	MapiMessage   msg   = new MapiMessage();
	MapiRecipDesc recip = new MapiRecipDesc();
	;
 
	recip.Name(my@email.ru);					 // Установка получателя
	recip.RecipClass(#MAPI_TO);
	msg.setRecipNo(1,recip);
	msg.subject("Axapta message");
	msg.text("text");
	m.Logon("","",#MAPI_USE_DEFAULT);   // Вход в систему, использующий заданный по умолчанию профиль
	m.SendMail(msg,#MAPI_DIALOG);	   //отправляет c диалогом, и позволяя изменять  Тема, Текст и Получатели в письме.
//	m.SendMail(msg);				  // без диалога
	m.Logoff();

[glibs]

Если еще и attachments нужно слать, то можно попробовать использовать Dundas Mailer. Довольно вменяемая компонента.

[axapta25Dev]

2 mit:
Ну, вообще именно через MAPI ведь и реализован класс SysInetMail
И как раз строка
m.Logon("","",#MAPI_USE_DEFAULT);
в нем - вываливает вышеуказанное сообщение.

Я чего и спрашиваю, как это исправить? что настроить где-то может?
Но проверю именно ваш код, возможно я не прав.

2 glibs:
К сожалению, SysMailer, который использует как раз Dundas Mailer в Axapta 2.5 еще нет. А там написано много в тройке - и переписывать это не представляется возможным.

[glibs]

Цитата:

Сообщение от axapta25Dev

...
К сожалению, SysMailer, который использует как раз Dundas Mailer в Axapta 2.5 еще нет. А там написано много в тройке - и переписывать это не представляется возможным.
...

Ну... мне пока еще тяжело судить насколько много там чего в тройке написано.

В общем, я создал проект в 3.0, затолкал в него все класссы, что на SysMailer начинаются, экспортировал проект, импортировал в 2.5. Пришлось лишний раз скомпилироваться почему-то. И почта отправляется. Без шума и пыли, без дурацких диалогов, без подтверждения доступа к адресной книге и без установки Outlook. Минуты три на все ушло (с учетом моего небольшого опыта тыкания по кнопкам в среде разработки).

Вы уже который день мучаетесь. Может попробуете?

[axapta25Dev]

SysInetMail проверил на WinXP SP2 в Axapta 3.0 - ошибки нет.

На этой же винде - в Axapta 2.5 - есть.
То есть это не сервис пак, и не винда. А именно версия Аксапты.

А SysMailer заимпортю сегодня, попробую. Просто не знаю SMTP сервера - точнее дома знаю, будет работать (если не учесть ошибку про "Неверный адрес from:"). А вот на клиенте как - вопрос.

[glibs]

Цитата:

Сообщение от axapta25Dev

...
Просто не знаю SMTP сервера
...

Как это? А Outlook у вас как настроен? У вас MS Exchange?

SMTP в SysMailer указывать не обязательно. У меня и так отправляет. Он сам себе SMTP. Правда, долго, т.к. он не отвисает до тех пор, пока не передаст сообщение получателю.

Если вы указываете SMTP, то это сервер-ретранслятор. При использовании локального ретранслятора "зависаний" не будет.

Еще обратите внимание на форму SysEmailParameters. Рекомендую ее тоже перетащить.

Цитата:

Сообщение от axapta25Dev

...
если не учесть ошибку про "Неверный адрес from:").
...

Не должно такого быть. У меня тоже что-то похожее вылазило, но поборол. Не помню, что именно повлияло. Поэкспериментируйте.

Цитата:

Сообщение от axapta25Dev

...
А вот на клиенте как - вопрос.
...

Посмотрите форму SysEmailParameters в 3.0. Я не понимаю, в чем именно проблема. У клиента нет SMTP-сервера?

[mit]

если 3-хуровневая конфигурация то проверьте, где исполняется код, возможно если на сервере, то на сервере должен быть установлен и настроен майл-клиент

[axapta25Dev]

конфигурация двухуровневая. Почтовый клиент есть - Outlook.
Конфигурация по умолчанию - Outlook
При поиске (MAPI в реестре ищет ключ - смотрит эту конфигурацию по умолчанию) находится только Outlook - то есть все Ок.
А потом на _mapi.logon вываливается ошибка.
Что ж это может быть??

P.S. Точнее default в реесте ищет SysInetMail - но не в этом суть.
А в конце, когда уже все возможные логоны он перепробовал, он как раз и пробует логонится с Defalt с пустыми конфигурацией и паролем.

А что это за пароль? Может просто его попробовать ввести?? Где его посмотреть?

[AndyD]

Цитата:

Сообщение от axapta25Dev

А в конце, когда уже все возможные логоны он перепробовал, он как раз и пробует логонится с Defalt с пустыми конфигурацией и паролем.

А что это за пароль? Может просто его попробовать ввести?? Где его посмотреть?

Имя профиля и пароль хранятся в таблице SysINetTable. Для этой таблицы определена форма для простора INetMailSetup, но в моей версии ее нет.

[axapta25Dev]

2 mit: Да, это тот пример с Outlook, что я нашел. Работает и у меня.

А вот через MAPI не хочет упорно.

2 Atani: Спасибо, гляну, может получится убрать окошко.

2AndyD:

Где оно хранится в аксапте, и как его поменять, понятно.
Что я хотел спросить, так это, зачем этот пароль нужен? И что туда ввести на форме SysInetMailSetup?

[mit]

Вот два метода, оба работающие.

client void sendMailOutlook()
{
	Com Outlook = new COM("Outlook.Application");
	com Letter = Outlook.CreateItem("");
	Notes text = "Это сообщение было сформированно для тестирования.";
	;
 
	Letter.Subject("Тестовое сообщение");
	Letter.Body(text);
	Letter.To(E@mail.ru);
	Letter.Send();
}
client void sendMailMapi()
{
	#Mapi
	Mapi		 m	 = new Mapi();
	MapiMessage msg = new MapiMessage();
	MapiRecipDesc recip = new MapiRecipDesc();
	Notes text = "Это сообщение было сформированно для тестирования.";
	;
 
	recip.Name(E@mail.ru);					// Установка получатель
	recip.RecipClass(#MAPI_TO);
	msg.setRecipNo(1,recip);
	msg.subject("Тестовое сообщение");
	msg.text(text);
	m.Logon("","",#MAPI_USE_DEFAULT); // Вход в систему, использующий заданный по умолчанию профиль
//		m.SendMail(msg,#MAPI_DIALOG);	 //отправляет c диалогом, и позволяя изменять Тема, Текст и Получатели в письме.
	m.SendMail(msg);				 // без диалога
	m.logoff();
 
}

никаких параметров больше не нужно. оба метода работают на 2.5. при работе с Outlook правда нужно подтверждающее нажатие во всплывающем диалоге. повторюсь, используется профиль активного пользователя. Если на клиенте настроен и работает майл, все уходит со свистом. Если нет, попробуйте с другой машины.

[Atani]

Цитата:

Сообщение от axapta25Dev

Также нашел пример отправки через Outlook - но при отправке вылазит окошко - он хочет подтверждения отправки.

Посмотрите http://www.mapilab.com/ru/outlook/#security_outlook


В Outlook Express надо снять галочку "Предупреждать, если приложения пытаются отправить почту от моего имени" в Сервис - Параметры - Вкладка Безопасность.
В MS Outlook'е что-то не нашёл, но, кажется, тоже должана быть, только более хитро спрятанная

[itfs]

Вообще, в MAPI logon-е может быть отказано, если пользователь в самой системе ущербный в смысле прав. Далее есть пароль на учетную запись, (стоит ли галка запомнить пароль?), Далее сам smtp-relay может быть закрыт пользователем/паролем, это тоже настраивается в учетной записи ("Другие настройки"), надо через все это продираться ....
А когда Вы пользуететь конфигурацией по умолчанию вручную (из-под того же пользователя) почта отсылается? пароль требуется?

С уважением, itfs.

[axapta25Dev]

Наконец добрался до Аксапты, чтобы все проверить.

2Atani:
За ссылку спасибо, програмку скачал, поставил, Outlook ругаться перестал.
Но одно но.
Оказалось, что программа, которая провоцирует отправку, это

C:\WINDOWS\system32\rpcrt4.dll - Remote Procedure Call Runtime

Насколько я знаю, не очень хорошо разрешать доступ постоянный - вирусы могут залезть. Но может я и не прав.

2mit:
Попробовал таки ваш код через mapi
Не работает. Ошибок он не выдает, но и письмо не отправляет. Ошибка собственно та же.

Строка:

  
m.Logon("","",#MAPI_USE_DEFAULT); // Вход в систему, использующий заданный по умолчанию профиль

функция logon возвращает статус подключения - integer

Так вот у меня возвращается 3, а не 0, как надо.
А три, это (из макроса)
#MAPI_E_LOGON_FAILURE

То есть то сообщение, которое я писал в первом посте.

Хммм. Что же делать??

А про пользователя:
Пользотель один в системе - соответственно, правда админа. Пароля на вход в систему нет. На вход в почту - тоже. Постоянного доступа в интернет нету, dial-up.
Установлен Outlook - через com (Outlook.Application) почта создается нормально, как я уже писал выше.
В аксапте пользователь тоже админ, хотя, это здесь не важно.

2 itfs:
а что вы имеете ввиду под "пользуетесь конфигурацией по умолчанию вручную"?

Кто-то таки может объяснить смысл этого сообщения об ошибке, и как его исправить??

[kashperuk]

Гы.
Это, кстати, я - axapta25Dev.
От роботодателей скрывался, чтоб не знали, что удаленно еще прогаю

Я уже и забыл, что у меня такой логин есть..

[glibs]

Гы... щас Кашперука за серый ник засерят .

[xenikk]

Уважаемые, а подскажите пожалуйста, если схема 3х уровневая причем клиент работает через citrix на терминальном сервере, то как отправлять почту куда-либо так, чтоб открывалась почтовая программа на клиенте, а не на сервере?
AX 3.0

[mit]

вот этот метод отработает и без почтового клиента, только пользователь ели его логин не mit ничего не увидит.

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();
    }
}