ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / TIDSMTP и TIdMessage
3 сообщений из 3, страница 1 из 1
TIDSMTP и TIdMessage
    #32297908
Sem H
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sem H
Гость
Вопрос назрел: как вложить файл в письмо?.. текст проги такой:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
procedure TForm1.Button1Click(Sender: TObject);
var messg:  TIdMessage;
begin
messg := TIdMessage.Create(Form1);
messg.From.Address := 'aaa@bbb.ru';
messg.Subject := 'Заголовок';
messg.Recipients.Add.Text := 'ccc@yandex.ru';
messg.Body.Add('Всякая фигня');
IdSMTP1.Host := '10.0.0.222';
IdSMTP1.Port :=  25 ;
IdSMTP1.UserId := 'aaa';
IdSMTP1.Connect;
IdSMTP1.Send(messg);
IdSMTP1.Disconnect;
messg.Free;
end;


Отправляет сообщение без проблем, но как добавить файл в messg - непонятно :(
...
Рейтинг: 0 / 0
20.10.2003, 07:45
| Ответить | Цитировать | Написать  
TIDSMTP и TIdMessage
    #32297915
Сашка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сашка
Гость
TIdAttachment.Create(MessageParts, <файл>);
...
Рейтинг: 0 / 0
20.10.2003, 08:04
| Ответить | Цитировать | Написать  
TIDSMTP и TIdMessage
    #32297928
Sem H
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sem H
Гость
Ок, спасибо.
...
Рейтинг: 0 / 0
20.10.2003, 08:31
| Ответить | Цитировать | Написать  
3 сообщений из 3, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / TIDSMTP и TIdMessage
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]