Send mail med Excel

Jeg har en liste i excel over nogle medlemmer som jeg gerne vil sende mail til automatisk. Jeg har medlemmernes navne, deres emailadresse og en medlemsstatus, som jeg gerne vil sende ved hjælp af vbakode.
Jeg har fundet et eksempel - men når jeg har tilrettet det med mine adresser så kommer der en fejltekst som jeg ikke kan "greje" ;-)


Koden jeg har fundet ser us som herunder...
Jeg håber nogen kan se - eller ved hvad der går galt for jeg får fejlen... "Send vha. " - konfigurationsværdien er ugyldig....

Sub CDO_Mail_Small_Text()
    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/sendusing") = 2
    '        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
    '                      = "Fill in your SMTP server here"
    '        .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 = "test@8560.dk"
        .CC = ""
        .BCC = ""
        .From = """Ron"" <test@8560.dk>"
        .Subject = "New figures"
        .TextBody = strbody
        .Send
    End With

End Sub

Jeg bruger nyeste Excel: 2015/2016