CDONTS & XP

[Thomas]

Hej

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??

Hilsen

Thomas

--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP ???
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

[Jakob Andersen]

"Thomas" <ms...@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"" <ja...@effectus.dk>"

'Vi sætter afsenderen
.From = """En adresse"" <e...@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

[Jakob Andersen]

"Jakob Andersen" <ja...@effectus.dk> wrote in message
news:a054ok$2eog$1...@news.cybercity.dk...

> '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"

Vær opmærksom på de knækkede linie ....

--
Jakob Andersen