使用sakemail控件如何删除邮件？(100分)

H

heiniu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-30

• #1

我用sakpop控件发邮件时想删除服务器上的邮件，用了以下语句，但显示了
'sakpop1 not connected'的错误，请问该如何解决
for i := sakpop1.MsgsCount downto 1 do
sakpop1.DeleteMessage(i);

 

M

maming

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-30

• #2

sakpop先connected不就行了吗？

 

S

scorpions

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-30

• #3

用
for i:=sakpop1.msgscount-1 downto 0 do
sakpop1.DeleteMessage(i);
就可以了， 信件数量是从0到第sakpop1.msgscount-1

 

S

scorpions

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-30

• #4

对了删除邮件前先连接，
pop.Host:=host1;
pop.UserId:=user1;
pop.UserPasswd:=passwd1;
pop.Connect ;
pop.Login ;
pop.Init ;
pop.DeleteMessage(s);
pop.Quit ;

 

H

heiniu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-30

• #5

多人接受答案了。