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
