Скачать: CL | DM;

Как прикрепить файлы в мыле.   Найти похожие ветки 

← →
Вовчик   (2003-04-29 08:43) [0]

Подскажите, пожалуйста, как прикрепить файл в письмо, отправляемое компонентом NMSMTP. Или для этого есть другой компонент, тогда подскажите где его взять, или швырните мне его на мыло. Спасибо!
З.Ы. Прошу прощение, что не соблюдена рубрика, но в сетях мне никто не ответил.

---

← →
злой ©   (2003-04-29 09:04) [1]

> но в сетях мне никто не ответил

И не ответит. Читай спецификацию SMTP.

---

← →
stone ©   (2003-04-29 09:30) [2]

Добавьте в форму 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;
Send(LMsg);
Disconnect;
finally
Free;
end;
finally
LMsg.Free;
end;
ShowMessage("Message sent!");
finally
butnSendMail.Enabled := True;
end;
end;

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.016 c