Отправка почты SMTP через Делфи [Как?]

[НTL]

Я мало шарю в делпи, мне нужно сделать прогу в которой при нажатии кнопки "Button1" значение полей с edit1-edit4 отправились на почту.

С меня ++++++

[diznt]

http://programmersforum.ru/showthread.php?t=17625
http://forum.xakep.ru/m_1206365/tm.htm
http://www.programmersclub.ru/alar-pochovik/

пробуй и вообще гугл надо юзать там полно этого всего
в случае если что то из примеров гугла не понятно - спрашивай
думаю сможешь разобраться

[_nic]

Делпи

А что это :confused:

[mad_xakep]

А что это :confused:
делфи

[НTL]

Сделал по этой инструкции: http://svdpro.info/page.php?id=32
Еще раз повторю что в делфи я мало шарю

Исходник: http://dump.ru/file/2315639
Исправте плиз ошибки, я даже не знаю куда надо поставить скрипт на отправку

[diznt]

Лучше забить на почту (мое имхо)(ICQ клиент вот то что надо для крутых целей :D)
Если не дождешься ответа то спроси тут

programmersforum.ru (помогут точно)

[НTL]

ICQClient1 на какой вкладке? :)

[НTL]

Все нашол вкладка: Samples

[slesh]

для таких простых целей чтобы нее*атцо отправляй лучше на гейт а там уже разберешся, толи на сервер, толи на мыло.
Потому что таскать с собой акки мыла както ни есть гуд, а юзать почтовые шлюзы - карается закидыванием в спам или вообще пошлет тебя куда подальше изза блека ip или ил-за его динамичности.
в для гейта проще некудо - urldownloadtofile

[[K4t]]

Я мало шарю в делпи, мне нужно сделать прогу в которой при нажатии кнопки "Button1" значение полей с edit1-edit4 отправились на почту. С меня ++++++
Одно время этим тоже интересовался. Использовал правда, Indy компоненты Delphi 7 (IdSMTP); Приведу как пример код из своей программы © [K4t]

{ 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 уничтож. Удачи.

[arser]

плз помогите ,мне нужно сделать такую программу ( на делфи)чтобы текст и тема сообщения бралась и компонентов Edit1 и Edit2,а при нажатии на Button сообщение отсылалось на указанный мной адрес

[ronald]

http://delphiexpert.ru/view_lesson.php?id=46
смотри

[arser]

Я имел ввиду чтобы текст и тему письма пользователь вписывал в компоненты Edit1 и Edit2
в Edit1 тему ,а в Edit2 текст

[ronald]

Ну вот и прикрути это к тому коду ;)

[arser]

Ну вот и прикрути это к тому коду ;)
Он там даже Edit'ы не использует

[Pernat1y]

Он там даже Edit'ы не использует
типа send.message.title:=edit.text; ?
домой приду - гляну как точно было

[ronald]

arser , как ты собрался делать этот проект, если даже в простейших компонентах не разбираешься?

[arser]

arser , как ты собрался делать этот проект, если даже в простейших компонентах не разбираешься?
Уже сделал!!!магу даже ссылочку дать
И ЕЩЕ СПАСИБО ЗА ПОМОЩЬ!!!

[s0l_ir0n]

Я худею (с) Жорик Вартанов
https://forum.antichat.ru/thread115202.html