![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
|
|
#1
|
|||
|
|||
|
Всем доброе время суток!Проблема в следующем:отправляю письмо по почте через компоненты IdMessage и IdSMTP. Проверяю наличие путей и если папка недоступна над отправить письмо типа:"Нет соединения с \\10.128.255.7\123\". Сначала мучился с русским языком - получилось. Первое письмо приходит как положено:
\\10.128.255.7\123\ если за ним сразу посылается 2-3-4-5 получается такая гадость: Код:
3- charset="WINDOWS-1251"; charset="WINDOWS-1251" Content-Transfer-Encoding: 8bit Date: Mon, 9 Aug 2010 16:43:50 +0400 X-Priority: 3 X-Library: Indy 9.00.10 Нет соединения с \\10.128.160.51\ExportTT\ 4- charset="WINDOWS-1251"; charset="WINDOWS-1251"; charset="WINDOWS-1251" Content-Transfer-Encoding: 8bit Date: Mon, 9 Aug 2010 16:48:18 +0400 X-Priority: 3 X-Library: Indy 9.00.10 Нет соединения с \\10.128.160.51\ExportTT\ 5- charset="WINDOWS-1251"; charset="WINDOWS-1251"; charset="WINDOWS-1251"; charset="WINDOWS-1251" Content-Transfer-Encoding: 8bit Date: Mon, 9 Aug 2010 16:53:46 +0400 X-Priority: 3 X-Library: Indy 9.00.10 Нет соединения с \\10.128.160.51\ExportTT\ Не пойму. откуда он это берет |
|
#2
|
||||
|
||||
|
Совершенно очевидно, что при сборке сообщения вы какую-то переменную не обнуляете. Внимательно смотрите код, как вы формируете почтовое сообщение.
|
|
#3
|
|||
|
|||
|
вот незнаю.
есть такая процедура Код:
procedure TfrmScan.MailError;
begin
with frmScan do begin
SysLocale.PriLangID:=LANG_RUSSIAN;
IdSMTP1.Port:=25;
IdSMTP1.Host := 'йцук';
IdSMTP1.Username:='111';
IdSMTP1.Password:='111';
if IdSMTP1.Connected = false then
IdSMTP1.Connect(60000);
IdMessage1.Subject:='Error!';
IdMessage1.Recipients.EMailAddresses:='@.ru';
IdMessage1.From.Address:='.ru';
IdMessage1.From.Name:='qwer';
IdMessage1.Body.Text:=sText;
if IdSMTP1.Connected then
IdSMTP1.Send(IdMessage1);
IdSMTP1.Disconnect;
end;
end;И при вызове этой процедуры я присваиваю переменной sText значение Последний раз редактировалось Admin, 21.08.2010 в 23:06. |
|
#4
|
|||
|
|||
|
походу с дулись наши Знатоки
|
|
#5
|
||||
|
||||
|
Попробуй создавать IdMessage в процедуре отправки (динамически). Должно помочь.
|
|
#6
|
|||
|
|||
|
Нет, это тут непричем. Ошибка в другом месте.
Залогируй в файл содержимое переменной sText из тела функции отправки письма. Посмотри что реально находится в этой переменной... |