в кусочке:
procedure TForm1.Button4Click(Sender: TObject);
begin
SMTP.Host:='smtp.mail.ru';
SMTP.Port:=25;
SMTP.Username:='user'; // логин пользователя
SMTP.Password:='pass'; // пароль пользователя
SMTP.AuthenticationType:=atLogin;
with IdMessage do
begin
Body.Assign(Memo1.Lines);
From.Text := 'us...@mail.ru';
Recipients.EMailAddresses := 'us...@mail.ru';
Subject := 'subj';
end;
При компиляции жалуется на сабж и на SMTP.Password - Cannot access protected
symbol TidTCPClientCustom.Username
При использование POP.Username все нормально, а что тут делать?
> SMTP.Host:='smtp.mail.ru';
> SMTP.Port:=25;
> SMTP.Username:='user'; // логин пользователя
> SMTP.Password:='pass'; // пароль пользователя
> SMTP.AuthenticationType:=atLogin;
> with IdMessage do
> begin
> Body.Assign(Memo1.Lines);
> From.Text := 'us...@mail.ru';
> Recipients.EMailAddresses := 'us...@mail.ru';
> Subject := 'subj';
>
> end;
>
>
> При компиляции жалуется на сабж и на SMTP.Password - Cannot access protected
> symbol TidTCPClientCustom.Username
>
> При использование POP.Username все нормально, а что тут делать?
SMTP.UserID вместо SMTP.Username
--
Шмырев А. А.