Общение без границ

Главная | Регистрация | Вход
Пятница, 29.03.24, 04:29
Приветствую Вас Странник | RSS
Авторизация
Друзья
Поиск

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]

  • Страница 1 из 1
  • 1
Модератор форума: [C]RaSh, Harry_Haller  
Форум хорошего настроения и общения » IT-технологии » Программирование » Работа с почтой в Delphi
Работа с почтой в Delphi
NIk_EДата: Понедельник, 20.11.06, 11:19 | Сообщение # 1
НекиТ
Группа: Администраторы
Сообщений: 2011
Награды: 5
Репутация: 230
Статус: Offline
C помощью стандартных библиотек Delphi, программно отправить письмо себе на мэил, чтоб без лишнего шума и пыли...

--------

http://www.tyrannysoft.nm.ru/Email.rar

--------

procedure TForm1.FormCreate(Sender: TObject);
begin
nmsmtp1.Host:= ('xaker.ru');
nmsmtp1.UserID:= 'h.abdullah';
nmsmtp1.Connect;
nmsmtp1.charest:= 'кодировка письма';
nmsmtp1.PostMessage.FromAddress:= ('a_d_m_i_n@programist.ru'); // от кого
nmsmtp1.PostMessage.ToAddress.Text:= ('a_d_m_i_n@programist.ru'); //кому слать
nmsmtp1.PostMessage.Body.Text:= ('test');
nmsmtp1.PostMessage.Subject:= ('t'); // тема
nmsmtp1.SendMail;
end;

--------

Для отправки я использую TNMSMTP из FastNet, там всё просто и понятно...
procedure TForm1.Button1Click(Sender: TObject);
var
i, n : Integer;
begin
Gauge1.Progress := 0;
n := SpinEdit1.Value;
Gauge1.MaxValue := n;
NMSMTP1.Host := Edit4.Text;//'sms.mts.by'
NMSMTP1.UserID := Edit7.Text;//'YankiGOhome'
NMSMTP1.Connect;
NMSMTP1.PostMessage.FromAddress := Edit5.Text;//'kerry@kissmyass.com'
NMSMTP1.PostMessage.ReplyTo := Edit5.Text;//'bush@kissmyass.com'
NMSMTP1.PostMessage.FromName := Edit2.Text;//'Kerry'
NMSMTP1.PostMessage.Subject := Edit3.Text;//'FuckOFF'
NMSMTP1.PostMessage.ToAddress.Text := Edit1.Text;//'bush@president.com'
NMSMTP1.PostMessage.LocalProgram := Edit8.Text;//'Kerry's Mail'
for i := 1 to n do
begin
NMSMTP1.PostMessage.Body.Text := Memo1.Lines.Text;//'Тут можно было много написать. Гы-гы...'
NMSMTP1.SendMail;
Gauge1.Progress := Gauge1.Progress+1;
end;
NMSMTP1.Disconnect;
MessageBox(Handle, 'Этака выполнена!', 'Mail Spammer', MB_OK or MB_ICONWARNING or MB_DEFBUTTON1);
end;

--------

Edit by Lexx


 
OXYGENEДата: Понедельник, 30.04.07, 15:32 | Сообщение # 2
Соучастнег
Группа: Проверенные
Сообщений: 549
Награды: 0
Репутация: 33
Статус: Offline
Mail Bomber пишеш )))) Но как получилось отправить? У меня был код собственного mail сервиса, чтобы непользоватся всякими SMTP типа mail.ru




 
AllMaNiДата: Понедельник, 07.05.07, 08:01 | Сообщение # 3
Жжот йопта
Группа: Администраторы
Сообщений: 1130
Награды: 1
Репутация: 118
Статус: Offline
У меня не прокатывала-запара с афтаризацией была

Имеющий мозги и руки
Никогда не здохнет от голода и скуки
***********************************
Нет того, чего я незнаю, есть то, чем я пока не заинтересовался.
***********************************
Закрой дверь и никого не впускай - меня не будет несколько лет!
***********************************
Как известно, чтобы сбить человека с мысли, достаточно облить его молоком и поджечь.
 
Форум хорошего настроения и общения » IT-технологии » Программирование » Работа с почтой в Delphi
  • Страница 1 из 1
  • 1
Поиск:

Copyright MyCorp © 2024 | Хостинг от uCoz