---

Hej NG!

Jeg har et problem med at downloade headers med JMail. Jeg har lavet noget
testkode, som ser således ud:

<!-- #include virtual="/inc-ncomm/db.asp" -->
<%
SQL = "SELECT * FROM Communicate_POPAccounts WHERE UserID = '" &
Session("UserID") & "' AND GoCheck <> 'N';"
Set PopAccount = Conn.Execute(SQL)
Set Pop = Server.CreateObject("JMail.POP3")
Pop.Connect
PopAccount.Fields("POPUser"),PopAccount.Fields("POPPwd"),PopAccount.Fields("
POPServer")
MsgCount = CInt(Pop.Count)
Response.Write("There's " & MsgCount & " message(s) in the mailbox<br><br>")
'Pop.DeleteMessages
'On Error Resume Next
If MsgCount > 0 Then
For a = 1 To MsgCount
Set Msg = Pop.Messages.Item(a)
ReTo = ""
ReCC = ""
Set Recipients = Msg.Recipients
Separator = ", "
For b = 0 To Recipients.Count - 1
If b = Recipients.Count - 1 Then
Separator = ""
End If
Set re = Recipients.Item(b)
If re.reType = 0 Then
ReTo = ReTo & re.Name & "&nbsp;(" & re.Email & ")" &
Separator
Else
ReCC = ReTo & re.Name & "&nbsp;(" & re.Email & ")" &
Separator
End If
MsgHeader = Cint(a)
Next
Response.Write Pop.DownloadSingleHeader(MsgHeader)
Response.Write(MsgHeader & "<br>")
Response.Write("To: " & ReTo & "<br>")
Response.Write("CC: " & ReCC & "<br>")
Response.Write Msg.Body
Response.Write("<hr width='100%' size='1'>")
Next
End If
Pop.Disconnect
Set Pop = Nothing
%>

MsgHeader giver pænt mailnummeret, men Response.Write
Pop.DownloadSingleHeader(MsgHeader) skriver _ikke_ headeren for mailen
alligevel.
Nogen der kan se, hvad jeg gør galt?

---

"Jesper Nielsen" <nospam@nielsenit.dk> skrev i en meddelelse
news:zvCj6.7467$PC4.361285@news010.worldonline.dk...
> Hej NG!
>
>Jeg har et problem med at downloade headers med JMail. Jeg har lavet noget
>testkode, som ser således ud:
>
> <kode>
> MsgHeader = Cint(a)
> Next
> Response.Write Pop.DownloadSingleHeader(MsgHeader)
> Response.Write(MsgHeader & "<br>")
>
> <kode>
>
>MsgHeader giver pænt mailnummeret, men Response.Write
>Pop.DownloadSingleHeader(MsgHeader) skriver _ikke_ headeren for mailen
>alligevel.
>Nogen der kan se, hvad jeg gør galt?

Ja, jeg har fået løst problemet, du skal bruge følgende i stedet:

Set msg = pop.Messages.item(h)
Set Headers = msg.Headers
Response.Write Headers.Text

'Hvis du f.eks. vil kun vil have skreveet afsenderens mailprogram så skal du
bage
bruge følgende linie:

Response.Write Headers.GetHeader("X-Mailer")

Jeg har selv lige siddet og arbejdet hårdt for at få et ligende script til
at virke og
nu er det endelige lykkedes, at få det hele til at virke med både
attacksments,
visning af headers og alt det andet.

Du kan se min scourcekode på følgende side:
http://cht.dk/down/pop3mail.asp

Du også evt. teste det på følgende side:
http://cht.dk/diverse/pop3_form2.asp

Håber det kan bruges!

Mvh. Christoffer Thygesen

homepage: http://cht.dk
e-mail: cht@cht.dk