Smtp хРОМАЕТ..
мне кажется что smtp немного подкорретировали, аунтефикация ну ни как не проходит или спамеров забанили, тобишь и меня ;)
вот обычный код, он на дельфи, но компонент борландский:
вот обычный код, он на дельфи, но компонент борландский:
Цитата:
if strtoint(current.Caption)=0 then
begin
finish.Caption:=inttostr(input.Count-1);
smtp.Host:=server.Text;
smtp.UserID:=userid.Text;
smtp.Connect;
showmessage('!');
end;
i:=strtoint(current.caption);
current.caption:= inttostr(i);
repeat
inc(i);
SMTP.EncodeType := uuCode;
smtp.SubType:=mtPlain;
smtp.PostMessage.Create;
smtp.PostMessage.FromAddress:=FromAddress.Text;
smtp.PostMessage.FromName:=fromname.Text;
smtp.PostMessage.ToAddress.Text:=input.Strings;
smtp.PostMessage.Body.Text:=text.Text;
smtp.PostMessage.Subject:=subject.Text;
smtp.PostMessage.LocalProgram:='The Bat v1.6';
smtp.PostMessage.Date:='11:22:33 01.12.2372';
smtp.PostMessage.ReplyTo:=replyto.Text;
smtp.SendMail;
showmessage('ok') ;
application.ProcessMessages;
until abort or (i>=(strtoint(finish.Caption))-1);
begin
finish.Caption:=inttostr(input.Count-1);
smtp.Host:=server.Text;
smtp.UserID:=userid.Text;
smtp.Connect;
showmessage('!');
end;
i:=strtoint(current.caption);
current.caption:= inttostr(i);
repeat
inc(i);
SMTP.EncodeType := uuCode;
smtp.SubType:=mtPlain;
smtp.PostMessage.Create;
smtp.PostMessage.FromAddress:=FromAddress.Text;
smtp.PostMessage.FromName:=fromname.Text;
smtp.PostMessage.ToAddress.Text:=input.Strings;
smtp.PostMessage.Body.Text:=text.Text;
smtp.PostMessage.Subject:=subject.Text;
smtp.PostMessage.LocalProgram:='The Bat v1.6';
smtp.PostMessage.Date:='11:22:33 01.12.2372';
smtp.PostMessage.ReplyTo:=replyto.Text;
smtp.SendMail;
showmessage('ok') ;
application.ProcessMessages;
until abort or (i>=(strtoint(finish.Caption))-1);
или я что то упустил? парит так 503 valid RCPT command preced DATA, друзья мне говорят что это знак свыши =)))) но я за спам софт еще не наказывали ;)
хм.. а шо все молчат то?
Слушай а у тебя письма по руса\ски отсылаются
и приходят а то у меня в оутлуке белеберда
незнаю как правильно написать для
charset.
и приходят а то у меня в оутлуке белеберда
незнаю как правильно написать для
charset.
Цитата:
Originally posted by CodeWorld
мне кажется что smtp немного подкорретировали, аунтефикация ну ни как не проходит или спамеров забанили, тобишь и меня ;)
или я что то упустил? парит так 503 valid RCPT command preced DATA, друзья мне говорят что это знак свыши =)))) но я за спам софт еще не наказывали ;)
мне кажется что smtp немного подкорретировали, аунтефикация ну ни как не проходит или спамеров забанили, тобишь и меня ;)
или я что то упустил? парит так 503 valid RCPT command preced DATA, друзья мне говорят что это знак свыши =)))) но я за спам софт еще не наказывали ;)
А строка smtp server'а у тебя какая:
smtp.mail.ru или mail.ru
и порт не мешало бы проверить (на мыл.ру 25, а то его обычно вообще никто не указывает(те типа па умалчанию))!
Если не мыл.ру тогда возможно что на сервере сменили ауетнтификацию с обычной на RFC 2554 с требованием MD5 (как например на hotbox.ru, там и порт другой и аутентификация.)
мозги у мя есть =) smtp.mail.ru 25ый порт... нехера... и совсеми остальными также!