Hejsan, jag undrar om ni ser något fel med denna kod:
<%
Response.Buffer = True
Dim strBody
Dim objCDOMail
Dim strMyEmailAddress
Dim strCCEmailAddress
Dim strBCCEmailAddress
Dim strReturnEmailAddress
strMyEmailAddress = "tommie@jetaime.as"
strCCEmailAddress = "tommie@jetaime.as"
strBCCEmailAddress = "tommie@jetaime.as"
strReturnEmailAddress = Request.Form("Email")
strBody = "<h2>E-mail sent from form on Web Site</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><br>" & 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
%>
Problemet är att jag ser inget Message text i mailet.