Главная страница
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.013 c
1-59661
asku
2003-05-07 14:19
2003.05.19
плагин на delphi


14-59917
Nikkk
2003-04-29 16:19
2003.05.19
русификатор для D7


1-59662
Apachi
2003-05-07 14:13
2003.05.19
Создание визуальных обектов


1-59770
KSergey
2003-05-05 11:17
2003.05.19
TAction и кнопка


14-59947
race1
2003-04-28 13:21
2003.05.19
computer