Всем Доброго времени суток помогите разобратся с кодом.
Код:
procedure TForm1.Button1Click(Sender: TObject);
var Msg: TIdMessage;
begin
smtp1.Host:='smtp.mail.ru';
smtp1.Port:=25;
smtp1.AuthenticationType:=atLogin;
smtp1.Username:='логин';
smtp1.Password:='пароль';
smtp1.Connect(5000);
//with smtp1 do
//begin
msg.Subject:='Тема письма';
msg.Recipients.EMailAddresses:='адрес получателя';
msg.From.Address:='отправителя';
msg.Body.Text:='текст сообщения?';
msg.Date:=StrToDate('27.12.2010');
//end;
if smtp1.Connected then
begin
smtp1.Send(msg);
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
smtp1.Disconnect;
sleep(500);
close;
end;
end.
и почемуто оно не посилает письмо на почту что не так сделано подскажите?
То что в закоментировано раньше тоже юзал но как небыло ефекта уже пробовал разные варианты.