Loading ...
Sorry, an error occurred while loading the content.
 

Re: [tmail2000] Some help please

Expand Messages
  • Jacky
    multitralhas,ÄúºÃ£¡ Excuse me , I m a chinese, my Englise is poor. Maybe, your mailbox is empty. This is my code:
    Message 1 of 2 , Oct 18, 2004
      multitralhas,您好!

      Excuse me , I'm a chinese, my Englise is poor.
      Maybe, your mailbox is empty.
      This is my code:

      =========================================
      var
      I, MailCount: Integer;

      begin
      POP.Host := Host;
      POP.Port := Port;
      POP.Username := User;
      POP.Password := Pass;

      if POP.Connect and POP.Login then
      begin

      MailCount := POP.SessionMessageCount;

      if MailCount > 0 then
      begin

      for I := 1 to MailCount do
      begin
      Application.ProcessMessages;
      POP.RetrieveHeader(I);
      showmessage(Msg.Subject);

      end;

      end;

      end;

      ======= 2004-10-16 06:35:55 您在来信中写道:=======

      >
      >
      >
      >Ok, Im lost :-(
      >
      >Where is my mistake:
      >
      >
      >-------------------------
      >unit Unit1;
      >
      >interface
      >
      >uses
      > Windows, Messages, SysUtils, Variants, Classes, Graphics,
      >Controls, Forms,
      > Dialogs, Mail2000, StdCtrls;
      >
      >type
      > TForm1 = class(TForm)
      > Button1: TButton;
      > POP: TPOP2000;
      > Msg: TMailMessage2000;
      > procedure Button1Click(Sender: TObject);
      > private
      > { Private declarations }
      > public
      > { Public declarations }
      > end;
      >
      >var
      > Form1: TForm1;
      >
      >implementation
      >
      >{$R *.dfm}
      >
      >procedure TForm1.Button1Click(Sender: TObject);
      >
      >begin
      > POP.UserName := 'willistas';
      > POP.Password := '12345';
      > POP.Host := 'mail.pop.com.br';
      > POP.Port := 110;
      > pop.Connect;
      > pop.Login;
      > POP.RetrieveHeader(1);
      > showmessage(msg.Subject);
      >end;
      >
      >end.
      >-----------------------------
      >
      >Someone could help me?
      >
      >Tks
      >
      >Willian
      >
      >
      >
      >
      >
      >
      >
      >
      >------------------------ Yahoo! Groups Sponsor --------------------~-->
      >$9.95 domain names from Yahoo!. Register anything.
      >http://us.click.yahoo.com/J8kdrA/y20IAA/yQLSAA/i7folB/TM
      >--------------------------------------------------------------------~->
      >
      >=============================================================
      >
      >The group's home page is here:
      > http://groups.yahoo.com/group/tmail2000/
      >
      >To post a message:
      > send email to: tmail2000@yahoogroups.com
      > or go here: http://groups.yahoo.com/group/tmail2000/post
      >
      >To modify your subcription options (e.g. stop receiving discussions)
      >go to:
      > http://groups.yahoo.com/mygroups/tmail2000/join or
      > http://groups.yahoo.com/convwiz
      >
      >To subscribe/unsubscribe, send blank email to:
      > tmail2000-subscribe@yahoogroups.com
      > tmail2000-unsubscribe@yahoogroups.com
      >
      >To talk only with the moderator, developer of TMail2000, write email to:
      > mycelo@...
      >
      >Please expect 1-2 weeks for my response.
      >
      >PLEASE POST IN ENGLISH!
      >
      >Yahoo! Groups Links
      >
      >
      >
      >
      >
      >
      >
      >

      = = = = = = = = = = = = = = = = = = = =


              致
      礼!

      ===================================
      Jacky 2004-10-19
      武汉蓝星科技股份有限公司 软件事业部
      Email:webtext@...
      电话:(027)87780188
      地址:武汉市关山三路关东科技园3号
      邮编:430074
      网站:http://www.bluegrid.com.cn
      ===================================
    Your message has been successfully submitted and would be delivered to recipients shortly.