| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Indy

ORMADA ©   (2004-05-27 09:22:00) 

Добрый день!
Как в Инди 9 прикрепить вложение к письму ?
Письмо как создавать и отправлять я нашёл , но не пойму как атачмент туда прикоутить.
У IdMessage есть свойство MessageParts в нём есть кол-во атачментов
Свойство  FileName есть у TIdAttachment = class(TIdMessagePart)
Понятно что если задать FileName для TIdAttachment всё будет ок
но как к мессаге(IdMessage) прикрутить TIdAttachment ?

---

ORMADA   (2004-05-27 14:45:00) [1]

СПАСИБА CrazyMan!
Всё сделал а вот это не нашёл как.

---

CrazyMan   (2004-05-27 13:07:00) [2]

Я делаю енто так:
для отправки берем 2 компоненты:
IDMsgSend: TIdMessage;
SMTP1    : TIdSMTP;

В проге:
with IdMsgSend do
Try
  Body.Assign(Memo1.Lines);// Текст сообщения
  From.Text := Отправитель
  Recipients.EMailAddresses := Получатель 1
  CCList.EMailAddresses     := Получатель 2
  BccList.EMailAddresses    := Получатель 3
  Subject                   := Тема
  Priority := TIdMessagePriority(2); // Приоритет
  // 0 - Highest
  // 1 - High
  // 2 - Normal
  // 3 - Low
  // 4 - Lowest
  ReceiptRecipient.Text := Подтверждение о получении
  // Если не надо то - '', иначе - From.Text
=> TIdAttachment.Create(IdMsgSend.MessageParts, Имя_Файла); <=
Finally
  SMTP1.Host     := Хост;
  SMTP1.Username := Имя_Юзверя;
  SMTP1.Port     := Порт;
  Application.ProcessMessages;
  If (not SMTP1.Connected) Then
    SMTP1.Connect;
  try
   SMTP1.Send(IdMsgSend);
  finally
    SMTP1.Disconnect;
  end;
end;

---

Наверх