VPF::Отправка почты - Форум программистов

Ptica_Oz

Дата 6.4.2007, 09:15 (ссылка)

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

Загрузка ...

Шустрый

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

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

ну не работает у мнеяяяя smile

а если серьёзно дела обстоят следующим образом:
есть код

Код


    IdSMTP.Host := 'smtp.mail.ru';
    //IdSMTP.Host := 'relay.ascon.ru';
    Result := true;
    IdMessage.CharSet := 'WINDOWS-1251';
    IdMessage.Encoding := meMIME;
    IdMessage.ContentType := 'text/plain';
    IdMessage.ContentTransferEncoding := '8bit';
    //IdMessage.Subject :='';  //текст темы сообщения
    IdMessage.Recipients.EMailAddresses := pEMail; //указываем адрес получателя
    IdMessage.From.Address := strCurrentEMail; //указываем автора письма
    IdMessage.From.Name := strName ;
    IdMessage.Body.Text := pText;   //размещаем текст сообщения
    IdMessage.ReplyTo.EMailAddresses := strCurrentEMail;
    //IdMessage.Date:=StrToDate('01.12.2004');  //дата отправки письма, может быть любой
    try
      IdSMTP.Connect;
      try
        IdSMTP.Send(IdMessage);
      except on E:Exception do begin
        // если соединение не прошло из-за необходимости авторизации
        // вызываем диалог авторизации пробуем ещё раз подсоединиться
        frmAuthForm := TfrmAuth.Create(Application);
        frmAuthForm.ShowModal;
        IdSMTP.Username := frmAuthForm.pEMail;
        IdSMTP.Password := frmAuthForm.pPassword;
        frmAuthForm.Free;
        try
          IdSMTP.Send(IdMessage);
        except on E:Exception do begin
          if MessageBox(0 ,'Письмо не было отправлено.'
                        + #13 + #10
                        + 'Сохранить вопрос в базе?',
                        'Внимание!', MB_YESNO) = IDYES then Result := true
          else Result := false;
        end;
        end;
      end;
      end;
    except on E:Exception do begin
      strError := E.Message;
      ShowMessage(strError);
      if MessageBox(0 ,'Письмо не было отправлено.'
                        + #13 + #10
                        + 'Сохранить вопрос в базе?',
                        'Внимание!', MB_YESNO) = IDYES then Result := true
      else Result := false;
    end;
    end;
    if frmSetForm.IdSMTP.Connected then begin
      frmSetForm.IdSMTP.Disconnect;
      //ShowMessage('Соединение разорвано!');
    end;

в тот прекрасный день когда я написала этот код всё работало. происходило подключение, при отправке производилась авторизация при помощи диалогового окна, и письмо отправлялось и даже доходило и даже с нормальной кодировкой. но тот прекрасный день закончился и пришел пипец...
на форме, как вы наверное уже догадались из Indy 10 только два компанента: IdSMTP и IdMessage. при попытке подконектица говорит "Connection Closed Gracefully". в свойстве компанента IdSMTP AuthType пробовала устанавливать разные значения, не помогло. пробовала при подключении сразу (в свойствах) задавать Username и Password, та же ерунда...
я не могу со 100% знать каким SMTP сервером будет пользоваться конечный пользователь...
Delphi Studio 2006
читала код в постах, ничего принципиального не обнаружила, хотя может и ошибаюсь, ткните носом...

Ptica_Oz

Дата 6.4.2007, 09:50 (ссылка)

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

Загрузка ...

Шустрый

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

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

шайтан-бабай...
в офисе некоторое время не было инета, ща появился. пробую ещё раз прогнать прогу, ничего не меняя. подключение происходит! =О при первой отправке сообщения отлавливается исключение и возникает форма авторизации. в общем все по коду. но при повторной отправке выдает следующее: Project raised exception class EIdSMTPReplyError with massege ''. ну и естественно ничего никуда не посылает... :(

drkot

Дата 6.4.2007, 11:07 (ссылка)

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

Загрузка ...

Ищущий

Профиль
Группа: Завсегдатай
Сообщений: 1042
Регистрация: 5.5.2006

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

версия инди какая?
если 10 до выкинь и поставь 9.

--------------------

Ошибка не становится истиной по причине широкого распространения,
как и Истина не становится Ошибкой из-за того, что никто её не видит.

Ptica_Oz

Дата 6.4.2007, 11:13 (ссылка)

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

Загрузка ...

Шустрый

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

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

Цитата(drkot @ 6.4.2007, 11:07

)

версия инди какая?если 10 до выкинь и поставь 9.

приму к сведенью, но хотелось бы менее радикальные методы решения этой проблемы... если такие найдутся...

Ptica_Oz

Дата 9.4.2007, 10:05 (ссылка)

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

Загрузка ...

Шустрый

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

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

вопрос снят. просто надо было внимательнее смотреть откуда посылаю (адрес был не mail-овский) smile

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