aspSmartMail problem

6 svar · 279 visningar · startad av wborg 15 dec. 2003

wborgMedlem sedan dec. 2003209 inlägg

15 dec. 2003 14:59#1

Hej,

Jag har ett aspSmartMail script som fungerar utmärkt men
vad jag har problem med är själva utformningen av hur
mailet ser ut när man tar emot det.

Jag har följande kod (fungerande):

Set mailare = Server.CreateObject("aspSmartMail.SmartMail")  
	mailare.Server = ""&mailserver&""
	mailare.SenderName = ""&namn&""
	mailare.SenderAddress = ""&epost&""
	mailare.Recipients.Add "name@domain.com", "name" 
	' Ovanstående måste du ändra! Det är väldigt viktigt att du ändrar det, annars funkar inte scriptet!
	mailare.Subject = ""&rubrik&""
	

	html = "<font face='verdana' size='1'>"
	html = Replace(Server.HTMLEncode(Meddelande),vbCrlf,"<br>")
	html = "<br><br><br>"
	html = "------------------------------------------"
	html = "<br>"
	html = "<b>Skickades: </b> " & Now
	html = "<br>"
	html = "<b>Namn: </b> " & namn
	html = "<br>"
	html = "<b>E-mail: </b> " & epost
	html = "<br>"
	If Len(hemsida) <> 0 then
		html = html & "<b>Hemsida: </b><a href=" & webb & ">" & webb & "</a><br>" 
	End If
	html = html & "------------------------------------------"
	html = "<br>"
	html = "</font>"
	mailare.body = ""&html&""
	mailare.Priority = 2
	mailare.ContentType = "text/html" 
	mailare.Charset = "iso-8859-1"
	mailare.SendMail
Set mailare = nothing

Session("kontakta_mig") = "Meddelandet är nu skickat!"
Response.Redirect sida
%>

När jag sen försökte lägga till följande kod så slutade allt att
fungera. (Detta la jag till ovanför [html = ""] )

	html = "<body bgcolor=green>"

Någon som vet hur man ska koda detta för att kunna byta
bakgrundsfärg, lägga till bilder? Mitt mål är att få det att se ut
som ett brevpapper i slutändan.

PalleMedlem sedan apr. 20003 174 inlägg

15 dec. 2003 19:28#2

Ehh.. enligt din kod kommer mailare.body enbart att innehålla .

[red]html = "</font>"[/red]

Antingen får du konkatenera html-variablen eller fylla på med understreck ( _ ) där du byter rad...
annars kommer du inte få med allt det du vill ha i variablen.

wborgMedlem sedan dec. 2003209 inlägg

15 dec. 2003 19:33#3

konkatenera??

Vart menar du att jag bör ha underscore någonstans?
efter alla html rader?

PalleMedlem sedan apr. 20003 174 inlägg

15 dec. 2003 19:36#4

Konkatenera:

[red]html = "text1"
html = html &"text2"
html = html &"text3"
html = html &"text4"[/red]

Radbyte:

[red]html = "text1"&_
"text2"&_
"text3"&_
"text4"[/red]

wborgMedlem sedan dec. 2003209 inlägg

15 dec. 2003 20:07#5

Palle,

du kanske kan svara på detta oxå:

Detta funkar

html = html & "<b>E-mail: </b><a href=" & epost & ">" & epost & "</a><br>"

men inte detta

html = html & "<b>E-mail: </b><a href="mailto:& epost & ">" & epost & "</a><br>"

jag får detta felmeddelande:

Kompileringsfel i Microsoft VBScript fel '800a0400'

Programsats förväntas.

/skicka3.asp, rad 111

html = html & "E-mail: <a href=" & mailto:& epost & ">" & epost & "</a> "
-------------------------------------------------^

Hur får jag till mailto funktionen i denna kod?

Jesper TMedlem sedan nov. 20017 144 inlägg

15 dec. 2003 20:31#6

html = html & "<b>E-mail: </b><a href=""mailto:"& epost & """>" & epost & "</a><br>"

wborgMedlem sedan dec. 2003209 inlägg

15 dec. 2003 20:37#7

Tack Jesper,

väldans massa " där ;)