用delphi发邮件

控件
    IdSMTP1: TIdSMTP;
    IdMessage1: TIdMessage;
代码
    IdSMTP1.Host:='smtp.163.com';
    IdSMTP1.Port:=25;
    IdSMTP1.Username:='发信人名称;
    IdSMTP1.Password:='发信人邮箱密码';
    IdSMTP1.Connect();
    IdMessage1.Body.Clear;
    IdMessage1.Body.Add(信的内容);
    IdMessage1.From.Text:='从哪发的，应该可以邮箱欺骗';
    IdMessage1.Recipients.EMailAddresses:='发到哪个邮箱';
    IdMessage1.Subject:='邮件题目';
    IdSMTP1.AuthenticationType := atLogin;
    IdSMTP1.Authenticate;
    IdSMTP1.Send(IdMessage1);
    IdSMTP1.Disconnect;
end;

重点来了，有朋友试验这个代码说不好用，刚开始我测试也不行，在csdn上用了几百分也没弄明白是怎么回事，后来一个偶然的机会发现，用新注册的邮箱用这个代码是发不了了，用用过一段时间的邮箱就可以发，新注册用户只能通过web方式发邮件，估计与在论坛注册的新用户在某个设定时间内发不了帖子是一个道理。