Я мало шарю в делпи, мне нужно сделать прогу в которой при нажатии кнопки "Button1" значение полей с edit1-edit4 отправились на почту. С меня ++++++
http://programmersforum.ru/showthread.php?t=17625 http://forum.xakep.ru/m_1206365/tm.htm http://www.programmersclub.ru/alar-pochovik/ пробуй и вообще гугл надо юзать там полно этого всего в случае если что то из примеров гугла не понятно - спрашивай думаю сможешь разобраться
Сделал по этой инструкции: http://svdpro.info/page.php?id=32 Еще раз повторю что в делфи я мало шарю Исходник: http://dump.ru/file/2315639 Исправте плиз ошибки, я даже не знаю куда надо поставить скрипт на отправку
Лучше забить на почту (мое имхо)(ICQ клиент вот то что надо для крутых целей ) Если не дождешься ответа то спроси тут programmersforum.ru (помогут точно)
для таких простых целей чтобы нее*атцо отправляй лучше на гейт а там уже разберешся, толи на сервер, толи на мыло. Потому что таскать с собой акки мыла както ни есть гуд, а юзать почтовые шлюзы - карается закидыванием в спам или вообще пошлет тебя куда подальше изза блека ip или ил-за его динамичности. в для гейта проще некудо - urldownloadtofile
Одно время этим тоже интересовался. Использовал правда, Indy компоненты Delphi 7 (IdSMTP); Приведу как пример код из своей программы © [K4t] Code: { uses ... IdMessage, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP; } procedure TForm1.Button1Click(Sender: TObject); var q:integer; begin q:=0; idSMTP1.host:=Edit1.Text; idSMTP1.Port:=25; idSMTP1.Username:=Edit2.Text; idSMTP1.Password:=Edit3.Text; with idMessage1 do begin From.Text:=Edit4.Text; Recipients.EMailAddresses:=Edit5.Text; Memo1.Lines.Add('Connecting...'); Statusbar1.SimpleText:=('Connecting...'); end; idSMTP1.Connect; try begin Form1.Repaint; Memo1.Lines.Add('Connected'); Memo1.Lines.Add('Sending...'); StatusBar1.SimpleText:='Sending...'; end; while q<strtoint(Edit6.Text) do begin q:=q+1; idMessage1.Subject:=(IntToStr(Random(10000)) + Edit7.Text); Memo2.Lines.Delete(2); Memo2.Lines.Insert(2,inttostr(random(10000))); Sleep(600); idSMTP1.Send(idMessage1); ProgressBar1.Position:=Round(100*q/strtoint(Edit6.Text)); Memo1.Lines.Add('Sended: '+inttostr(q)); Statusbar1.SimpleText:=('In process...'); end; finally; idSMTP1.Disconnect; Memo1.Lines.Add('Отправлено '+inttostr(q)+' сообщений'); Form1.Repaint; Statusbar1.SimpleText:=('Finished'); end; end; { © [K4t] } Вот и всё. Думаю разберёшся. Правда я (хе хе) делал флудер, но ты просто убери цикл и q уничтож. Удачи.
плз помогите ,мне нужно сделать такую программу ( на делфи)чтобы текст и тема сообщения бралась и компонентов Edit1 и Edit2,а при нажатии на Button сообщение отсылалось на указанный мной адрес
Я имел ввиду чтобы текст и тему письма пользователь вписывал в компоненты Edit1 и Edit2 в Edit1 тему ,а в Edit2 текст
