|
wer nennt denn eine jpg-datei .msg ??? der ist dann
selber dran schuld ...
also mein code sieht so aus:
if ((attachmentName = ".msg") OR (attachmentName = "winmail.dat")) then newName =
attachmentName&id
at.SaveToFile( Session("Pfad")&newName ) Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile(Session("Pfad")&newName, 1, True) ausgabe = f.ReadAll f.DeleteFile ( Session("Pfad") & newName ) f.close sql = "UPDATE mails SET Body = " & SQLString(ausgabe) & " WHERE id = '" & id & "'" conn.Execute(sql) else attachmentPfad =
Session("Pfad") & id & "\"
Set fso = CreateObject("Scripting.FileSystemObject") f = fso.CreateFolder(attachmentPfad) f.close at.SaveToFile( attachmentPfad & attachmentName ) On Error Resume Next attachmentSize = at.Size sql = "INSERT INTO attachments VALUES ('"&id&"','"&attachmentName&"','"&user&"','"&attachmentSize&"')" conn.Execute(sql) On Error Goto 0 end if
| [aspdecoffeehouse] als [email protected] subscribed | http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv | Sie k�nnen sich unter folgender URL an- und abmelden: | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp |
Title: Jmail: attachment nicht lesbar - .msg datei
