Главная страница
    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.009 c
1-59733
SiJack
2003-05-06 08:30
2003.05.19
Как получить из делфи список всех листов в документе Excel ?


14-59891
Tanya
2003-04-29 13:02
2003.05.19
Где бы взять инкрементный поиск в lookup столбцах?


14-59898
JibSkeart
2003-04-27 12:56
2003.05.19
Круто У нас Метель была я в шоке :о)


3-59544
alexgov
2003-04-25 16:53
2003.05.19
Отсоединеный набор в ADO


3-59569
Centr
2003-04-27 06:12
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский