Что нового
Автор:
Фильтры

перестала работать отправка сообщений на почту !

urrya

urrya

Новичок
Сообщения
159
Репутация
1
Доброго времени суток гос-да и дамы.
Несколько месяцев отлично работал код для отправки писем на почту :

Код: 
Func SendMeil()
Local $str = "http://schemas.microsoft.com/cdo/configuration/"
Local $hMAIL = ObjCreate("CDO.Message")
If @error Then ConsoleWrite('Error ObjCreate' & @CRLF)
With $hMAIL.Configuration.Fields
    .Item($str & "sendusing") = 2
    .Item($str & "smtpserver") = 'smtp.yandex.ru' ;SMTP Server
    .Item($str & "smtpusessl") = True
    .Item($str & "smtpauthenticate") = 1
    .Item($str & "sendusername") = $email_from
    .Item($str & "sendpassword") = $password      ;Пароль SMTP-сервер
    .Item($str & "smtpserverport") = 465         ;Порт
    .Update
EndWith

With $hMAIL
    .From = $email_from
    .To = $mail
    .Subject = $gg ; "Тема письма"
    .TextBody = $txt ; "Текст письма"
    .Send
EndWith
$hMAIL = 0
EndFunc


Но сегодня этот код перестал работать (проверял с двух машин и двух IP) !

Ошибка вот такая:
The requested action with this object has failed.:
With $hMAIL.Configuration.Fields
With $hMAIL^ ERROR

При чём и с smtp.yandex.ru, и с smtp.gmail.com, и с smtp.mail.ru одинаково нет отправки !
Очень прошу мб кто то проверит на работоспособность этот скрипт ?
Если результат тот же значит проблема у http://schemas.microsoft.com/cdo/configuration/

Заранее большое спасибо!
 
I

InnI

AutoIT Гуру
Сообщения
4,958
Репутация
1,448
urrya
проверит на работоспособность этот скрипт
Нажмите, чтобы раскрыть...
Win7 x86, Win10 x64 (1703), AutoIt 3.3.14.2, smtp.yandex.ru
При отправке на mail.ru небольшая проблема с кириллицей. В остальном всё работает без ошибок.
 
Автор
urrya

urrya

Новичок
Сообщения
159
Репутация
1
Спасибо, значит возможно что то у моего провайдера или ещё где-то что-то ... =(
Буду искать дальше.
 
I

InnI

AutoIT Гуру
Сообщения
4,958
Репутация
1,448
Попробуйте так
Код: 
...
  $hMAIL = ObjCreate("CDO.Message")
  If @error Then ConsoleWrite('Error ObjCreate' & @CRLF)
  $oConfig = $hMAIL.Configuration
  $oFields = $oConfig.Fields
  With $oFields
      .Item($str & "sendusing") = 2
...
 
Автор
urrya

urrya

Новичок
Сообщения
159
Репутация
1
Нет, ничего не изменилось, та же ошибка =(



Добавлено:
Сообщение автоматически объединено:

Гос-да, а какие компоненты ОС должны быть включены для работы этого кода ?
Просто я переустанавливал Windows и возможно что то отключил не то .
:scratch:
 
ra4o

ra4o

AutoIT Гуру
Сообщения
1,165
Репутация
247
urrya, пользуюсь этим методом отправки почты каждый день , всё ОК, Вы случайно не из Украины ?
Не вижу в конце функции
Код: 
$hMAIL.Send
 
Автор
urrya

urrya

Новичок
Сообщения
159
Репутация
1
Да нет, не с Украины, я с Волги =)
А функция отправки как раз таки есть:

Код: 
...
With $hMAIL
    .From = $email_from
    .To = $mail
    .Subject = $gg ; "Тема письма"
    .TextBody = $txt ; "Текст письма"
    .Send  ;  <<< ===  Вот она !!!
EndWith
...


но вот что то не работает у меня теперь никакая отправка писем,
уже всё проверил, всё включил (что отключал) и результат один - ничего !
:blink:
 
ra4o

ra4o

AutoIT Гуру
Сообщения
1,165
Репутация
247
Никаких дополнительных компонентов подключать не нужно, сам недавно переустанавливал Windows. отправка работает без проблем, только я через inbox.ru , вот так
Код: 
$str = "http://schemas.microsoft.com/cdo/configuration/"
$hMAIL = ObjCreate ("CDO.Message")
    With $hMAIL
        .From = "***@inbox.ru"
        .To = "***@inbox.ru"
        .Subject = "Это тест"
        .TextBody = "Проверка отправки почты"
       .AddAttachment ("")  ;файл для отправки
    EndWith
    With $hMAIL.Configuration.Fields
        .Item ($str & "sendusing") = 2
        .Item ($str & "smtpserver") = "smtp.inbox.ru" ;SMTP Server
        .Item ($str & "smtpauthenticate") = 1
        .Item ($str & "sendusername") = "***@inbox.ru"
        .Item ($str & "sendpassword") = "***" ;Пароль SMTP-сервер
        .Item ($str & "smtpserverport") = 465 ;Порт
        .Update
    EndWith
$hMAIL.Send
А функция отправки как раз таки есть:
Нажмите, чтобы раскрыть...
, ах, да , не заметил :smile:
 
Автор
urrya

urrya

Новичок
Сообщения
159
Репутация
1
(637) : ==> The requested action with this object has failed.:
With $hMAIL.Configuration.Fields
With $hMAIL^ ERROR
:stars:
 
Автор
urrya

urrya

Новичок
Сообщения
159
Репутация
1
Всем большое спасибо за участие.
Проблему решил переустановкой ОС на обеих машинах!
:ok:
 
Вам необходимо войти или зарегистрироваться, чтобы здесь отвечать.
Автор темы Похожие темы Форум Ответы Дата
M Как работать с приложениями написаными на Delphi? Общие вопросы по AutoIt 0
M Перестает работать код после компиляции Общие вопросы по AutoIt 1
U Автоматизация Помогите доработать скрипт входа в аккаунты Steam [$] Стол заказов 0
V Помогите - перестала парситься страница через InetGet Автоматизация IE и Web-интерфейса 6
J Перестала работать _IEErrorHandlerRegister Автоматизация IE и Web-интерфейса 3
Похожие темы
Как работать с приложениями написаными на Delphi?
Перестает работать код после компиляции
Автоматизация Помогите доработать скрипт входа в аккаунты Steam [$]
Помогите - перестала парситься страница через InetGet
Перестала работать _IEErrorHandlerRegister
Верх