sendmail_unit.~pas

ceshi de bu yao xiazai

unit Sendmail_unit;

interface

uses
  Messages, SysUtils, Variants, Classes, Graphics, Controls,StdCtrls, OleServer,
    IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient,
  IdSMTP, IdBaseComponent, IdMessage,ActiveX,AppConst;

  function SendMail(MailBody,MailSubject:string):string;

implementation

var
  IdMessage:TidMessage;

function SendMail(MailBody,MailSubject:string):string;
var
  TempBackupDirectory:string;
  i:integer;
  sender_name,rece_list,CarbonList,server_ip,server_port:string;
begin
  sender_name:='CP-IT1T/CPCHG/FOXCONN@FOXCONN';
  rece_list:='CP-IT1T/CPCHG/FOXCONN@FOXCONN';
  CarbonList:='CP-IT1T/CPCHG/FOXCONN@FOXCONN';
  server_ip:='10.160.11.16';
  server_port:='25';
  try
    with IdMessage do
    begin
      from.Text:=sender_name;
      sender.Text:=sender_name;
      Recipients.EMailAddresses:=rece_list;
      CCList.EMailAddresses:=CarbonList;
      subject:=MailSubject;
      body.Text:=MailBody;
    END;
    {IdMessage.MessageParts.Clear;
    for  i:=0 to AttachList.Count-1 do
      TidAttachment.Create(IdMessage.MessageParts,AttachList.Strings[i]);}
    idsmtp.Host:=server_ip;
    idsmtp.Port:=strtoint(server_port);
    idsmtp.Connect;
    idsmtp.Send(idmessage);
    idsmtp.Disconnect;
    SendMail:='OK';
  except
    on e:exception do
    begin
      idsmtp.Disconnect;
      SendMail:=e.Message;
    end;
  end;
end;

end.