---
title: "ASP Attachfile script"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/42825-asp-attachfile-script"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Tenchu"
published: "2002-04-30T14:14:47.000Z"
updated: "2002-04-30T20:02:24.000Z"
replies: 4
views: 288
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/42825-asp-attachfile-script"
---

# ASP Attachfile script

## #1 — Tenchu, 2002-04-30T14:14Z

Jag undrar hur jag gör för att kunna bifoga en fil i ett formulär?

Här nedan för sen ni mitt script för att kunna skicka mail från en sida. Allt funkar bra och de, men nu vill jag kunna bifoga en fil.

Skulle verkligen bli glad om ni kan hjälpa mig med detta.

```
<%
Response.Buffer = True
Dim strBody 
Dim objCDOMail 	
Dim strMyEmailAddress 
Dim strCCEmailAddress	
Dim strBCCEmailAddress
Dim strReturnEmailAddress	

strMyEmailAddress = "email@email.com"
strCCEmailAddress = "email@email.com"
strBCCEmailAddress = "email@email.com"

strReturnEmailAddress = Request.Form("Email")
strBody = "<h2>E-mail from website</h2>"
strBody = strBody & "<br><b>Name: <br></b>" & Request.Form("Company") & " <br> " & Request.Form("Name")
strBody = strBody & "<br><br><b>Information: </b>"

If (Request.Form("Service1")) > "" Then 
	strBody = strBody & "<br>  " & Request.Form("Service1")
End If
If (Request.Form("Service2")) > "" Then 
	strBody = strBody & "<br>  " & Request.Form("Service2")
End If
If (Request.Form("Date")) > "" Then
	strBody = strBody & "<br>  " & Request.Form("Date")

End If
strBody = strBody & "<br><br><b>Telephone: </b>" & Request.Form("Number")
strBody = strBody & "<br><b>E-mail: </b>" & strReturnEmailAddress
strBody = strBody & "<br><br><b>Message: </b>" & Request.Form("Message")

If Len(strReturnEmailAddress) < 5 OR NOT Instr(1, strReturnEmailAddress, " ") = 0 OR InStr(1, strReturnEmailAddress, "@", 1) < 2 OR 

InStrRev(strReturnEmailAddress, ".") < InStr(1, strReturnEmailAddress, "@", 1) Then
	strReturnEmailAddress = strMyEmailAddress
End If	

Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = Request.Form("Name") & " <" & strReturnEmailAddress & ">"
objCDOMail.To = strMyEmailAddress
objCDOMail.Cc = strCCEmailAddress
objCDOMail.Bcc = strBCCEmailAddress
objCDOMail.Subject = ""
objCDOMail.BodyFormat = 0
objCDOMail.MailFormat = 0
objCDOMail.Body = strBody
objCDOMail.Importance = 2 
objCDOMail.Send

%>
```

Permalänk: https://www.webforum.nu/p/42825

## #2 — Nickemannen, 2002-04-30T14:55Z

finns under Wf script

Permalänk: https://www.webforum.nu/p/663352

## #3 — Tenchu, 2002-04-30T15:07Z

Alltså, jag behöver ett script som gör att jag kan loada upp filer på ett mail script. 

kolla in: <http://217.208.73.87/clients/tommie/>

På det forumläret vill jag att man ska kunna bifoga en fil och sen skicka mailet till personen så att han/hon kan kolla på den bifogade filen.

Permalänk: https://www.webforum.nu/p/663365

## #4 — mozilla, 2002-04-30T17:34Z

Det beror på vilken mail komponent du använder dig av! Testa och sök här på forumet(på din mail komponent) och du kommer säkert få massor med bra svar!

Permalänk: https://www.webforum.nu/p/663443

## #5 — Tenchu, 2002-04-30T20:02Z

jag använder cdonts mail

Permalänk: https://www.webforum.nu/p/663475

---

Tråden på webben: https://www.webforum.nu/amne/asp/42825-asp-attachfile-script