CDONTS.NewMail objektet vil ikke afsende mail

Jeg har tidligere brugt følgende:
  Set email = Server.CreateObject("CDONTS.NewMail")
  email.BodyFormat = 1
  email.MailFormat = 1
  email.To = email
  email.From = "Navn<navn@domæne.dk>"
  email.Subject = "Emne"
  email.Body = body
  email.Send
  Set email = Nothing
Efter jeg har flyttet server, melder den fejl ved linien med "email.Send" og kommer med følgende fejl:
  Microsoft VBScript runtime error '800a0046'

  Permission denied

Kan nogen hjælpe??