JMail - DownloadSingleHeader()
Hejsa!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 & \" (\" & re.Email & \")\" &
Separator
Else
ReCC = ReTo & re.Name & \" (\" & 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?
