Посылка письма с прикреплённым файлом через batch на серверe

[timaluhs]

У меня тут проблема. Надо посылать почту с прикреплённым файлом. Нашла дот.нет код. с клиентской машины посылает как часы. Теперь задачка усложнилась. Не все пользуются клиентом, по большей части народ пользуется ТС. Там нет никакого почтового агента, соответственно письмо не посылается. Написан класс, который будет запускаться из batch на сервере и посылать письмо каждые 5-10 минут. Всё путём но почему-то на первой строчке выдаёт ошибку
Request for the permission of type 'InteropPermission' failed. Object 'CLRObject' could not be created
Отчего такая непонятная ошибка. Можно как-то как делать отладку в батч? Любые идеи please, я уже несколько дней мучаюсь.
причём перестал реагировать на try catch Спасибо
вот код

public int mlm_SendMailAttachment( str Body, str Subject, str FileName, str to, str sender)
{
    System.Net.Mail.MailAddress             mailAddressFrom;
    System.Net.Mail.MailAddress             mailAddressTo;
    System.Net.Mail.MailMessage             mailMessage;
    System.Net.Mail.Attachment              attachment;
    System.Net.Mail.AttachmentCollection    attachementCollection;
    System.Net.Mail.SmtpClient              smtpClient;

    str                                     SMTPServer;

    FileIOPermission                        perm;
    System.Exception                        e;
    ;

    try
    {
        mailAddressFrom = new System.Net.Mail.MailAddress(sender);// вылетает тут
        mailAddressTo =  new System.Net.Mail.MailAddress(to);
        SMTPServer = SysEmailParameters::find(false).SMTPRelayServerName;
        mailMessage = new System.Net.Mail.MailMessage(mailAddressFrom, mailAddressTo);
        mailmessage.set_Subject(Subject);
        mailmessage.set_Body(Body);
        mailmessage.set_IsBodyHtml(true);
        attachementCollection = mailMessage.get_Attachments();
        perm = new FileIOPermission(FileName,'rw');
        perm.assert();
        attachment = new System.Net.Mail.Attachment(FileName);
        attachementCollection.Add(attachment);
        smtpClient = new System.Net.Mail.SmtpClient(SMTPServer);
        smtpClient.Send(mailmessage);
        CodeAccessPermission::revertAssert();
       mailmessage.Dispose();
        attachment.Dispose();
        return 1;
    }
    catch(Exception::CLRError)
    {
        info (strfmt("error sent email to  ל %1" , to));
        info(CLRInterop::getLastException().ToString());

       return 0;
    }
}

[Damn]

А если вместо FileIOPermission воспользоваться InteropPermission ? Программа же явно говорит что ей именно такой permission нужен.

[timaluhs]

поменяла, не помогает

[Damn]

new InteropPermission( InteropKind::ClrInterop)

вот так инициализируете объект ?
а для вылова ошибки

    try
    {
    ---
    }
    catch (Exception::CLRError)
    {
        throw error( AifUtil::getClrErrorMessage());
    }

используете ?

[timaluhs]

инициализирую как Вы написали,
catch немного другой... прилагается в первом посте. Честно не думаю, что принципиально важно, что написано в catch. Exception тот же.

и какая связь между требованием permission в строке где создаётся объект System.Net.Mail.MailAddress(sender) - кто посылает письмо?

[sukhanchik]

Код исполняется на клиенте? (На сервере насколько я помню - InteropPermission не отрабатывает, или я ошибаюсь?)

[timaluhs]

на клиенте всё работает, теперь это надо заставить работать на сервер из batch...

[sukhanchik]

Цитата:

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

на клиенте всё работает, теперь это надо заставить работать на сервер из batch...

Сильно подозреваю, что под batch-сервером подразумевается именно служба.
В режиме "старого" пакетника - такое можно было провернуть, создав static-метод на клиенте (static client) и вызвать его из метода run, который вызывает пакетник.
Тут... сильно подозреваю что может и не получиться (надо попробовать).

[timaluhs]

класс property Run on - Called from

public class mlm_SendEmailWithAttachment extends RunBaseBatch
{
}

у нас пару таких классов запускается на сервер по ночам Basic -> Inquires -> Bach job
это и называется старым пакетником?

[timaluhs]

Danm, просто гениально, об этом я не подумала. Почему-то считала что permition относятся к файлу, чтобы его можно было читать.
оказывается тут всё по другому. Респект и уважение.
Работает УРА. Всем огромное спасибо. Что бы я без форума делала????

выдаёт ещё какие-то ошибки, попробую разобраться. Но первое письмо доходит, а на втором почему- то опять требует
Request for the permission of type 'InteropPermission' failed.
в конце метода надо ещё какие-то танцы с бубном по поводу 'InteropPermission' или нет?

[Damn]

Цитата:

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

Код исполняется на клиенте? (На сервере насколько я помню - InteropPermission не отрабатывает, или я ошибаюсь?)

А как же тогда работают классы, создаваемые для работы с вэбсервисами ?
У них свойство RunOn=Server и без вызова new InteropPermission( InteropKind::ClrInterop).assert() вэбсервис не проинициализируешь.

Цитата:

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

инициализирую как Вы написали

Надеюсь assert() вызывается до инициализации System.Net.Mail.MailAddress ?

[sukhanchik]

Цитата:

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

А как же тогда работают классы, создаваемые для работы с вэбсервисами ?
У них свойство RunOn=Server и без вызова new InteropPermission( InteropKind::ClrInterop).assert() вэбсервис не проинициализируешь.

А.. ну да. Извиняюсь - это я тогда с чем-то перепутал (может с COM-ом).

[someOne]

Почему бы не использовать для отправки класс SysEmailBatch ?

В Ax 2009 работает без проблем, файлы прикрепляет. К тому же можно использовать шаблоны почтовых сообщений...

см например SysEmailSystemTable::sendMail()

[Damn]

Я для отправки писем со вложенными файлами в пакетных заданиях использую класс SysMailer (это в сущности COM('CDO.Message')). Без проблем отрабатывает и на стороне клиента и на стороне сервера.

[timaluhs]

Danm, можно пример с attachment? или ссылку понятную для начинающих (класса SysMailer) ?
Спасибо

[Damn]

Можно просто в аксапте по перекрёстным ссылкам посмотреть где вызывается метод SysMailer.sendMail(), там и будут примеры из стандартного функционала, либо здесь запустить поиск по слову SysMailer.
Лучше конечно использовать оба варианта.

[someOne]

Цитата:

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

У меня тут проблема. Надо посылать почту с прикреплённым файлом. Нашла дот.нет код. с клиентской машины посылает как часы. Теперь задачка усложнилась. Не все пользуются клиентом, по большей части народ пользуется ТС. Там нет никакого почтового агента, соответственно письмо не посылается. Написан класс, который будет запускаться из batch на сервере и посылать письмо каждые 5-10 минут. Всё путём но почему-то на первой строчке выдаёт ошибку
Request for the permission of type 'InteropPermission' failed. Object 'CLRObject' could not be created...

Привожу пример рабочего кода, который может отправлять сообщения, в т.ч. на серверной стороне. Может кто то захочет "поиграть" с NET

(Хотя я все же рекомендую пользоваться "стандартным" для Ax способом - класс SysEmailBatch)

Проверен на ax 2009

static server boolean mlm_SendMailAttachment(str Body, str Subject, str FileName, str to, str sender)
{
    System.Net.Mail.MailAddress             mailAddressFrom;
    System.Net.Mail.MailAddress             mailAddressTo;
    System.Net.Mail.MailMessage             mailMessage;
    System.Net.Mail.Attachment              attachment;
    System.Net.Mail.AttachmentCollection    attachementCollection;
    System.Net.Mail.SmtpClient              smtpClient;
    str                                     SMTPServer;
    ;

    new InteropPermission(InteropKind::ClrInterop).assert();

    try
    {
        mailAddressFrom = new System.Net.Mail.MailAddress(sender);
        mailAddressTo =  new System.Net.Mail.MailAddress(to);

        SMTPServer = SysEmailParameters::find(false).SMTPRelayServerName;

        mailMessage = new System.Net.Mail.MailMessage(mailAddressFrom, mailAddressTo);

        mailmessage.set_Subject(Subject);
        mailmessage.set_Body(Body);
        mailmessage.set_IsBodyHtml(true);

        attachementCollection = mailMessage.get_Attachments();

        attachment = new System.Net.Mail.Attachment(FileName);
        attachementCollection.Add(attachment);

        smtpClient = new System.Net.Mail.SmtpClient(SMTPServer);
        smtpClient.Send(mailmessage);

        mailmessage.Dispose();
        attachment.Dispose();

        return true;
    }
    catch(Exception::CLRError)
    {
       error(AifUtil::getClrErrorMessage());

       return false;
    }
}

[Damn]

Цитата:

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

Привожу пример рабочего кода, который может отправлять сообщения, в т.ч. на серверной стороне. Может кто то захочет "поиграть" с NET

А если Subject будет состоять из русских символов и в длину будет больше 100 (или даже поменьше, не помню точно), то письма тоже будут нормально читаться ?
Я как раз из-за проблем с темой письма не стал продолжать "игры" с .NET в плане отправки электронных писем. Продолжаю юзать старый добрый SysMailer.

[Mykola Galak]

Цитата:

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

Надо посылать почту с прикреплённым файлом.

Создайте шаблон письма в Basic\Setup\E-mail templates. Письмо с прикрепленным файлом можно отослать вызовом серверного метода: \Data Dictionary\Tables\SysEmailTable\Methods\sendMail.