Форум: "Сети";
Текущий архив: 2003.05.12;
Скачать: [xml.tar.bz2];
ВнизПростой код для отправки 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c