CDO Formulär — webForum

adeMedlem sedan juli 20041 081 inlägg

Frågan16 nov. 2004 16:41#1

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.

adeMedlem sedan juli 20041 081 inlägg

16 nov. 2004 17:57#2

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