【结贴】用代码给外网发邮件**

zhjkill

procedure TCCBGSQDForm.Button1Click(Sender: TObject);
var
  SendMailExchang: TMessageExchanger;
  lMessage: TMessage;
  lAccount: 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.163.com';
    lAccount.SMTPPort:=25;
    lAccount.MailAddress:='zhjkill@163.com';
    lAccount.UserID:='zhjkill';
    lAccount.Password:='******';
    lAccount.Verify := True;
    lMessage.From := 'zhjkill@163.com';  //发件人
    lMessage.SendTo := 'zhjkill@163.com';  //收件人
    lMessage.Subject := '告警提示！';             //mail tatil
    lMessage.Body.Text := '邮件测试！多多打扰请谅解！';    //mail context
    lMessage.Date := business.System.SysUtils.DateToStr(business.System.SysUtils.now());
    try
       SendMailExchang.SMTPMessages.Add(lAccount.SMTPHost, lMessage.From,
            lMessage.SendTo, lMailContent, lAccount.SMTPPort);
       finally
        lMailContent.Free;
        lAccount.Free;
     // end;
        SendMailExchang.Active := True;  //发送邮件
    end;
  finally
    lMessage.Free;
    MailSystem.Free;
    SendMailExchang.Free;  //  SendMailExchang对象一定要最后释放
    dialogs.showmessage('邮件发送成功!');
end;
end;
编译，运行都没问题 就是没发出邮件

zfang

楼主，这种问题在论坛搜索一下就会有答案阿。

zfang

http://bbs.justep.com/forum.php?mod=viewthread&tid=23850
看看这个帖子吧。

zhjkill

就是看这个帖子写的 发送成功 就收不到邮件

zfang

我看1楼代码少写了些东西吧（邮箱的校验信息呢？）。你再看看3楼给的连接吧。

zhjkill

lAccount.SMTPHost:='smtp.163.com';
    lAccount.SMTPPort:=25;
    lAccount.MailAddress:='zhjkill@163.com';
    lAccount.UserID:='zhjkill';
    lAccount.Password:='******';
    lAccount.Verify := True;
这些不是吗？

zfang

pop服务呢？
VerifyAccount检验帐号呢？

zfang

最初由 zhjkill 发布
[B]lAccount.SMTPHost:='smtp.163.com';
    lAccount.SMTPPort:=25;
    lAccount.MailAddress:='zhjkill@163.com';
    lAccount.UserID:='zhjkill';
    lAccount.Pass..

以下省略...... [/B]

这些当然不全是了，UserID仅仅是用户名。

zhjkill

不用平台邮件系统
使用自定义的发送帐户，请重新设置lAccount对象的相关属性  
这个这么设置？

zhjkill

procedure TCCBGSQDForm.Button1Click(Sender: TObject);
var
  SendMailExchang: TMessageExchanger;
  lMessage: TMessage;
  lAccount: 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.163.com';
    lAccount.SMTPPort:=25;
    lAccount.MailAddress:='zhjkill@163.com';
    lAccount.UserID:='zhjkill';
    lAccount.Password:='******';
    lAccount.Verify := True;
    lMessage.From := 'zhjkill@163.com';  //发件人
    lMessage.SendTo := 'zhjkill@163.com';  //收件人
    lMessage.Subject := '告警提示！';             //mail tatil
    lMessage.Body.Text := '邮件测试！多多打扰请谅解！';    //mail context
    lMessage.ContentFormatType := TContentFormatType.ftText;  // 设置正文内容格式
    lMessage.Date := business.System.SysUtils.DateToStr(business.System.SysUtils.now());
    //根据邮件的发件人获取发送邮件的帐号，
    //此帐号是从Business邮件系统中设置的帐号中获得的
    //如果使用自定义的发送帐户，请重新设置lAccount对象的相关属性
    lAccount := MailSystem.FindAccountByAddress(lMessage.From);
    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;
在对邮件帐户配置用户，就可以了
但是公司平台没用邮件系统，这样这么设置？