On Error Resume Next
Set cdoMail = CreateObject("CDO.Message")
Set cdoConfig = CreateObject("CDO.Configuration")
Set Flds = cdoConfig.Fields
With Flds
    .Item("http://schemas.microsoft.com/ (...)) = 2 'cdoSendUsingPort
    .Item("http://schemas.microsoft.com/ (...)) = "80.80.80.80"
    .Item("http://schemas.microsoft.com/ (...)) = 10
    .Item("http://schemas.microsoft.com/ (...)) = 587
    .Item("http://schemas.microsoft.com/ (...)) = False
    .Item("http://schemas.microsoft.com/ (...)) = 1
    .Item("http://schemas.microsoft.com/ (...)) = "Svar_Ikke@domain.dk"
    .Item("http://schemas.microsoft.com/ (...)) = "passw0rd" 
    .Update
End With
With cdoMail
Set .Configuration = cdoConfig
    .To = "mig@mitdomain.dk"
    .From = "svar_ikke@domain.dk"
    .Subject = "test"
    .TextBody = "Here is the message"
    .Send
End With
Set cdoMail = Nothing
Set cdoConfig = Nothing
Set Flds = Nothing
If Err Then Response.Write vbCrLf & vbCrLf & "<h1>SendMail Failed</h1>Error code: <strong>" & Err.Number & "</strong>" & vbCrLf & "Error description: " & vbCrLf & "<strong>" & Err.Description & "</strong>"
On Error Goto 0

$EmailFrom = "svar_ikke@domain.dk"
$EmailTo = "mig@mitdomain.dk" 
$Subject = "test"
$Body = "Here is the message" 
$SMTPServer = "80.80.80.80" 
$SMTPClient = New-Object Net.Mail.SmtpClient($SmtpServer, 587) 
#$SMTPClient.EnableSsl = $true 
$SMTPClient.Credentials = New-Object System.Net.NetworkCredential("Svar_Ikke@domain.dk", "passw0rd"); 
$SMTPClient.Send($EmailFrom, $EmailTo, $Subject, $Body)