"René Hollen Pedersen" <rhpe00@i4.auc.dk> skrev i en meddelelse
news:a9glg6$2vl$1@sunsite.dk...
> Tak for svaret det virker næsten. Er det ikke muligt at sende mail som
html.
Jeps se nedenstående eksempel (fandt en fejl i mit forrige):
<%
Option Explicit
'Vi definerer message objektet
Dim objMsg
Set objMsg = Server.CreateObject("CDO.Message")
'Vi definerer Konfigurationsobjektet som indeholder
'oplysninger om f.eks. mailserver
Dim objConf
Set objConf = Server.CreateObject("CDO.Configuration")
'Vi læser alle indstillingerne fra konfigurationsobjektet over i
'en collection
Dim ConfFields
Set ConfFields = objConf.Fields
With ConfFields
'Her specificeres hvordan mailen sendes. Vi vælger 2 for at sende igennem en
port og ikke f.eks. exchange
.Item("
http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Her specificeres SMTPserverens navn
.Item("
http://schemas.microsoft.com/cdo/configuration/smtpserver") =
"mail.domæne.dk"
'Her specificeres timeoutlængden til SMTPserveren
..Item("
http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"
) = 10 ' Hurtig timeout
.Update
End With
With objMsg
' Vi sætter nu Configuration parametren på message objectet lig med
voreskonfigurations objekt
Set .Configuration = objConf
'Vi sætter modtageren
.To = """Jakob Andersen"" <jakob@effectus.dk>"
'Vi sætter afsenderen
.From = """En adresse"" <en@adresse.dk>"
'Vi sætter emnet
.Subject = "Dette er emnet"
''''''''''''''''''' Du kan her nedenunder bestemme om det skal være HTML
eller ren tekst ''''''''''''''''''
'Vi sætter teksten i mailen som HTML
.HTMLBody = "<span style=""background-color:yellow;"">Dette er teksten i
bodyen med <br> linieskift</span>"
'Vi sætter teksten i mailen som Tekst
'.TextBody = "Dette er teksten i bodyen med & " vbcrlf & " linieskift"
.Send
End With
'Vi rydder op
Set objConf = Nothing
Set objMsg = Nothing
%>