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

Some help please

Expand Messages
  • multitralhas
    Ok, Im lost :-( ... unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Mail2000, StdCtrls; type
    Message 1 of 2 , Oct 15, 2004
    • 0 Attachment
      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
    • Jacky
      multitralhas,ÄúºÃ£¡ Excuse me , I m a chinese, my Englise is poor. Maybe, your mailbox is empty. This is my code:
      Message 2 of 2 , Oct 18, 2004
      • 0 Attachment
        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.