Не отсылает email с базой Access

 
0
 
Delphi, Kylix & Pascal
ava
dinja3 | 10.04.2013, 18:27
Привет,

У меня проблема с отсылкой писем используя данные из базы Access.


procedure TIzmainas.Button1Click(Sender: TObject);
var i:integer;
begin
IdSMTP1.Port:=25;
IdSMTP1.Host:='smtp.mail.ru';
IdSMTP1.Connect(5000);
IdSMTP1.AuthenticationType:=atLogin ;
IdSMTP1.Username:='mail';
IdSMTP1.Password:='password';
if IdSMTP1.Connected=true then
for i:=0 to Student.ADOTable1.RecordCount do
begin
IdMessage1.Clear;
IdMessage1.Subject:=ComboBox1.Text;
IdMessage1.Recipients.EMailAddresse s:=Student.ADOTable1.FieldValues['Email']; // названия эмайла на которые отправлять
IdMessage1.From.Address:='[email protected] .ru';
IdMessage1.Body.Text:=Memo1.Text;
IdMessage1.From.Name:='mail';
Student.ADOTable1.RecNo:=i;
if ComboBox2.Text=Student.ADOTable1.Fi eldValues['Grupa'] then //в ComboBox2 я вписываю название группы, когда оно совпадает то он смотрит название эмайла и отправляет только тем у кого группа совпадает с ComboBox2
IdSMTP1.Send(IdMessage1);
end;
IdSMTP1.Disconnect;
end;


Выдаёт ошибку

added later:
Если использовать базу созданную с помощью BDEAdministrator, а таблицы через DataBase Desktop, то всё в порядке, а вот с Access не отправляет.
Comments (3)
ava
dinja3 | 10.04.2013, 19:10 #
Ругается на строчку


IdSMTP1.Disconnect;
ava
Akella | 10.04.2013, 22:08 #
если ругается при отключении, то должно отправляться, ведь отправка выполняется ДО IdSMTP1.Disconnect?
ava
dinja3 | 10.04.2013, 23:17 #
Да, но он ничего не отправляет
Please register or login to write.
Firm of day
Вы также можете добавить свою фирму в каталог IT-фирм, и публиковать статьи, новости, вакансии и другую информацию от имени фирмы.
Подробнее
Contributors
ava  Akella   dinja3
advanced
Submit