envoi classeur par mail

Sub Envoyer_mail()
    Dim iMsg As Object
    Dim iConf As Object
    Dim strbody As String
    Dim Flds As Variant
    Dim Z As String
    Z = ActiveWorkbook.Name
    Z = "C:\ " & Z
    ActiveWorkbook.SaveCopyAs Z
    
    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")

'Suivant le PC et le FAI les lignes peuvent être utilisées, bien mettre le bon FAI
        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.orange.fr"  ' mettre le bon FAI
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
            .Update
        End With

    With iMsg
        Set .Configuration = iConf
        .To = "destinataire@fai.fr"         'A
        .From = "expéditeur@fai.fr"       'De
        .CC = "destinataire2@fai.fr"         'CC
        .BCC = "destinataire_n_apparaissant_dans_la_liste@fai.fr"
        .Subject = "Objet"
        .TextBody = "Corps de texte"
        .AddAttachment Z
        .Send        'Envoi le message
    End With
    
    Kill Z 'si besoin suppression du fichier temporaire
End Sub