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
%>