Sub fnCDO_Mail(strAdress As String, strFP As String, strName As String)
    Dim iMsg As Object
    Dim iConf As Object
    Dim Flds As Variant

    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")

        iConf.Load -1
        Set Flds = iConf.Fields
        With Flds
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "********"
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
            .Update
        End With

    With iMsg
        Set .Configuration = iConf
        .To = strAdress
        .CC = ""
        .BCC = ""
        .FROM = """Иван"" <ivan@ivan.ru>;"
        .Subject = strFP
        .TextBody = "Привет!"
        .AddAttachment strName & ".xls"
        .Send
        
    End With

End Sub