Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.05.12;
Скачать: CL | DM;

Вниз

Простой код для отправки e-mail c прикрепленным файлом   Найти похожие ветки 

 
Марс Якупов   (2003-03-14 17:57) [0]

Добавьте в форму 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;


 
Anatoly Podgoretsky ©   (2003-03-14 18:04) [1]

В чем состоит вопрос?


 
Марс Якупов   (2003-03-14 18:06) [2]

Да просто в D7 никак не мог приаттачить файл. Искал везде и не нашел. Может кому-нибудь пригодится.


 
Polevi ©   (2003-03-16 14:58) [3]

фи, да код то не на API !



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

Текущий архив: 2003.05.12;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.039 c
14-34564
Vint45
2003-04-23 14:16
2003.05.12
Распределение элементов с учетом приоритетов


1-34454
Dmitry S.
2003-04-28 08:45
2003.05.12
Flat


6-34530
ruben
2003-03-16 06:12
2003.05.12
Что лучше - Direct Play or WinSock


4-34653
JoSHUA
2003-03-12 15:28
2003.05.12
Убийство


1-34416
bnn
2003-04-28 15:29
2003.05.12
Компонент TEdit