Скачать: CL | DM;

Компонент 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]

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

---

← →
Андрей Сенченко ©   (2004-05-06 14:16) [5]

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

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]);

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.032 c