Problem med For-loop

6 svar · 202 visningar · startad av OveRRidE 17 okt. 2001

OveRRidEMedlem sedan feb. 200112 078 inlägg

Trådstart17 okt. 2001 10:59#1

Set pop3 = Server.CreateObject( "JMail.POP3" )

pop3.Connect "mv13210", "xoohoqu", "mail.vegasys.net"

Response.Write( "<font class=text><a href=""inbox.asp"">Du har " & pop3.count & " nya meddelanden i din inbox</a>.</font><br><br>" )

Dim i
i = 0
if pop3.count > 0 then

For i = 0 to pop3.count -1
	Set msg = pop3.Messages.item(i)
	response.write msg.Subject & "<br>"
Next

End If
pop3.Disconnect

Jag försöker alltså loopa igenom de mail jag har i min inbox, dock på failar den på rad 87 (som är den blåa, ovan).. byter jag ut i mot 1 så funkar det, men då visar den ju bara den första så många gånger som det finns olästa mail.

Komponenten är W3 JMail.

@ndersMedlem sedan juni 200032 967 inlägg

17 okt. 2001 11:11#2

Felmeddelande?

OveRRidEMedlem sedan feb. 200112 078 inlägg

17 okt. 2001 11:12#3

Oj sorry.. glömde det.

jmail.Messages error '8000ffff' 

POP3: -ERR No such message 

/mjl/Default.asp, line 87

Mysko.

OveRRidEMedlem sedan feb. 200112 078 inlägg

17 okt. 2001 11:14#4

Jag vet att det finns tre meddelanden i lådan, om inte fler. Så den är inte tom.. det kollar jag ju med pop3.Count och det returnerar 3, så..

Det verkar som om den inte vill käka mitt i bara..

@ndersMedlem sedan juni 200032 967 inlägg

17 okt. 2001 11:15#5

Och om du hårdkodar 2 eller 3 istället för i?

Det kan inte vara så att count-propertien slänger ur sig fel saker?

Mvh,

OveRRidEMedlem sedan feb. 200112 078 inlägg

17 okt. 2001 11:17#6

..så får jag rätt meddelande. Jag fick nämligen subject-raden på det meddelande som kommer från er server när nån svarar i tråden.

OveRRidEMedlem sedan feb. 200112 078 inlägg

17 okt. 2001 11:28#7

Jag fixade det. Det verkade som For-satsen var fel nånstans..

Nu funkar det iaf.

Set pop3 = Server.CreateObject( "JMail.POP3" )

pop3.Connect "mv13210", "xoohoqu", "mail.vegasys.net"

Response.Write( "<font class=text><a href=""inbox.asp"">Du har " & pop3.count & " nya meddelanden i din inbox</a>.</font><br><br>" )

Dim i
i = 0
if pop3.count > 0 then

Do Until i = pop3.count
i = i + 1
	Set msg = pop3.Messages.item(i)
	response.write msg.Subject & "<br>"
Loop

End If
pop3.Disconnect

Do-sats istället för For. (Jag vet.. fy fy )