Почта с Indy. [D7, Win95/98, Win2k]
andrey_pst © (2003-02-05 08:51:00)
Я дико извиняюсь, объясните дураку,
как добавить файл-вложение в письмо
при отправке эл.почты с помошью компонентов Indy.
(последовательность действий в общих чертах, если не сложно)
Заранее спасибо.
shiling (2003-02-05 09:07:00) [1]
Вырезка из кода...
var
FileName: string;
idSMTP : TIdSMTP;
idMessage : TIdMessage;
boolFl : boolean;
begin
FileName:=....;
idSMTP:=TIdSMTP.Create(self);
idSMTP.Host:=...;
idSMTP.Port:=...;
idMessage:=TidMessage.Create(self);
idMessage.Date:=now();
idMessage.From.Address:=.....;
idMessage.Sender.Address:=.....;
idMessage.Subject:=.....;
idMessage.Recipients.EMailAddresses:=....;
idMessage.Body.Add(fmEmail.fBody.text);
TidAttachment.Create(idMessage.MessageParts,FileName);//
<---
Screen.Cursor:=crSqlWait;
idSMTP.Connect(5000);
idSMTP.Send(idmessage);
idSMTP.Disconnect;
Screen.Cursor:=crDefault;
end;
Наверх 
ЧАТ |
Орешник |
|
