Microsoft 365 Hotmail.com envoi de mails avec pièces jointes

Sub CDOTRUCMUCHE()
    Dim iMsg As Object, iConf As Object, strbody As String, 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/sendusername") = "tontonLaBidouille@hotmail.com"    'ADAPTE ICI
        '.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        '.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "GMail password"
        '.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.topnet.tn"

        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Update
    End With

    strbody = "bonjour je suis une tete de lard je n'ecoute jamais "

    With iMsg
        Set .Configuration = iConf
        .From = """TON ADRESSE MAIL ICI "    'ADAPTE ICI
        .To = "destinataire @blabla"    'ADAPTE ICI
        .CC = ""
        .BCC = ""

        .Subject = "AVIS A LA POPULASSE "
        .TextBody = strbody
        '.AddAttachment "c:\mondossier\monfichier.pdf" '  'ADAPTE ICI
        .Send
    End With
    Set iMsg = Nothing: Set iConf = Nothing: Set Flds = Nothing
End Sub

Sub CDOTRUCMUCHE()
    Dim iMsg As Object, iConf As Object, strbody As String, 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/sendusername") = "isitel@hotmail.com"    'ADAPTE ICI
        '.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        '.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "GMail password"
        '.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.topnet.tn"

        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Update
    End With

    strbody = "bonjour je suis une tete de lard je n'ecoute jamais "

    With iMsg
        Set .Configuration = iConf
        .From = """isitel@hotmail.com"    'ADAPTE ICI
        .To = "isitel@hotmail.com"    'ADAPTE ICI
        .CC = ""
        .BCC = ""

        .Subject = "pour l'usine à gaz"
        .TextBody = strbody
        .AddAttachment "C:\Users\lionel\Desktop\Dossier isiTel\isiTel1\01 ImmobRdV NF\03 Factures faites\01 classer_envoyer_date\Usine a gaz\usine a gaz facture.pdf" '  'ADAPTE ICI
        .Send
    End With
    Set iMsg = Nothing: Set iConf = Nothing: Set Flds = Nothing
End Sub

Sub CDOTRUCMUCHE()
    Dim iMsg As Object, iConf As Object, strbody As String, 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/sendusername") = "isitel@hotmail.com"    'ADAPTE ICI
        '.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        '.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "GMail password"
        '.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.topnet.tn"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Update
    End With

    strbody = "bonjour je suis une tete de lard je n'ecoute jamais "

    With iMsg
        Set .Configuration = iConf
        .From = "totonlabidouille@hotmail.com"    'ADAPTE ICI
        .To = "isitel@hotmail.com"    'ADAPTE ICI
        .CC = ""
        .BCC = ""

        .Subject = "pour l'usine à gaz"
        .TextBody = strbody
        .AddAttachment "C:\Users\lionel\Desktop\Dossier isiTel\isiTel1\01 ImmobRdV NF\03 Factures faites\01 classer_envoyer_date\Usine a gaz\usine a gaz facture.pdf" '  'ADAPTE ICI
        .Send
    End With
    Set iMsg = Nothing: Set iConf = Nothing: Set Flds = Nothing
End Sub