6 svar · 282 visningar · startad av wborg
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 = "<font face='verdana' size='1'>"] )
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.
/S
Ehh.. enligt din kod kommer mailare.body enbart att innehålla </font>.
[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.
Konkatenera:
[red]html = "text1"
html = html &"text2"
html = html &"text3"
html = html &"text4"[/red]
Radbyte:
[red]html = "text1"&_
"text2"&_
"text3"&_
"text4"[/red]
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 & "<b>E-mail: </b><a href=" & mailto:& epost & ">" & epost & "</a><br>"
-------------------------------------------------^
Hur får jag till mailto funktionen i denna kod?
/S
html = html & "<b>E-mail: </b><a href=""mailto:"& epost & """>" & epost & "</a><br>"
