Excel CDO mail (error)

Hej,

Jeg får følgende fejl når jeg prøver at køre scriptet nedenfor.

run.time error ´-2147220973 (80040213)
Transporten kunne ikke oprette forbindelse til serveren.

Nogen som kender løsningen til dette? Jeg har prøvet at ændre porten fra 25 til 465, men det hjalp ikke.

Mvh
Anders


Sub CDO_Mail_Small_Text_2()
    Dim iMsg As Object
    Dim iConf As Object
    Dim strbody As String
    Dim Flds As Variant
   
    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")
   
    iConf.Load -1 ' CDO Source Defaults
    Set Flds = iConf.Fields
    With Flds
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mitbrugernavn"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mitpassword"
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "minsmtpserver"
       
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
        .Update
    End With
   
    strbody = "Hi there" & vbNewLine & vbNewLine & _
    "This is line 1" & vbNewLine & _
    "This is line 2" & vbNewLine & _
    "This is line 3" & vbNewLine & _
    "This is line 4"
   
    With iMsg
        Set .Configuration = iConf
        .To = "minemail"
        .CC = ""
        .BCC = ""
     
        .From = """Anders"" <minemail>"
        .Subject = "Important message"
        .TextBody = strbody
        .Send
    End With
   
End Sub