---
title: "CDO Formulär"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/116047-cdo-formulär"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "ade"
published: "2004-11-16T16:41:53.000Z"
updated: "2004-11-16T17:57:15.000Z"
replies: 1
views: 207
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/116047-cdo-formulär"
---

# CDO Formulär

## #1 — ade, 2004-11-16T16:41Z

Hejsan. Håller på lägga till ett fält som heter artikelnr i mitt kontaktscript.

Allt är klart, det ändå som är kvar är vart det ska placeras i mailet, det är då jag behöver hjälp. Så här ser det ut:

```

set mailare = server.CreateObject("CDO.Message")
	mailare.From = ""&epost&""
	mailare.To = mottagare_epost
	mailare.Subject = ""&rubrik&"" 
	html = "<font face='verdana' size='1'>" & Replace(Server.HTMLEncode(Meddelande),vbCrlf,"<br>") &_
	"<br><br><br>------------------------------------------<br><b>Skickades:</b>  " & Now & "<br><b>Namn: </b> "&_
	namn & "<br><b>E-mail: </b> " & epost & "<br>"
	If Len(hemsida) <> 0 then
		html = html & "<b>Hemsida: </b><a href=" & webb & ">" & webb & "</a><br>" 
	End If
	html = html & "------------------------------------------<br></font>"
mailare.HTMLBody = html
mailare.Send
Set mailare = nothing
```

Vart är bäst att placera det?! Hur skriver jag ut det?! 

Har mina små funderingar men är inte säker.

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

## #2 — ade, 2004-11-16T17:57Z

Löste problemet. Tänkte visa hur det blev utifall någon får liknande problem.

```

set mailare = server.CreateObject("CDO.Message")
	mailare.From = ""&epost&""
	mailare.To = mottagare_epost
	mailare.Subject = ""&rubrik&"" 
	html = "<font face='verdana' size='1'>" & Replace(Server.HTMLEncode(Meddelande),vbCrlf,"<br>") &_
	"<br><br><br>------------------------------------------<br><b>Skickades:</b>  " & Now & "<br><b>Namn: </b> "&_
	namn & "<br><b>E-mail: </b> " & epost & "<br>"
	If Len(artikelnr) <> 0 then
	html = html & "Artikelnummer"
	End If
	If Len(hemsida) <> 0 then
		html = html & "<b>Hemsida: </b><a href=" & webb & ">" & webb & "</a><br>" 
	End If
	html = html & "------------------------------------------<br></font>"
mailare.HTMLBody = html
mailare.Send
Set mailare = nothing
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/116047-cdo-formulär