Envoie d'email avec VB

Option Explicit
'

'Déclaration de constantes
Const PourLecture = 1
Const cteAdresseSource = "monadresse@monserveur.net"


Private Sub cmd_Click(Index As Integer)
' Ici le paramètre signifie que le bouton
' fait partie d'un groupe et l'Index est le no
' du bouton

    If (Index > 0) Then
       
        ' Déclaration de variables
        ' Objet courriel
        Dim objMail As Object
        ' Adresse de destination
        Dim sDestination As String
        ' Nom du fichier en pièce jointe
        Dim sPieceJointe As String
        ' Variable contenant l'objet du courriel
        Dim msgTitre As String
        ' Variable contenant le corps du message
        Dim msgTexte As String
        
        ' Variable boolèen pour savoir si
        ' on doit incluse le texte du fichier
        ' texte dans le corps du message ou
        ' si on doit inclure le fichier en
        ' pièce jointe
        Dim Drapeau As Boolean
    
        ' Instancié un objet "courriel"
        Set objMail = CreateObject("CDO.Message")
        ' Initialisation de la variable
        Drapeau = False
        ' Affectation de l'adresse courriel du destinataire
        sDestination = "destinataire@serveur.net"
        ' Affectation du titre
        msgTitre = "Automatisme"
        ' Affectation du corps di message
        msgTexte = "Bonjour," & vbLf & "Corps du message"
        ' Affectation du nom du fichier incluant sa localisation
        sPieceJointe = "D:\Monfichier.txt"
        ' D'où pièce jointe existe -> Drapeau = Vrai
        Drapeau = True
    
        ' Avec objet courriel
        With objMail
    
            ' Ligne à modifier selon l'adresse de l'envoyeur
            ' Affectation à la propriété [ .From ] de l'adresse
            ' de l'envoyeur
            .From = cteAdresseSource
            ' Idem pour le destinataire
            .To = sDestination
            ' Affectation du titre ( objet du message )
            .Subject = msgTitre
            ' Ligne à modifier selon le texte voulu !
            ' Si pièce jointe existe
            If (sPieceJointe <> "") Then
                ' Si le texte de la pièce jointe doit
                ' être inclus dans le corps - Utilisation de la
                ' fonction [ LirePieceJointe ] qui retourne le
                ' contenu du fichier texte
                If (Drapeau = True) Then
                    .TextBody = msgTexte & vbLf & LirePieceJointe(sPieceJointe) & vbLf
                Else
                    ' Sinon spécifié qu'il est inclu en pièce jointe
                    ' dans le corps du message
                    .TextBody = msgTexte & vbLf & "Pièce jointe incluse : " & vbLf
                End If
            Else
                ' Sinon spécifié dans le corps qu'il n'y a pas de pièce jointe
                .TextBody = msgTexte & vbCrLf & "Aucune Pièce jointe" & vbCrLf
            End If
            ' Ligne à modifier selon l'adresse du serveur SMTP
            ' Ici "smtp.serveur.net" doit correspondre à votre FAI
            ' exemple : [ smtp.free.fr ]
            .Configuration.Fields _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.serveur.net"
            ' Aucune modification à cette ligne
            .Configuration.Fields _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

            ' Aucune modification à cette ligne
            .Configuration.Fields.Update
    
            ' Si on veut inclure le fichier en pièce jointe
            If ((sPieceJointe <> "") And (Drapeau = False)) Then
                objMail.AddAttachment (sPieceJointe)
            End If
            ' Envoyer le message
            .Send
        End With
    
        ' Libération de l'objet instancié
        Set objMail = Nothing
    
        MsgBox "Courriel envoyé !"
    Else
        ' Fermeture de la forme pour envoi de courriel
        Unload Me
    End If

End Sub
'

'  Ici la fonction n'étant pas typé, elle est de type Variant
' et peut retourner a peu près n'importe quoi.
Function LirePieceJointe(LeFichier)

    Dim objFSO, CeFichier

    ' Instancié un objet du système de fichier
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    ' Si le fichier existe
    If (objFSO.FileExists(LeFichier)) Then
        ' Instancié un poignée sur le fichier pour l'ouvrir ( une main sur )
        Set CeFichier = objFSO.OpenTextFile(LeFichier, PourLecture)
        ' Lire tout le contenu du fichier
        LirePieceJointe = CeFichier.ReadAll
        ' Fermer le fichier
        CeFichier.Close
        ' Libérré l'objet du fichier
        Set CeFichier = Nothing
    End If
    
    ' Libérré l'objet du système de fichier
    Set objFSO = Nothing

End Function
'