почему не отправляется почта

[alman12]

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

Блин да создай ты новый емаил и дай логин и пароль для теста.... по просили же)))

я создал , но не отправляется

[indexx]

Fahman Вообще тестеры могут и свои логины с паролями повбивать.

[IliaIT]

о. как класно можно посрасться, что прогер ничего не может. я тоже хочу офтопить....
я такую же тему создавал тоже про шифрование и даже пример приводил с логинами и паролями. indexx тоже во всю пдокалывал типа не знаешь не умеешь не... и помощи он него было 0. только один советовал проверять винду и её настройки. про ошибки настрой компонентов никто не заикнулся. пока сам не разобрался, что надо создавать диномически. а потом понял где в визуальных настройках это сменяется автоматически и в каком порядке их настраивать что бы не сбилось.
в итоге выход нашёл только один. это менять инди 9 на 10 в дельфи 7 всё заработало. (в дельфи 7 надо будет ещё к ней библиотеки скачать нужной версии.)
в дельфи хе просто настроить свойства у 3х компонентов.

[indexx]

пока сам не разобрался, что надо создавать диномически

Мне помогали аналогично. ПОКА САМ НЕ РАЗОБРАЛСЯ. Так что не строй из себя ущербного. Кстати заметь, сейчас от тебя тоже помощи 0. Берёшь пример???

[IliaIT]

а чего лог говорит ?
при отправке.
это событие онстатус. переменная AStatusText
буду учится у индекса ничего по существу не говорить а давать только наводящие вопросы

[indexx]

Помог? Теперь попробую я. Идеальный вариант для ленивых, как ТС. Готовая, работающая с сервером mail программа. Даже отправляет русский текст, и даже не висит, ибо в потоке. Среда XE7.
Скачать халяву

[alman12]

спасибо брат

[indexx]

Не дай бог таких братьев...

[BETEP32]

Добрый день форумчани, решил тему не создаввать но возник вопрос такой.
Отраввляю маил через яндекс

Все хорошо но у меня отказывается компилировать


IdSSLIOHandlerSocketOpenSSL:= TIdSSLIOHandlerSocketOpenSSL.Create (nil);
IdSSLIOHandlerSocketOpenSSL.Destina tion := sm.Host+':'+IntToStr(sm.Port);
IdSSLIOHandlerSocketOpenSSL.Host := sm.Host;
IdSSLIOHandlerSocketOpenSSL.Port := sm.Port;
IdSSLIOHandlerSocketOpenSSL.Default Port := 0;
IdSSLIOHandlerSocketOpenSSL.SSLOpti ons.Method := sslvTLSv1;
//IdSSLIOHandlerSocketOpenSSL.SSLOpti ons.Method := sslvSSLv2;

IdSSLIOHandlerSocketOpenSSL.SSLOpti ons.Mode := sslmUnassigned;

sm.IOHandler := IdSSLIOHandlerSocketOpenSSL;
sm.UseTLS := utUseImplicitTLS; // ругается на utUseImplicitTLS;


sm.Connect();


DELPHI XE 6

Может кто чем поможет

[phomm]

Контрол-клик по UseTLS выведет в объявление этого члена в классе, к которому относится sm. У этого поля надо будет контролкликнуть по типу данных - выведет к объявлению типа, 99% процентов, что это перечисление - в нём уже смотреть подходящую Вам по смыслу константу - там может на пару букв изменилось чего.
Возможна также коллизия имён из другого модуля, тогда надо прописать имя нужного типа через точку: имя_типа.константа_перечисления (правда, я не помню, начиная с какой дельфи эта фича пошла, вроде в хе6 можно). Если же не прожуёт, то надо искать где коллизия типов - например контролкликнув по utUseImplicitTLS и уже анализировать как можно разрулить, например, поменять местами модули в uses.