{"id":14,"date":"2009-09-15T11:23:01","date_gmt":"2009-09-15T03:23:01","guid":{"rendered":"http:\/\/www.infinity.idv.tw\/blog\/?p=14"},"modified":"2011-04-07T10:52:01","modified_gmt":"2011-04-07T02:52:01","slug":"%e5%af%84%e4%bf%a1%e7%94%a8indy%e5%85%83%e4%bb%b6-tidsmtp-%e8%88%87-tidmessage-%e4%bd%bf%e7%94%a8%e7%af%84%e4%be%8b%e5%8b%95%e6%85%8b%e5%89%b5%e5%bb%ba","status":"publish","type":"post","link":"http:\/\/blog.infinity.idv.tw\/?p=14","title":{"rendered":"\u5bc4\u4fe1\u7528Indy\u5143\u4ef6 TIdsmtp \u8207 TIdmessage \u4f7f\u7528\u7bc4\u4f8b(\u52d5\u614b\u5275\u5efa)"},"content":{"rendered":"

\u7d05\u5b57\u90e8\u4efd\u70ba\u624b\u52d5\u52a0\u5165\u7a0b\u5f0f\uff0c\u5efa\u7acb\u500b\u6309\u9215\uff0c\u6309\u9215\u7a0b\u5e8f\u5982\u4e0b\uff1a<\/font><\/p>\n

unit Unit1; <\/font><\/p>\n

interface <\/font><\/p>\n

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdMessage, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP; <\/font><\/p>\n

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
<\/font>    MsgIdSMTP: TIdSMTP;
    IdMessage: TIdMessage;<\/font>
    { Private declarations }
  public
    { Public declarations }
  end; <\/font><\/p>\n

var
  Form1: TForm1; <\/font><\/p>\n

implementation <\/font><\/p>\n

{$R *.dfm} <\/font><\/p>\n

procedure TForm1.Button1Click(Sender: TObject);
begin
<\/font>  \/\/\u52d5\u614b\u5275\u5efa
  MsgIdSMTP := TIdSMTP.Create(self); 
  IdMessage := TIdMessage.Create(self); <\/font><\/font><\/p>\n

  MsgIdSMTP.Host := ‘mail.xxx.com.tw’; \/\/\u8a2d\u5b9amail\u4e3b\u6a5f
  MsgIdSMTP.Port := 25; \/\/\u8a2d\u5b9a\u4f7f\u7528 port 25\u5bc4\u4fe1<\/font><\/p>\n

  \/\/\u5bc4\u4fe1\u8a0a\u606f\u8a2d\u7f6e
  with IDMessage do
  begin
    From.Name := ‘WINPEX IT’; \/\/\u5bc4\u4ef6\u4eba\u986f\u793a\u540d\u7a31
    From.Address := ‘roger@xxx.com.tw’<\/a>; \/\/\u5bc4\u4ef6\u4eba
    Subject := ‘IDMessage Test!!’; \/\/\u4e3b\u65e8
    Body.Add(‘IDMessage Test!!’+#10#13+’IDMessage Test!!’);
    Recipients.EMailAddresses := ‘roger@xxx.com.tw’;
  end;<\/font><\/p>\n

  \/\/\u9023\u7dda\u5bc4\u4fe1
  with MsgIdSMTP do
  begin
    try
      connect;
      Send(IdMessage);
      Disconnect;
    except on e: exception do
      begin
        if connected then try disconnect; except end;
        MessageDlg(FormatDateTime(‘hh:nn ‘, now) + #13#10 + ‘ \u932f\u8aa4\u8a0a\u606f\u90f5\u4ef6\u50b3\u9001\u5931\u6557\uff01’ + #13#10 + E.Message, mtError, [mbOk], 0);
      end;
    end;
  end; <\/font><\/p>\n

  MsgIdSMTP.Free;
  IdMessage.Free;<\/font>
end; <\/font><\/p>\n

end.<\/font><\/p>\n

<\/font><\/p>\n

\u6536\u5230\u4fe1\u756b\u9762\uff1a<\/font><\/p>\n

\"1\"<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"

\u7d05\u5b57\u90e8\u4efd\u70ba\u624b\u52d5\u52a0\u5165\u7a0b\u5f0f\uff0c\u5efa\u7acb\u500b\u6309\u9215\uff0c\u6309\u9215\u7a0b\u5e8f\u5982\u4e0b\uff1a<\/p>\n

unit Unit1; <\/p>\n

interface <\/p>\n

uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, IdMessage, IdBaseComponent, IdComponent,   IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP; <\/p>\n

type   TForm1 = class(TForm)     Button1: TButton; […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[3],"tags":[],"_links":{"self":[{"href":"http:\/\/blog.infinity.idv.tw\/index.php?rest_route=\/wp\/v2\/posts\/14"}],"collection":[{"href":"http:\/\/blog.infinity.idv.tw\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/blog.infinity.idv.tw\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/blog.infinity.idv.tw\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/blog.infinity.idv.tw\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=14"}],"version-history":[{"count":1,"href":"http:\/\/blog.infinity.idv.tw\/index.php?rest_route=\/wp\/v2\/posts\/14\/revisions"}],"predecessor-version":[{"id":550,"href":"http:\/\/blog.infinity.idv.tw\/index.php?rest_route=\/wp\/v2\/posts\/14\/revisions\/550"}],"wp:attachment":[{"href":"http:\/\/blog.infinity.idv.tw\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=14"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/blog.infinity.idv.tw\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=14"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/blog.infinity.idv.tw\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=14"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}