【结贴】邮件发送**

lixy

贴代码，和项目关联配置的图

wj0623

unit YJTS;

interface

uses
   Business.System, Business.Forms, Business.Data, Business.Model, Justep.Tools.Mail;

type
  TYJTS = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Panel1: TPanel;
    MessageExchanger1: TMessageExchanger;
    Message1: TMessage;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    {private declarations}
  public
    {public declarations}
  end;

implementation

procedure TYJTS.Button2Click(Sender: TObject);
begin
  close;
end;

procedure TYJTS.Button1Click(Sender: TObject);
var
  SendMailExchang: TMessageExchanger;  //用于发送邮件的交换机
  lAccount: TMailAccount;
  MailSystem: TMailSystem;
  lMailContent: TMemoryStream;
  lMessage: TMessage;
begin
  MailSystem := TMailSystem.Create;
  SendMailExchang := TMessageExchanger.Create(nil);
  lMessage := TMessage.Create(nil);
  lAccount := TMailAccount.Create;
  try
    SendMailExchang.MessageKind := TMessageKind.mkSend;
    lMessage.From := 'xxx@sohu.com';  //发件人
    lMessage.SendTo := 'xxx@sohu.com';  //收件人
    lMessage.BCC := 'xxx@sohu.com';
    lMessage.CC := 'xxx@sohu.com';
    lMessage.Subject := '测试邮件';  //邮件标题
    lMessage.Body.Text := '这是一封测试邮件！邮件正文';   //正文
    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;  //发送邮件
    end;
  finally
    lMessage.Free;
    MailSystem.Free;
    SendMailExchang.Free;  //  SendMailExchang对象一定要最后释放
  end;
end;

end.

Akon

你在Uses  加上   MAILLIBRARY单元

wj0623

编译通过但是邮件发不出去！发送外部邮件
procedure TYJT.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.126.com';
    lAccount.SMTPPort:=25;
    lMessage.From := 'BBX';  //发件人
    lMessage.SendTo := 'luozhongliang2006@126.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;

lixy

126邮箱服务器需要身份验证的

jiahaiming

需要在uses部分添加邮件库的名空间引用：MailLibrary

wj0623

程序编译通过，那如果要向126 yahoo 等发送邮件怎么修改代码呢？

lixy

lAccount的这几个属性要设置
MailAddress  
UserID
Password
Verify := True；

wj0623

问题已经解决！！！非常感谢Akon!!!结贴！