| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TIdSMTP и TIdMessage... [D6, Win95/98, Win2k]

Levova ©   (2003-04-02 15:00:00) 

Как при помощи этих компонентов отправить файл?

---

Zelius   (2003-04-02 16:19:00) [1]

Если нужно просто и быстро что-нибудь отослать, то можно использовать TidSMTP.QuickSend, тогда даже TIdMessage не нужен!

---

stone   (2003-04-02 16:01:00) [2]

Пример не помню чей, но работает.

procedure TForm1.butnSendMailClick(Sender: TObject);
var
LMsg: TIdMessage;
begin
butnSendMail.Enabled := False; try
LMsg := TIdMessage.Create(nil); try
with LMsg do begin
TIdAttachment.Create(LMsg.MessageParts, "C:\Test.txt");
From.Address := Trim(editFrom.Text);
Recipients.Add.Address := Trim(editTo.Text);
Subject := Trim(editSubject.Text);
Body.Text := memoMsg.Lines.Text;
end;
with TIdSMTP.Create(nil) do try
Host := Trim(editSMTPServer.Text);
Connect; try
Send(LMsg);
finally Disconnect; end;
finally Free; end;
finally LMsg.Free; end;
ShowMessage("Message sent!");
finally butnSendMail.Enabled := True; end;
end;

---

Наверх