【结贴】邮件问题**

OAleer

我配置了一个外部邮箱，是QQ邮箱，但接收不到邮件，配置163的邮箱就可以，请问是什么原因

lixy

a

OAleer

我已经设置了，从X3邮箱里可以发送了，但用代码发送还是收不到

jiahaiming

代码是你自己写的吗？

OAleer

代码就是从论坛里找的，配置163的邮箱发送一直没问题，可用QQ邮箱就发不出去

zfang

具体代码贴出来看下。

OAleer

procedure TMainForm.Button1Click(Sender: TObject);
var
  SendMailExchang: TMessageExchanger;
  lMessage: TMessage;
  lAccount, FAccount: TMailAccount;
  MailSystem: TMailSystem;
  lMailContent: TMemoryStream;
begin
  SendMailExchang := TMessageExchanger.Create(nil);
  lMessage := TMessage.Create(nil);
  lAccount := TMailAccount.Create;
  MailSystem := TMailSystem.Create;
    try
    SendMailExchang.MessageKind := TMessageKind.mkSend;
    lAccount.SMTPHost := 'smtp.qq.com';
    lAccount.SMTPPort := 25;
    lAccount.POPHost := 'pop3.qq.com';
    lAccount.POPPort := 110;
    lAccount.MailAddress := 'XXX@qq.com';
    lAccount.UserID := 'XXX';
    lAccount.Password := '******';
    lAccount.AccountID := 'XXX';
    lMessage.From := 'XXX@qq.com';  //发件人
    lMessage.SendTo := 'TTT@163.com';  //收件人
    lMessage.Subject := '告警提示！';             //mail tatil
    lMessage.Body.Text := '邮件测试,多多打扰请见谅!';
    lMessage.ContentFormatType := TContentFormatType.ftHTML;  // 设置正文内容格式
    if lAccount <> nil then
    begin
      lMailContent := TMemoryStream.Create;  //用于存放邮件的正文
      lMailContent.Clear;
      lMessage.SaveToStream(lMailContent);
      lMailContent.Position := 0;  //移动流的指针
      try
        if lAccount.Verify then
        begin
          if lAccount.DifferPOP then
            SendMailExchang.SMTPMessages.Add(lAccount.VerifyAccount,
              lAccount.VerifyPassword, lAccount.SMTPHost,
              lMessage.From, lMessage.SendTo, lMailContent, lAccount.SMTPPort)
          else
            SendMailExchang.SMTPMessages.Add(lAccount.UserID, lAccount.Password,
              lAccount.SMTPHost, lMessage.From, lMessage.SendTo, lMailContent,
              lAccount.SMTPPort);
        end
        else
          SendMailExchang.SMTPMessages.Add(lAccount.SMTPHost, lMessage.From,
            lMessage.SendTo, lMailContent, lAccount.SMTPPort);
      finally
        lMailContent.Free;
        lAccount.Free;
      end;
        SendMailExchang.Active := True;  //发送邮件
        dialogs.showmessage('邮件发送成功!');
    end;
  finally
    lMessage.Free;
    MailSystem.Free;
    SendMailExchang.Free;  //  SendMailExchang对象一定要最后释放
  end;
end;

zfang

http://service.mail.qq.com/cgi-b ... =28&&no=371
楼主，你看看qq邮箱的pop3地址设置，跟你上面代码不一样啊。

OAleer

我试过pop.qq.com，也不行

lixy

你先用foxmail或者outlook设置成功后，再调试代码。