Отправка почты

[miklenew]

Пытаюсь послать письмо из Axapt-ы.
Сам себе на свой ящик.

static void Job25(Args _args)
{
    SysMailer mailer = new SysMailer();
    ;
    mailer.SMTPRelayServers().add("inbox.ru",25, "inbox.ru", "kolosov@inbox.ru", "pass");

    mailer.fromAddress("kolosov@inbox.ru");
    mailer.fromName("name");
    mailer.subject("test");
    mailer.tos().add("kolosov@inbox.ru");

    mailer.sendMail();
}

Пробовал и inbox.ru и smtp.inbox.ru, как написано
http://mail.ru/pages/help/2.html#2333
Не получается.
Что я делаю не так?

[custtable]

Добрый день!

Возможно дело в СМТП аутентификации на сервере. Я в свое время когда-то тоже долго мучался, пока снифером не отловил, что сервер меня посылал...

[DSPIC]

mailer.SMTPRelayServers().add("inbox.ru"...

Здесь первым указывается имя smtp сервера, smtp.mail.ru
+ попробуйте поменять порт на 2525. Вот рабочий код, только что проверил.

static void Job9(Args _args)
{
    SysMailer mailer = new SysMailer();
    ;
    mailer.SMTPRelayServers().add("smtp.mail.ru", 2525, "mail.ru", "Login", "Pass");

    mailer.fromAddress("From@mail.ru");
    mailer.fromName("Name");
    mailer.subject("Test");
    mailer.tos().add("To@mail.ru");

    mailer.sendMail();
}

+ для примера смотрите класс SysEMailBatch

[miklenew]

Цитата:

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

пока снифером не отловил, что сервер меня посылал...

И как решили проблему?

[miklenew]

Цитата:

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

mailer.SMTPRelayServers().add("inbox.ru"...

Здесь первым указывается имя smtp сервера, smtp.mail.ru
+ попробуйте поменять порт на 2525. Вот рабочий код, только что проверил.

Всё равно не отсылается.

[DSPIC]

Вот ещё вариант для теста.
1. Натройте в аутлуке (у меня 2k3) учетную запись с которой отправляете емаил, проверьте - работает ли он.
2. Переделайте и запустите джобец:

static void Job10(Args _args)
{
    SysEMailBatch   sysEMailBatch = SysEMailBatch::construct();
    ;

    sysEMailBatch.parmEmailAddr("To@list.ru");

    sysEMailBatch.parmMessageBody("Hello, this is test");

    sysEMailBatch.parmPriority(1);

    sysEMailBatch.parmSenderAddr("From@mail.ru");

    sysEMailBatch.parmSendername("Evgeny");

    sysEMailBatch.parmSubject("Test");

    if (sysEMailBatch.prompt())
    {
        sysEMailBatch.run();
    }
}

[custtable]

я использовал COM обект CDO.

вот ссылка на тему
E-mail в Аксапте 3.0 с помощью CDO.Message COM объекта

[custtable]

static void sendCDOMessage(Args _args)
{
        COM mailer, config, fields;
        COM item_SendUsing, item_SMTPServer, item_smtpserverport;
        COM item_SMTPAuthenticate, item_SMTPUsername, item_SMTPPassword;
    
        COMVariant comSendUsing = new COMVariant();
        COMVariant comSMTPServer = new COMVariant();
        COMVariant comSMTPServerPort = new COMVariant();
        COMVariant comSMTPAuthenticate = new COMVariant();
        COMVariant comSMTPUsername = new COMVariant();
        COMVariant comSMTPPassword = new COMVariant();
        ;
    
        mailer = new COM("CDO.Message");
        config = new COM("CDO.Configuration");
    
        config = mailer.configuration();
        fields = config.Fields();
    
        item_SendUsing = fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing");
        comSendUsing.int(2);
        item_SendUsing.Value(comSendUsing);
    
        item_smtpserver = fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver");
        comSMTPServer.bStr('smtp.server.com');
        item_SMTPServer.Value(comSMTPServer);
    
        item_SMTPServerPort = fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport");
        comSMTPServerPort.int(25);
        item_SMTPServerPort.Value(comSMTPServerPort);
    
        item_SMTPAuthenticate = fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate");
        comSMTPAuthenticate.int(1); // 1 for true, DO authenticate
        item_SMTPAuthenticate.Value(comSMTPAuthenticate);
    
        item_SMTPUsername = fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername");
        comSMTPUsername.bStr('userId');
        item_SMTPUsername.Value(comSMTPUsername);
    
        item_SMTPPassword = fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword");
        comSMTPPassword.bStr('password');
        item_SMTPPassword.Value(comSMTPPassword);
    
        fields.update();
    
        mailer.Configuration(config);
    
        mailer.From("somebody@somewhere.com");
        mailer.To("somebody@somewhere.com");
        mailer.Subject("Subject");
        mailer.TextBody("Body");
    
        mailer.Send();
    
        mailer = null;
}

[miklenew]

Цитата:

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

Вот ещё вариант для теста.

Спасибо.
Похоже это у нас админы всё поназакрывали.
Не получается ящик внешний подсоединить в outlook-у.
Но с внутреннего письмо отослалось.
Дома проверю.

[lego_99]

Точно говорю - в офисе доступ к внешней почте перекрыт по портам. Проверял.
Админы включать пока не планируют.

[miklenew]

Дома попробовал.
Заработало. С 25 портом.
Правда не сразу.
Сначало outlook пришлось настройть.