[Автоматизация] Переслать письмо pop3

[Maks1888]

я же выложил свой код. SMTP сервер указал smtp.inbox.ru (Два совета проверить дали). Как проверить создается ли ссылка на объект ObjCreate("CDO.Message") ? Кроме уже указанной ошибки больше ничего не вылетает

 

[ra4o]

Как проверить создается ли ссылка на объект ObjCreate("CDO.Message") ?

допишите строку

$hMAIL = ObjCreate("CDO.Message")
If @error Then ConsoleWrite('Error ObjCreate'&@CRLF)

 

[Garrett]

Maks1888

$str = "http://schemas.microsoft.com/cdo/configuration/"
$hMAIL = ObjCreate("CDO.Message")

With $hMAIL.Configuration.Fields
    .Item($str & "sendusing") = 2
    .Item($str & "smtpserver") = "smtp.inbox.ru" ;SMTP Server
    .Item($str & "smtpusessl") = True
    .Item($str & "smtpauthenticate") = 1
    .Item($str & "sendusername") = "[email protected]"
    .Item($str & "sendpassword") = "rfvyhn1234" ;Пароль SMTP-сервер
    .Item($str & "smtpserverport") = 465;Порт
    .Update
EndWith

With $hMAIL
    .From = "[email protected]"
    .To = "[email protected]"
    .Subject = "Тема письма"
    .TextBody = "Текст письма"
    .Send
EndWith

$hMAIL = 0

 

[Maks1888]

Немного обидно, все равно не получил желаемого результата от скрипта. объект ObjCreate("CDO.Message") создается, @error не выдает ошибок в консоль.
Вариант от Garrett не выдает ошибки, но и на почту ничего не приходит.
P.S. попробую с библиотекой blat.dll

 

[Garrett]

Maks1888 [?]

Вариант от Garrett не выдает ошибки, но и на почту ничего не приходит

У меня всё прекрасно пересылает.

 

[ВиталийВВ]

тоже пробовал, и именно с Майла, работает на ура.

А можно что то подобное но для контроля/просмотра/получения почты? Чтоб хоть как то на письма глядеть? пусть даже без файлов, а только само тело сообщения.

 

[ВиталийВВ]

Подниму тему, можно ли как то смотреть письма? Скриптом, аналогичным вышеуказанным?
в идеале - текст письма, ну или хотя бы заголовок или еще что то?

 

[ra4o]

С тех пор, как ввели SSL шифрование работать с РОР3 стало проблемно. Смотрите примеры работы связки "openssl" с AutoIt.