Delete pop3 email?

Hejsa, jeg bruger komponenten AspPOP3 og denne kode:

If Mailer.GetPopHeaders Then
Headers = Mailer.MessageInfo
  For intMailCount = 0 to UBound(Headers)
  strMsgNr = Headers(intMailCount)(0)
  strMsgSubject = Headers(intMailCount)(1)
  strMsgDate = Headers(intMailCount)(2)
  strMsgFromName = Headers(intMailCount)(3)
  strMsgFromMail = Headers(intMailCount)(4)
  strMsgToName = Headers(intMailCount)(5)
  strMsgToMail = Headers(intMailCount)(6)
  strMsgSize = Headers(intMailCount)(7)
  strMsgStatus = Headers(intMailCount)(8)
  i = i+1
  Mailer.RetrieveToMemory intMailCount+1
  strBody = Mailer.BodyText
  strNewBody = mid(strBody, 3, 16)
  tpost = cint(mid(strNewBody, 1, 2))
  tflag = cint(mid(strNewBody, 4, 2))
  ltemp = cint(mid(strNewBody, 7, 2))
  vtemp = cint(mid(strNewBody, 10, 2))
  textr = cint(mid(strNewBody, 13, 2))
  response.write "<table>"
  Response.Write "<tr><td>" & strMsgNr & "</th>"
  Response.Write "<td>Dato: " & ConvertPop3Date(strMsgDate) & "</td>"
  Response.Write "<td>Tid: " & ConvPop3Date2Time(strMsgDate) & "</td>"
  Response.Write "<td>#" & tpost & "</tr>"
  Response.Write "<td>#" & tflag & "</tr>"
  Response.Write "<td>#" & ltemp & "</tr>"
  Response.Write "<td>#" & vtemp & "</tr>"
  Response.Write "<td>#" & textr & "</tr>"
  Response.Write "</table>"
Next
end if

Så er mit spørgsmål: Hvordan sletter jeg den aktuelle email efter hvert gennemløb?

--jowns--