Форум: "Сети";
Текущий архив: 2002.12.30;
Скачать: [xml.tar.bz2];
ВнизE-mail Найти похожие ветки
← →
Anar (2002-10-26 15:56) [0]Можно ли через свою программу послать e-mail?
Например, вводишь в поле edit адрес и он посылает на этот e-mail сообщение.
Вы знаете как это осуществить? Если да, то поделитесь плиз...
← →
Hlor (2002-10-26 21:00) [1]Вообще есть такие компоненты как smtp и pop... Посмотри
в помощи. Там наглядно расписанно как их использовать!
← →
olphi (2002-10-27 13:41) [2]NMSMTP1.Port:= 25;
NMSMTP1.Host:= "smtp.mail.ru";
NMSMTP1.UserID:="admin"; //
if not nmsmtp1.Connected then NMSMTP1.connect;
NMSMTP1.PostMessage.FromAddress:= "admin@mail.ru";
nMSMTP1.PostMessage.FromName:= "admin";
NMSMTP1.PostMessage.ToAddress.clear;
NMSMTP1.PostMessage.ToAddress.Add("admin@ukr.net");
NMSMTP1.PostMessage.Body.clear;
NMSMTP1.PostMessage.Body.Add("Привет UkrNet!");
NMSMTP1.PostMessage.Subject:= "Тема";
NMSMTP1.SendMail;
← →
Anar (2002-10-27 18:54) [3]2 olphi
почему у меня всегда так: после того как я уже всё сам сделал мне приходит ответ на форуме :(
Но всё равно спасибо!
Может ты ещё подскажешь как аттач прикрепить?
← →
Anar (2002-10-28 15:25) [4]БЕДА!!!
Установил Delphi 7, а там нет компонента TNMSMTP
Как быть?
← →
Mischka (2002-10-30 16:01) [5]Добавить из шестой. Если не лень ковыряться :)
← →
Anar (2002-11-03 17:16) [6]Как из шестой добавить? Что конкретно куда скопировать?
← →
MK (2002-11-03 21:07) [7]Попробуй TidSMTP. Принцип тот же.
← →
Anar (2002-11-04 08:35) [8]У IDSMTP нет свойтва PostMessage, т.е. фактически письмо послать невозможно.
← →
sask (2002-11-04 09:55) [9]зато там есть SendMsg...
← →
ILYA1 (2002-11-04 10:49) [10]2 Anar
В Д7 отправить письмо можно, используя библиотеку InDy
В ней есть компонент (точно не помню, сейчас нет под рукой Д7, этот компонент находится на закладке InDy) TidSMTP у него метод QuickSend(host,subj,to,from,text:string);
Вот и все.
Конечнео, есть и свои минусы токого применения. Эта процедура и поэтому ничего не возвращает. Чтобы узнать об ошибке нужно применять исключения. Да и пристегнуть ничего, увфы, не получиться.
← →
Song (2002-11-04 10:56) [11]А может просто ShellExecute() ?
← →
Як-40 (2002-11-04 20:49) [12]можно через mapi
CreateOleObject("Outlook.Application");
можно через сокеты, если без VCL прога на 15кb
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2002.12.30;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.008 c