CDO script giver problemer

har nu prøvet dette men får fejl:

error '8004020f'
/untitled.asp, line 20




kode:
<%
Set oMail = Server.CreateObject("CDO.Message")
Set iConf = Server.CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "172.18.1.3"
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
iConf.Fields.Update

Set oMail.Configuration = iConf
oMail.To = "michael@because.dk"
oMail.From = "scandlines@scandlines.dk"
oMail.Subject = "Subject: testing"
oMail.TextBody = "Body: just some message"
oMail.Send
Set iConf = Nothing
Set Flds = Nothing
%>

Jeg tror det handler om at serveren 172.18.1.3 ikke tillader relay af emails, måske fordi dit kald kommer fra en IP der ikke er på listen over tilladte

Når jeg ændrer min To adresse til en Scandlines email virker det og mailen kommer hjem. Er det fordi serveren er opsat 'forkert' ?

point til dig - danielsen

OK

Var det relayindstillingerne det handlede om?

aner det ikke deres it afdeling vil ikke hjælpe. men scriptet virker kun når man sender internt i scandlines. betyder det at det er relayinstillingerne ?

tak for hjælpen!

Det betyder i hvert fald at det er den server du sender via som har problemet.

Med CDO.Message benytter man en såkaldt SMTP server, der opsamler og videreformidler de mails du laver. Du bruger 172.18.1.3, og det har du nok fået at vide af en i it-afdelingen. Hvis de vil have det til at virke må de enten ændre opsætinigen, eller give dig en anden serveradresse der virker. Jeg går udfra at afsendelsen foregår indenfor Scandlines interne net. Du skal sikkert have flyttet det ud hvor de har deres hjemmeside, eller evt. henvise til en SMTP-server der står på deres Web netværk.

Selv tak.