[Рамиль]

И так, и этак изголялся. В сети полно примеров, ни один из них не рабочий. Или не запускались, или выдавали Runtime error. Вот это последнее, что получилось без ошибок:

Код:

IdSMTP1.Port:=25;
IdSMTP1.Host := 'smtp.rambler.ru';
IdSMTP1.Connect(10000);
IdSMTP1.AuthenticationType:=atLogin;
IdSMTP1.Username:='мой логин';
IdSMTP1.Password:='мой пароль'; 
IdMessage1.Subject:=тема сообщения;
IdMessage1.Recipients.EMailAddresses:='адрес@получателя';
IdMessage1.From.Address:='адрес отправителя';
IdMessage1.Body.Assign(Memo1.Lines); {текст письма}
IdSMTP1.SendMsg(IdMessage1);
IdSMTP1.Disconnect;

Admin: Пользуемся тегами!

Вроде все. После того, как запускаю отправку, приложение тупо молчит. А получатель не получает мое письмо
Как быть? Где ошибся?
Заранее спасибо

[DSL88]

Ошибка-то какая? Подробнее опиши или скрин приложи

[Рамиль]

Все дело в том, что никакой ошибки или сообщения не выдается. Как будто процесс прошел гладко. На деле письмо адресату не приходит.

[Rat]

Это работает? http://delphi.about.com/od/interneti.../aa020304a.htm

[Рамиль]

Это в самый первый раз пробовал. Не работает. Останавливается на

SMTP.Send(MailMessage)

Но только в этом варианте и в куче подобных, которые есть на просторах сети. Т.е. здесь не отправлялось письмо.

В моем же варианте то же самое, ничего не отличается. Но никаких ошибок не выдается.

Сеть включена всегда. Почтовый клиент работает

[Rat]

На mail.ru работает. Только авторизацию включить нужно.

[Vayrus]

Попробуй сделать так:
Username := 'ТвойЛогин@rambler.ru';

[Vayrus]

И еще ты забыл
IdSMTP1.Connect;

[Рамиль]

Всем спасибо

Вот рабочий код программы:

procedure TForm1.Button1Click(Sender: TObject);

begin
IdSMTP1.Port:=25;
IdSMTP1.Host := 'smtp.rambler.ru';
IdSMTP1.AuthenticationType:=atLogin;
IdSMTP1.Username:='мой логин';
IdSMTP1.Password:='мой пароль';
IdMessage1.Subject:=edit1.text; {тема сообщения}
IdMessage1.Recipients.EMailAddresses:='адрес@получ ателя';
IdMessage1.From.Address:='адрес@отправителя';
IdMessage1.Body.Assign(Memo1.Lines);
try
try
IdSMTP1.Connect(5000);
IdSMTP1.Send(IdMessage1);
except on E:Exception do
Memo1.Lines.Insert(0, 'ERROR: ' + E.Message);
end;
finally
if IdSMTP1.Connected then
IdSMTP1.Disconnect;
end;

[Rat]

Ага. Только касперский и nod32 считают такие программы mail bomber`ами. и удаляют сразу... Как лечить?

[lmikle]

Кто сказал?
В конце концов запакуй каким-нить пакером исполняемый модуль.
Ну или замаскируй как-нибудь адреса.
Скорее всего они реагируют на адреса. Тогда так:

Код:

IdMessage1.Recipients.EMailAddresses:='адрес' + Chr(40) + 'получ ателя';
IdMessage1.From.Address:='адрес' + Chr(40) + 'отправителя';

ЗЫ. Точно код @ не помню - посмотри сам.

[Vayrus]

Ну если Нод и Касперыч реагируют на @, то и Оутглюк есть маилбомбер
А вообще попробуй пакануть Юпиксом, его вроде антивирусы не трогают.

[lmikle]

Думаю, они реагируют не просто на @, а на некоторую комбинацию по коду. Таким образм вставка маскирующих операций может помочь.

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

[Рамиль]

Rat, стоит касперский, постоянно обновляется. Ничего не говорит. Все отправляется нормально и быстро

При отправке англоязычного текста все в поряддке, но при отправке русскоязыного текста..... Было над чем поработать

В теле кода отправки добавил:

IdMessage1.CharSet:='windows-1251';
IdMessage1.ContentType:='text/plain';
ContentTransferEncoding='noEncode';

Самое веселое, что это не работало, отправляло иероглифы

Покопался в интернете, нашел зантную вещь (про кривость InDy)
Ищем \Borland\Delphi7\Source\Indy\IdCoderHeader.pas
Там находим процедуру procedure InitializeISO(var TransferHeader: TTransfer; var HeaderEncoding: char;
var CharSet: string);

procedure InitializeISO(var TransferHeader: TTransfer; var HeaderEncoding: char;
var CharSet: string);

begin
TransferHeader := bit8; { header part conversion type }
HeaderEncoding := 'B'; { base64 / quoted-printable } {Do not Localize}

case GetSystemLocale of
csGB2312: CharSet := 'GB2312'; {Do not Localize}
csBig5: CharSet := 'Big5'; {Do not Localize}
csIso2022jp:
begin
CharSet := 'ISO-2022-JP'; {Do not Localize}
TransferHeader := iso2022jp { header needs conversion }
end;
csEUCKR: CharSet := 'EUC-KR'; {Do not Localize}
else
CharSet := 'ISO-8859-1''; {Do not Localize} {Эту кодировку надо принудительно сменить на Windows-1251}
HeaderEncoding := 'Q'; {Do not Localize}
end;
end;

[Roman_s]

АДМИН !!!!
Извини что не в тему, НО IMHO все темы должны обсуждатся именно ТАК КАК ЭТА !!!
Всё доходчиво и ясно !!!!
ВСЕМ РЕСПЕКТ !!!