Indy

← →
ORMADA © (2004-05-27 09:22) [0]

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

← →
CrazyMan © (2004-05-27 13:07) [1]

Я делаю енто так:
для отправки берем 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;

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

Indy Найти похожие ветки