Компонент TNMSMTP

← →
Max!!!! (2004-05-06 08:59) [0]

В Дельфях 6-ке был компонент TNMSMTP в закладке FastNet, в 7-ке что-то я такого не наблюдаю. Существует ли он в природе? И где его найти, если он есть?

← →
Chris © (2004-05-06 09:28) [1]

На закладке Indy Clients есть компонент idSMTP (синий почтовый ящик)

← →
Max!!!! (2004-05-06 11:15) [2]

В курсе, но он такой уродский

← →
Delphin © (2004-05-06 11:40) [3]

какая разница, его же всё равно не видно в самой программе, главное его функциональность

← →
Max!!!! (2004-05-06 13:06) [4]

Что-то я поискал в этом компоненте, ни как не могу найти где есть возможность прицепить файлы.

Изначально код не мой, переделывал под себя.
У меня работает

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 14:48) [6]

Все, спасибо!
разобрался сам
TIdAttachment.Create(Msg.MessageParts, Attachment.Strings[I]);

Компонент TNMSMTP Найти похожие ветки