[ASP] CDOSYS werkt niet

[user109731]

Dag,

ik ben sinds kort van CDonts overgestapt op CDOSYS, op advies van m'n hoster (CDonts werkte niet meer). Die zei dat CDonts niet meer ondersteunt wordt door Microsoft, en ik dus beter CDOSYS kon gebruiken. Nu heb ik dus gegoogled op CDOSYS ed, en ik vond wat voorbeeld-code.
Na wat aanpassingen heb ik het volgende:

code:

<% 
Dim Message, Config 

set Message = Server.CreateObject("CDO.Message") 
set Config = Server.CreateObject("CDO.Configuration") 

naam = "test"
voornaam = "test"

strEmailBody = "Naam: " & naam & vbCRLF 
strEmailBody = strEmailBody & "Voornaam: " & voornaam & vbCRLF 

Message.From = "[e-mail]"
Message.To = "[e-mail]" 
Message.Subject = "Onderwerp" 
Message.TextBody = "Test" 
Config.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
Message.Configuration = Config 
Message.Send 

Set Message = nothing 
%>

Ik krijg een fout mbt sendUsing. (invalid value) Ik heb al met Google gezocht, maar ik vind geen bruikbare resultaten (dit kan ook aan mij liggen)

Weten jullie wat ik met SendUsing aan moet?

[ Voor 10% gewijzigd door user109731 op 25-06-2004 15:51 ]

[4of9]

dit zou moeten werken

code:

Set objMail = Server.CreateObject("CDO.Message") 
        set iConf = CreateObject("CDO.Configuration")
        Set Flds = iConf.Fields
        Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 

Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "jou smtp server"
        Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
        Flds.Update
set objMail.Configuration = iconf

[ Voor 23% gewijzigd door 4of9 op 25-06-2004 15:55 ]

[user109731]

Ik ga direct kijken! Thanks iig.