Jag vill bifoga alla filer som för tillfället ligger i en speciell mapp i ett mail som skickas med Cdont. Jag använder mig av koden:

Dim MyBody
Dim vMail

Set vMail = CreateObject("CDONTS.NewMail")

vMail.From = "anders@evermore.se"
vMail.To = Request.Form("Epost")
vMail.Subject = "Vidarebefodrad offertförfrågan"

'Alla temporärt upplagda filer bifogas
Set MyDirectory = Server.CreateObject("Scripting.FileSystemObject")
Set MyFiles = MyDirectory.GetFolder(NyMapp)

For each filefound in MyFiles.files
vMail.AttachFile filefound.Name
Next

MyBody = Request.Form("Meddelande") & vbCrLf & vbCrLf
MyBody = MyBody & "---------------------------------------" & vbCrLf & "Denna tjänst är en del av Offertservice."

vMail.Body= MyBody
vMail.Send

Set vMail = nothing

Mailet skickas iväg, men ingenting bifogas. Någon som kan hjälpa mig?

Tack
Anders

Är lite osäker på exakt vad filefound.Name returnerar, men prova med att sätta på Server.MapPath

<code>
For each filefound in MyFiles.files
vMail.AttachFile Server.MapPath(filefound.Name)
Next
</code>

filefound.Name returnerar hela filnamnet, ex. testfil.txt

Anders

Prova detta:

For each filefound in MyFiles.files
vMail.AttachFile filefound.Path
Next

cya,
PatrikB