![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Компонент TNMSMTP
Max!!!! © (2004-05-06 08:59:00)В Дельфях 6-ке был компонент TNMSMTP в закладке FastNet, в 7-ке что-то я такого не наблюдаю. Существует ли он в природе? И где его найти, если он есть?
Max!!!! (2004-05-06 14:48:00) [1]Все, спасибо!
разобрался сам
TIdAttachment.Create(Msg.MessageParts, Attachment.Strings[I]);
Андрей Сенченко (2004-05-06 14:16:00) [2]Изначально код не мой, переделывал под себя.
У меня работает
procedure SendMail;
var
LSMTP: TIdSMTP;
LMsg: TIdMessage;
begin
LSMTP := TIdSMTP.Create(nil);
LMsg := TIdMessage.Create(LSMTP);
with LMsg do
begin
CharSet :=
From.Name :=
From.Address :=
Recipients.EMailAddresses
Subject :=
Body.Text :=
TIdAttachment.Create(LMsg.MessageParts, ...);
end;
with LSMTP do
begin
AuthenticationType:=atLogin;
Port :=
Host :=
UserId :=
Password :=
try
Connect;
Send(LMsg);
except
on e:exception do
begin
showmessage (Trim(e.message));
end;
end;
Disconnect;
end;
FreeAndNil(LMsg);
FreeAndNil(LSMTP);
end;
Max!!!! (2004-05-06 13:06:00) [3]Что-то я поискал в этом компоненте, ни как не могу найти где есть возможность прицепить файлы.
Delphin (2004-05-06 11:40:00) [4]какая разница, его же всё равно не видно в самой программе, главное его функциональность
Max!!!! (2004-05-06 11:15:00) [5]В курсе, но он такой уродский
Chris (2004-05-06 09:28:00) [6]На закладке Indy Clients есть компонент idSMTP (синий почтовый ящик)