Форум АНТИЧАТ - Отправка почты SMTP через Делфи [Как?]

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)

- - Отправка почты SMTP через Делфи [Как?] (https://forum.antichat.xyz/showthread.php?t=113529)

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

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

С меня ++++++

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

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

Цитата:

Делпи

А что это :confused:

Цитата:

Сообщение от _nic

А что это :confused:

делфи

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

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

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

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

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

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

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

Цитата:

Сообщение от НTL

Я мало шарю в делпи, мне нужно сделать прогу в которой при нажатии кнопки "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 уничтож. Удачи.