| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Простой код ;для отправки e-mail c прикрепленным файлом [D7, Win95/98, Win2k]
Марс Якупов © (2003-03-14 17:57:00)Добавьте в форму 4 TEdit(editTo, editFrom, editSMTPServer, editSubject),1 TMemo (memoMsg) и 1 TButton (butnSendMail).
В uses - IdMessage, IdSMTP.
Опишите по своему путь к отправляемому файлу
(здесь для примера C:\Test.txt)
Скомпилируйте и можно его засунуть в планировщик задач
для ежедневного получения с удаленого сервера файла(ов).
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;
Polevi (2003-03-16 14:58:00) [1]фи, да код то не на API !
Марс Якупов (2003-03-14 18:06:00) [2]Да просто в D7 никак не мог приаттачить файл. Искал везде и не нашел. Может кому-нибудь пригодится.
Anatoly Podgoretsky (2003-03-14 18:04:00) [3]В чем состоит вопрос?
| |
