|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
16.10.2008, 23:09 | #1 |
Форумчанин
Регистрация: 16.10.2008
Сообщений: 104
|
Как отправить на почтовый яшик введеные даные
Здраствуйте вообшем интересует!
Как отправить на почтовый яшик введеные даные в програме и файл по нажатию button p.s Пишу на delphi7!!! ))) Заранее благодарен! Жду! |
16.10.2008, 23:21 | #2 |
Форумчанин
Регистрация: 15.12.2007
Сообщений: 226
|
С начала попробуй сделать поиск по сайту со словами "отправить почту".............
вот здесь обсуждалась такая тема http://programmersforum.ru/showthread.php?t=21638 |
16.10.2008, 23:21 | #3 |
Участник клуба
Регистрация: 28.11.2007
Сообщений: 1,521
|
Посмотрите эти ссылки, может помогут:
http://www.delphisources.ru/pages/fa...end_email.html http://www.delphisources.ru/pages/fa...end_email.html
Всегда рад помочь!
|
16.10.2008, 23:34 | #4 |
Форумчанин
Регистрация: 16.10.2008
Сообщений: 104
|
Дело в том что пробывал уже эти скрипты неотправляет например
procedure TForm1.hg(Sender: TObject); begin IdSMTP1.Host := 'smtp.mail.ru'; IdSMTP1.Port := 25; IdSMTP1.Username := 'diman19911'; IdSMTP1.Password := '123456'; IdMessage1.From.Address:='marik@bk. ru'; вот тут красная строка мигает! IdMessage1.Subject := 'Test'; IdMessage1.Body.Text := 'Preved medved'; IdMessage1.Recipients.Add; IdMessage1.Recipients.Items[0].Text := klon@list.ru'; IdSMTP1.Connect; IdSMTP1.Authenticate; IdSMTP1.Send(IdMessage1); IdSMTP1.Disconnect; end; и интерисует именно Отправка email с вложением файла Последний раз редактировалось }{oт@бь)ч; 16.10.2008 в 23:40. |
17.10.2008, 01:02 | #5 |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
|
17.10.2008, 16:53 | #6 |
Форумчанин
Регистрация: 16.10.2008
Сообщений: 104
|
Блин народ вы такие страные вы думаете я знаю куда этот код вставлять я начинаюший только мне нужно пояснить куда вставить и где вообше
TIdMessage я работаю на дельфи 7 ))) Вот код var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.dfgh(Sender: TObject); var M:TIdMessage; sm:tidsmtp; att:tidattachment; begin m:=TIdMessage.create(form1); m.From.Text:='program@yandex.ru';//от кого m.Recipients.Add; m.Recipients.Items[0].Text:='<po@yandex.ru>';//кому m.Subject:='fd';// тема m.Body.Text:='fd';// текст sm:=tidsmtp.Create(form1); sm.AuthenticationType := atLogin; sm.Host:='smtp.yandex.ru'; //smtp-адрес sm.Username:='program';//логин отправителя sm.Password:='***'; //пароль отправителя sm.Connect(); {отправка} if sm.Connected then begin sm.Send(M); end; and. на этом анд красная полоска выскакивает Последний раз редактировалось }{oт@бь)ч; 17.10.2008 в 17:01. |
17.10.2008, 17:29 | #7 |
Старожил
Регистрация: 13.12.2006
Сообщений: 3,859
|
пишите ошибки, тексты ошибок.
Не рановато вы начинаете работать с почтой ?
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи |
17.10.2008, 17:33 | #8 |
Форумчанин
Регистрация: 16.10.2008
Сообщений: 104
|
3дня только учусь ошибка только осталасья
в конце and. на ней красная полоса |
17.10.2008, 17:48 | #9 |
Форумчанин
Регистрация: 27.06.2008
Сообщений: 113
|
не надо никого and, нало писать end;
|
17.10.2008, 20:05 | #10 |
Форумчанин
Регистрация: 16.10.2008
Сообщений: 104
|
Вродебы разобрался но при нажатии на кнопку
сообшение не отправляет и выскакивает вот эта табличка Народ помогите в чом проблема? |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как програмно отправить письмо на E-mail ? | SG13 | Работа с сетью в Delphi | 2 | 13.06.2008 12:50 |
Подскажите как отправить E-mail из программы... | Артем Чижук | Общие вопросы Delphi | 1 | 07.06.2008 08:47 |
как отправить и загрузить данные с сервера? | proglamer | Работа с сетью в Delphi | 3 | 11.03.2008 07:54 |
Как отправить Access-ом сообщение по Outlook? | ИгнатАлт | Microsoft Office Access | 2 | 23.11.2007 18:47 |
как отправить сообщения на Асю (icq) | Ermak | Работа с сетью в Delphi | 8 | 19.09.2007 19:57 |