![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
mail [D7]
newbie © (2004-06-29 08:00:00)Привет, Мастера!!!Помогите плизз с почтой...бадяга у меня такая:
edit1 -куда отправить письмо
edit2 -тема сообщения
edit3 -короткое сообщение
и конечно button (чтоб при нажатии отправлялось)...
ПОжалуйста помогите просто я с сетью вообще дуб..
Спаисбо
Newbie (2004-07-16 01:34:00) [1]А мона как-нить через компонент SakMsg и SakSMTP..Если да то напишите код пожалуйста
Fay (2004-07-10 03:47:00) [2]скачай synapse | ics
newbie (2004-07-10 01:25:00) [3]borman
Дык у меня delphi7 - nmsmtp нету!!!
Anatoly Podgoretsky (2004-07-07 09:15:00) [4]newbie (04.07.04 04:09) [7]
У функции ShellExecute шесть параметров, а не пять.
Orel (2004-07-06 05:25:00) [5]если
ShellExecute('open', PChar('mailto:'+edit1.text+'?subject='+edit2.text+'&body='+edit3.text'), 0, 0, 0);
то в Uses надо дописать ShellApi.
borman (2004-07-04 15:11:00) [6]Приблизительно так...
NMSMTP1.Host := 'smtp.mail.ru';
NMSMTP1.UserID := 'user';
NMSMTP1.Connect;
NMSMTP1.PostMessage.FromAddress := 'admin@microsoft.com';
NMSMTP1.PostMessage.ToAddress.Text := Edit1.Text;
NMSMTP1.PostMessage.Body.Text := Edit3.Text;
NMSMTP1.PostMessage.Subject := Edit2.Text;
NMSMTP1.SendMail;
newbie (2004-07-04 04:09:00) [7]Del_programmer © (01.07.04 08:47) [4]
скинь коды, я скажу где очипка
ShellExecute('open', PChar('mailto:'+edit1.text+'?subject='+edit2.text+'&body='+edit3.text'), 0, 0, 0);
Anatoly Podgoretsky (2004-07-01 11:01:00) [8]Reindeer Moss Eater © (01.07.04 10:52) [5]
Нет, у него еще есть не получается
Reindeer Moss Eater (2004-07-01 10:52:00) [9]У него нет кодов вообще.
У него три едита и одна кнопка.
Del_programmer (2004-07-01 08:47:00) [10]скинь коды, я скажу где очипка
newbie (2004-07-01 08:05:00) [11]МОжет еще как-нибудь можно???
newbie (2004-07-01 03:46:00) [12]Спасибо, но всё равно не получается((((
Глеб (2004-06-29 10:16:00) [13]
ShellExecute('open', PChar('mailto:'+edit1.text+'?subject='+edit2.text+'&body='+edit3.text'), 0, 0, 0);
Извиняюсь, если ошибся с количеством или типом параметров в процедуре ShellExecute, но общая идея такая.
Кстати, нужно подключить модуль ShellAPI.