|
Вопрос # 4 100/ вопрос открыт / |
|
Доброго времени суток, уважаемые эксперты!
Пишу маленькую программку для рассылки счетов и детализации клиентам. Существует два вида тела письма. Если человек является задолжником, отправляется одно тело, нет - другое. Если я отправляю письма без аттачментов (просто коментю код с приклеплением фалов) все отправляется верно. Но если файлы отправляю текст всем приходит один, что не верно. Так в чем же тут проблема?
Спасибо!
Приложение: Переключить в обычный режим- ...
- IdMessage1.CharSet := 'Windows-1251';
- IdMessage1.From.Text :=From_email_E.Text;
- IdSMTP1.Port:=StrToInt(PortE.Text);
- IdSMTP1.Host:=smtp_box_E.Text;
- IdSMTP1.Username:=Login_Box_E.Text;
- IdSMTP1.Password:=Pass_Box_E.Text;
- for i:=0 to BASE_COUNT do begin
- if base[i].e_mail='' then continue;
- with IdMessage1 do begin
- if base[i].e_mail_sub<>'' then
- Recipients.EMailAddresses :=base[i].e_mail+','+base[i].e_mail_sub
- else Recipients.EMailAddresses :=base[i].e_mail;
- Subject:=Subject_klient_E.Text;
- shet_flag:=false; det_flag:=false;
- if FileExists (base[i].det) then
- A:=TIdAttachmentFile.Create(IdMessage1.MessageParts, base[i].det)
- else det_flag:=true;
- if FileExists (base[i].shet) then
- B:=TIdAttachmentFile.Create(IdMessage1.MessageParts, base[i].shet )
- else shet_flag:=true;
- if ((det_flag) or (shet_flag)) then begin
- if ((det_flag) and (shet_flag)) then begin
-
- continue;
- end
- else begin
-
-
- end;
- end;
- Body.Clear();
- if base[i].zad then begin
- Body.Assign(Memo2.Lines);
- Body.Add(FloatToSTR(base[i].sum));
- end
- else begin
- Body.Assign(Memo1.Lines)
- end;
- end;
- IdSMTP1.Connect;
- try
- IdSMTP1.Send(IdMessage1);
- finally
- IdSMTP1.Disconnect;
- A.Free;
- B.FREE;
- end;
- end;
- ...
Примечание #1 (28 апреля 2010, 16:35): Ах да, забыл совсем сказать. Delphi 7 + Indy 10.
Примечание #2 (28 апреля 2010, 16:35): Ах да, забыл совсем сказать. Delphi 7 + Indy 10.
 |
Вопрос задал: Dixich (статус: Посетитель)
Вопрос отправлен: 28 апреля 2010, 08:24
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Мини-форум пуст.
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
