VBA smtp mails

    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") = "SMTP Server"  
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25  
            .Update
        End With

    strbody = "Dear Madams," & vbNewLine & vbNewLine & _  
              "please find attached the test order overview." & vbNewLine & vbNewLine & _  
              "Kind Regards" & vbNewLine & vbNewLine & _  
              "test gmbh"  
              


    With iMsg
        Set .Configuration = iConf
        .To = "benutz@test.de;test@benutz.com "  
        .CC = ""  
        .BCC = ""  
        .From = """mir"" <tester@hans.de>"  
        .Subject = "Order "  
        .TextBody = strbody
        .AddAttachment "C:\view.xls"  
        .Send
    End With