VPF::Не отсылает email с базой Access - Форум программистов

dinja3

Дата 10.4.2013, 17:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 1.4.2013

Репутация: нет
Всего: нет

Привет,

У меня проблема с отсылкой писем используя данные из базы 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:='mail@mail .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;

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

Добавлено через 29 секунд
Если использовать базу созданную с помощью BDEAdministrator, а таблицы через DataBase Desktop, то всё в порядке, а вот с Access не отправляет.

Присоединённый файл ( Кол-во скачиваний: 8 )

Capture.jpg 32,70 Kb

dinja3

Дата 10.4.2013, 19:10 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 1.4.2013

Репутация: нет
Всего: нет

Ругается на строчку

Код


IdSMTP1.Disconnect;

Akella

Дата 10.4.2013, 22:08 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 4
Всего: 329

если ругается при отключении, то должно отправляться, ведь отправка выполняется ДО IdSMTP1.Disconnect?

dinja3

Дата 10.4.2013, 23:17 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 1.4.2013

Репутация: нет
Всего: нет

Да, но он ничего не отправляет

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »