OveRRidEMedlem sedan feb. 20018 509 inlägg
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.
------------------
Craving for malicious suspection fulfilles the prophesized termination of this world.
[Redigerat av OveRRidE den 17 okt 2001]
[Redigerat av OveRRidE den 17 okt 2001]
@ndersMedlem sedan juni 200026 914 inlägg
Felmeddelande?
------------------
All your base are belong to me.
OveRRidEMedlem sedan feb. 20018 509 inlägg
Oj sorry.. glömde det. :)
jmail.Messages error '8000ffff'
POP3: -ERR No such message
/mjl/Default.asp, line 87
Mysko.
------------------
Craving for malicious suspection fulfilles the prophesized termination of this world.
OveRRidEMedlem sedan feb. 20018 509 inlägg
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.. :(
------------------
Craving for malicious suspection fulfilles the prophesized termination of this world.
@ndersMedlem sedan juni 200026 914 inlägg
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,
------------------
All your base are belong to me.
OveRRidEMedlem sedan feb. 20018 509 inlägg
..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. :)
------------------
Craving for malicious suspection fulfilles the prophesized termination of this world.
OveRRidEMedlem sedan feb. 20018 509 inlägg
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 ;))
------------------
Craving for malicious suspection fulfilles the prophesized termination of this world.
[Redigerat av OveRRidE den 17 okt 2001]
