Простой код для отправки 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 никак не мог приаттачить файл. Искал везде и не нашел. Может кому-нибудь пригодится.

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

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