Importmails.asp:
--- cut ---
...
Set att = msg.Attachments
for j=0 to att.Count-1
set at = att(j)
f_id = MakeGUID
Dateiname = at.Name
size = at.size
fneu = "/upload/mail/XXXX." & GetExt(DateiName) [1]
fneu = replace(fneu,"XXXX",f_id)
at.SaveToFile (Server.MapPath(fneu))
x = InsertFile(tMID,f_id,Dateiname,size)
rem jetzt evtl. ein Vorschaubild machen?
if GetExt(Dateiname)="jpg" then
Set Img = Server.CreateObject("AspImage.Image")
Img.LoadImage Server.MapPath("\upload\mail\") & f_id & ".jpg"
ResizedX = 125
ResizedY = (ResizedX / Img.MaxX) * Img.MaxY
if resizedY > 125 Then
ResizedY = 125
ResizedX = (ResizedY / Img.MaxY) * Img.MaxX
end if
Img.ResizeR ResizedX, ResizedY
Img.JPEGQuality = 80
Img.ImageFormat = 1
Img.FileName = Server.MapPath("\upload\mail\_")& F_id & ".jpg"
Img.SaveImage
end if
next
...
--- cut ---
Jetzt ist es so, da� f_id eine GUID ist, die als Dateiname [+
original-Extension, denn sonst kann ich die Dateien nicht
weiterverarbeiten] verwendet werden soll.
[1] Ist der Dateiname zum Beispiel "test.jpg", dann ist der String fneu
in Zeile [1] "/upload/mail/XXXX.jpg"
In Zeile [2] sollte das 'XXXX' durch die GUID ersetzt werden. Also zum
Beispiel durch {B63907C7-598B-450C-B5A6-2ED31E851992}, dann sollte nach
dem replace fneu
"/upload/mail/{B63907C7-598B-450C-B5A6-2ED31E851992}.jpg" sein.
Nun, ist es aber nicht - egal, wie in den String mit der GUID
zusammenbaue, es bleibt nur
"/upload/mail/{B63907C7-598B-450C-B5A6-2ED31E851992}" �ber.
Auch wenn ich verwende:
Fneu = "/upload/mail/" & F_ID & "." & GetExt("text.jpg") --> Fneu =
"/upload/mail/{B63907C7-598B-450C-B5A6-2ED31E851992}" - keine
Dateierweiterung UND KEIN Punkt.
Habe gestern Nacht fast 2 Stunden mit dem Problem verbracht und bim mit
meiner Weisheit am Ende.
Stefan.
_______________________________________________
Coffeehouse mailing list
[EMAIL PROTECTED]
http://www.glengamoi.com/mailman/listinfo/coffeehouse
