"Thomas" <msako@mail.dk> wrote in message news:a049c9$al$1@sunsite.dk...
> Er der nogen der ved hvordan man får CDONTS til at virke under XP
> Jeg har installeret IISèn - hvis jeg tjekker om CDONTS er
> installeret meddeler den at dette ikke er tilfældet??
I IIS 5.1 som er den IIS der bruges i XP har microsoft valgt at fjerne
Collabration Data Objects (Spørg mig ikke hvorfor). Jeg ved ikke om det
automatisk installeres hvis du f.eks. installerer Outlook, men jeg tror det
ikke. Men du kan jo altid finde dig en gammel cdonts.dll og registrere den
på IIS vha.
c:\> regsvr32 cdonts.dll
Men du kan istedet også vælge at gøre sig det har været meningen siden w2k
nemlig at bruge CDOSYS istedet for CDONTS. Et "simpelt" eksempel på at sende
en besked kunne se sådan her ud:
<%
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.domain.dk"
'Her specificeres timeoutlængden til SMTPserveren
..Item("
http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"
) = 10 ' quick timeout
.Update
End With
With objMsg
' Vi sætter nu Configuration parametren på message objectet lig med vores
konfigurations objekt
Set .Configuration = iConf
'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"
'Vi sætter teksten i mailen
.TextBody = "Dette er teksten i bodyen med" & vbcrlf & "linieskift"
.Send
End With
'Vi rydder op
Set objConf = Nothing
Set objMsg = Nothing
%>
Normalt vil man ikke definere sit konfigurationsobject inline men i f.eks.
en Application variabel sådan så dette kan bruges overalt(globalt) i
applicationen.
--
Jakob Andersen