---
title: "CDONT Mail"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/41930-cdont-mail"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Tenchu"
published: "2002-04-18T06:00:07.000Z"
updated: "2002-04-18T06:00:07.000Z"
replies: 0
views: 233
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/41930-cdont-mail"
---

# CDONT Mail

## #1 — Tenchu, 2002-04-18T06:00Z

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.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/41930-cdont-mail