AspPOP3 > Simpelt script søges...!

Kan du bruge flg. kode.

Set Mailer = Server.CreateObject("POP3svg.Mailer")
Mailer.RemoteHost = "mailhost.localisp.net"
Mailer.UserName  = "myname"
Mailer.Password  = "mypassword"
Mailer.MailDirectory = "d:\usermail\myname"
Mailer.OpenPop3

If Mailer.MessageCount <> 0 then
  intMailCount = Mailer.MessageCount
  intCounter = 0

  While intCounter < intMailCount
    Response.Write Mailer.Date & "<br>"
    Response.Write Mailer.BodyText & "<br><br>"
    intCounter = intCounter + 1
  Loop
Else
  Response.Write "There are no messages on the server."
end if

Microsoft VBScript compilation error '800a040e'

'loop' without 'do'

/xxx/pop3.asp, line 26

Loop
^

Loop -> Wend

Du mener:

Set Mailer = Server.CreateObject("POP3svg.Mailer")
Mailer.RemoteHost = "mail..dk"
Mailer.UserName  = ".dk"
Mailer.Password  = ""
Mailer.OpenPop3

If Mailer.MessageCount <> 0 then
  intMailCount = Mailer.MessageCount
  intCounter = 0

  While intCounter < intMailCount
    Response.Write Mailer.Date & "<br>"
    Response.Write Mailer.BodyText & "<br><br>"
    intCounter = intCounter + 1
  Wend
Else
  Response.Write "There are no messages on the server."
end if

  'Close the connection to the POP3 server
  Mailer.ClosePop3


Det giver mig en blank side med følgende sourcekode:

<br><br><br><br><br><br>

Jeg er 100% sikker på, at der ligger 2 mails i den mailbox jeg connecter til!

Jeg har faktisk aldrig før leget med AspPOP3. Så jeg ved ikke hvordan man henter data fra POP3-server.

Prøv med

Set Mailer = Server.CreateObject("POP3svg.Mailer")
Mailer.RemoteHost = "mail..dk"
Mailer.UserName  = ".dk"
Mailer.Password  = ""
Mailer.OpenPop3

If Mailer.MessageCount <> 0 then
  intMailCount = Mailer.MessageCount
  intCounter = 0

  While intCounter < intMailCount
    Mailer.Retrieve 1
    Response.Write Mailer.Date & "<br>"
    Response.Write Mailer.BodyText & "<br><br>"
    intCounter = intCounter + 1
  Wend
Else
  Response.Write "There are no messages on the server."
end if

  'Close the connection to the POP3 server
  Mailer.ClosePop3

Eller

Set Mailer = Server.CreateObject("POP3svg.Mailer")
Mailer.RemoteHost = "mail..dk"
Mailer.UserName  = ".dk"
Mailer.Password  = ""
Mailer.OpenPop3

If Mailer.MessageCount <> 0 then
  intMailCount = Mailer.MessageCount
  intCounter = 0

  While intCounter < intMailCount
    Mailer.Retrieve intCounter + 1
    Response.Write Mailer.Date & "<br>"
    Response.Write Mailer.BodyText & "<br><br>"
    intCounter = intCounter + 1
  Wend
Else
  Response.Write "There are no messages on the server."
end if

  'Close the connection to the POP3 server
  Mailer.ClosePop3

Hmmm, det giver samme resultat! Men det tyder jo på at den løber While/Wend igennem to gange siden der kommer 6 stk <br> i sovsen!

Har du andre ideer?

--jowns--

Hvad har du prøvet?

Dem begge!

Hmm...

Kun for at teste. Hvad sker der hvis du skriver

Set Mailer = Server.CreateObject("POP3svg.Mailer")
Mailer.RemoteHost = "mailhost.localisp.net"
Mailer.UserName  = "myname"
Mailer.Password  = "mypassword"
Mailer.OpenPop3

Mailer.Retrieve 1
Mailer.ClosePop3

Response.Write Mailer.Date & "<br>"
Response.Write Mailer.BodyText & "<br><br>"

Gæt engang.... så kommer der KUN 3 x <br>

Har du kigget på http://www.serverobjects.com/comp/Asppop3.htm

Ja, og den synes jeg da også er overholdt i dit eksempel...!

Well, ingen svar - jeg lukker!