Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.05.19;
Скачать: 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 вся ветка

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

Наверх




Память: 0.47 MB
Время: 0.016 c
4-60005
Dimonich
2003-03-17 18:32
2003.05.19
Как свернуть прогу в трей?


14-59854
kol
2003-05-01 15:47
2003.05.19
Серверы приложений


14-59855
alexsys
2003-05-01 10:11
2003.05.19
С праздником!


14-59875
UzesCCron
2003-04-28 22:51
2003.05.19
Редактор с Хайлайтином


7-59972
Ciber_SLasH
2003-03-15 23:57
2003.05.19
Как передать байт в порт LPT в WinXP?