ENVOYÉ UN MAIL VIA OUTLOOK AVEC PIÈCE JOINTE

        emailsubject = InputBox("Indiquer le sujet de votre e-mail", "Sujet du message")   'Demande du sujet du message
        emailmsg = InputBox("Indiquer votre message", "Message")   'Demande du contenu du message
        emaildest = InputBox("Indiquer le destinataire", "Destinataire")   'Demande de l'adresse email
        Dim ObjOutl As Object   'Déclaration des objets
        Dim objSession As Object
            Set ObjOutl = CreateObject("Outlook.Application")   'Création de l'objet Outlook
            Set objSession = ObjOutl.GetNamespace("MAPI")   'Création de l'objet de gestion des message
            Set ObjMessage = ObjOutl.CreateItem(0)   'Ajout d'un item pour le message
            objSession.Logon   'Connection à Outlook
            With ObjMessage
                .To = emaildest
                .CC = ""
                .Subject = emailsubject
                .Body = emailmsg
                .Attachments.Add "c:\toto.txt"
                .Send
            End With

        'Suppression des objets (Vidage)
        Set ObjMessage = Nothing
        objSession.Logoff
        Set objSession = Nothing
        Set ObjOutl = Nothing