VPF::TJvMail - отправил или нет - Форум программистов

Akella

Дата 2.6.2005, 16:49 (ссылка)

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

Загрузка ...

Творец

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

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

Код


procedure TfmSendFiles.ByOutlook;
Var
 _iF:integer;
begin
 bbSend.Enabled:=False;
  if uInet.ConnectedToInternet = ctNone then begin
    ShowMessage('Нет подключения к сети интернет');
    exit;
  end;//if

  Mail1.Clear;
  //если в списке адресов пусто, то используем адрес из настроек
  if cbAddress.Text = '' then
    Mail1.Recipient.AddRecipient(ledAdress.Text)
  else
    Mail1.Recipient.AddRecipient(cbAddress.Text);

  Mail1.Subject := ledSubj.Text;
  Mail1.Body.Text := memoProto.Text;
   //пробегаем по списку выбранных файлов
  For _iF:=0 to lvFilesToSend.Items.Count-1 do
    if lvFilesToSend.Items[_if].Checked then
      Mail1.Attachment.Append(fmMain.sPathToSave+lvFilesToSend.Items[_if].Caption);
  mail1.SendMail(true);
  DeleteSended;
  bbSend.Enabled:=True;
  ShowMessage('Готово');
  if cbAutoHungUp.Checked then HungUp;
end;

если закрыть окно Outlook`а, не отправляя почту то всё равно вылезет окошко "Готово", как отследить отправлена почта или нет? smile

Это сообщение отредактировал(а) dsergey - 2.6.2005, 16:50

Дата 2.6.2005, 18:10 (ссылка)

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

Загрузка ...

Брутальный буратина

Профиль
Группа: Участник Клуба
Сообщений: 3497
Регистрация: 31.3.2002
Где: Лес

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

Наверное идея бредовая но я её всёже выскажу smile

Можно отследить какая кнопка в аутлуке была нажата, или былали она нажата.

Нету аутлука поэтому предполагаю: что при отправке почты может какоенить окно появляться или или менятся заголовок формы или кнопки или еще как-то программа шивелится.

Akella

Дата 3.6.2005, 11:55 (ссылка)

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

Загрузка ...

Творец

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

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

Я думаю, что всё-таки бредовая.
Нужно однозначно определять.

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