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

[urrya]

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

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/

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

 

[InnI]

urrya

проверит на работоспособность этот скрипт

Win7 x86, Win10 x64 (1703), AutoIt 3.3.14.2, smtp.yandex.ru
При отправке на mail.ru небольшая проблема с кириллицей. В остальном всё работает без ошибок.

 

[urrya]

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

 

[InnI]

Попробуйте так

...
  $hMAIL = ObjCreate("CDO.Message")
  If @error Then ConsoleWrite('Error ObjCreate' & @CRLF)
  $oConfig = $hMAIL.Configuration
  $oFields = $oConfig.Fields
  With $oFields
      .Item($str & "sendusing") = 2
...

 

[urrya]

Нет, ничего не изменилось, та же ошибка =(



Добавлено:

Сообщение автоматически объединено: 22 Май 2017

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

 

[ra4o]

urrya, пользуюсь этим методом отправки почты каждый день , всё ОК, Вы случайно не из Украины ?
Не вижу в конце функции

$hMAIL.Send

 

[urrya]

Да нет, не с Украины, я с Волги =)
А функция отправки как раз таки есть:

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

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

 

[ra4o]

Никаких дополнительных компонентов подключать не нужно, сам недавно переустанавливал 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

А функция отправки как раз таки есть:

, ах, да , не заметил

 

[urrya]

(637) : ==> The requested action with this object has failed.:
With $hMAIL.Configuration.Fields
With $hMAIL^ ERROR
:stars:

 

[urrya]

Всем большое спасибо за участие.
Проблему решил переустановкой ОС на обеих машинах!