Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Потрепаться";
Текущий архив: 2003.05.19;
Скачать: [xml.tar.bz2];

Вниз

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

 
Вовчик   (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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.028 c
4-59989
biocron
2003-03-18 12:49
2003.05.19
Отключить дисковод так что бы не было ошибки


14-59864
Slavik
2003-04-29 01:12
2003.05.19
Transfer of application from Delphi 5 to Delphi 7


14-59916
kostya2000
2003-04-29 21:57
2003.05.19
УУУУУ! ФОРУМ МАСТАКОВ, КАК Я ДАВНО ТУТ НЕ БЫЛ, СКУЧАЮ :(


1-59647
zapmax
2003-05-05 12:59
2003.05.19
Перетягивание ветвей в TTreeView


1-59653
d_oleg
2003-05-07 10:02
2003.05.19
каталог запуска программы





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский