Ich habe folgendes Script gebastelt, da� mir alle Mails aus einem Postfach
in eine Datenbank schrieben sollte:
=== CUT ===
<% @LANGUAGE=VBSCRIPT %>
<%
Set Conn = CreateObject("ADODB.Connection")
Conn.Open Application("strConn")
Set RS = CreateObject("ADODB.Recordset")
RS.Cursortype = 1
RS.LockType = 3
RS.Open "SELECT TOP 1 * FROM SMails", Conn
Set pop3 = Server.CreateObject( "JMail.POP3" )
u = Request("u")
pop3.Connect "test", "test", "xxxxxxxxx"
if pop3.count > 0 then
for ijk=1 to pop3.count
Set msg = pop3.Messages.item(ijk)
ReTo = ""
ReCC = ""
Set Recipients = msg.Recipients
separator = ", "
For i = 0 To Recipients.Count - 1
If i = Recipients.Count - 1 Then
separator = ""
End If
Set re = Recipients.item(i)
If re.ReType = 0 Then
ReTo = ReTo & re.Name & " (" & re.EMail & ")" & separator
else
ReCC = ReTo & re.Name & " (" & re.EMail & ")" & separator
End If
Next
rs.AddNew
rs("Subject") = msg.Subject & " "
rs("von") = msg.From
rs("vonName") = msg.FromName
rs("an") = reTo & ", " & reCC
rs("Datum") = msg.Date
rs("Nachricht") = msg.Body
rs.Update
next
end if
pop3.Disconnect
rs.close
%>
=== CUT ===
Datenbank: SQL-Server 7.0; alle Felder sind (mit Ausnamhe vom Datum) vom Typ
"Text"
Und wo ist das PRoblem: Alle daten werden in die Datenbank geschrieben, nur
der Nachrichtenbody nicht. Mach ich ein "response.write msg.body" wird die
Nachricht jedoch schon angezeigt.
Alles ander pa�t.
Stefan.
| [aspdedatabase] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdedatabase/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdedatabase.asp
