delphi 中用indy发邮件的问题

Question

我郁闷了好几天啊 ！
 用网上的说法 和在indy 官方网站上下的demo
 都不能成功发送！不晓得是什么原因！
 网上有人说是把indy发的邮件作为垃圾邮件了
 
有没有那位最近发送成功了的啊！
[email protected]

Answer 1

function TfrmMail.SendTest(sMailAddr, sMailTitle, sMailContent: String): Boolean;
begin
   Result := False;
 
   Try
      With IdMsgTest do// IdMsgTest: TIdMessage;
      begin
         Clear;
         Body.Clear;
         CCList.Clear;
         MessageParts.Clear;
         Body.Append(sMailContent);
         From.Text := 'cry';
         ReplyTo.EMailAddresses := '[email protected]';//send
         Recipients.EMailAddresses := '[email protected]';//receive
         Subject := sMailTitle;
         Priority := TIdMessagePriority(0); { Message Priority }
         ReceiptRecipient.Text := '';
      end;      SmtpTest.AuthenticationType := atLogin;  //SmtpTest: TIdSMTP;
      SmtpTest.Username := SMTP_USERNAME;
      SmtpTest.Password := SMTP_PASSWORD;
      SmtpTest.Host := SMTP_ADDR;
      SmtpTest.Port := SMTP_PORT;      SmtpTest.Connect;
      Try
         SmtpTest.Send(IdMsgTest);
      finally
         SmtpTest.Disconnect;
      end;
   Except
      On E:Exception do
      begin
         Exit;
      end;
   end;
   Result := True;
end;