VBA: Envoyer un email par Gmail avec feuilles en pièces jointes

Sub EnvoyerMail()

Dim i As Integer
Dim NomDeLaFeuille As String
Dim NomDesClasseurs(1 To 11)
Dim ZonePJ As Range
Set ZonePJ = Range("C18:D28")

For i = 18 To 28
    If Not IsEmpty(Range("C" & i)) And Range("D" & i) = "OK" Then
    NomDeLaFeuille = Range("C" & i)
    NomDesClasseurs(i - 15 + 1) = "C:\Documents and Settings\user\Mes documents\" & NomDeLaFeuille & ".xls"
    ThisWorkbook.Sheets(NomDeLaFeuille).Copy
    ActiveWorkbook.SaveAs ("C:\Documents and Settings\user\Mes documents\" & NomDeLaFeuille)
    ActiveWorkbook.Close
    End If

Next i

Call SendMailCDO(NomDesClasseurs)

For i = 1 To 11
    If NomDesClasseurs(i) <> "" Then Kill NomDesClasseurs(i)
Next
ZonePJ.ClearContents

End Sub
 Sub SendMailCDO()


Dim D As String
Dim CC As String
Dim E As String
Dim S As String
Dim T As String

D = Range("C33").Value
CC = Range("C35").Value
E = Range("C15").Value
S = Range("C3").Value
T = Range("C6").Value & Chr(10) & Chr(10) & Range("C9").Value

Dim Cdo_Message As New CDO.Message
Set Cdo_Message.Configuration = GetSMTPServerConfig()
With Cdo_Message
.To = D
.CC = CC
.From = E
.Subject = S
.TextBody = T
For i = 1 To 11
    If NomDesClasseurs(i) <> "" Then .AddAttachment NomDesClasseurs(i)
Next

.send

End With

success = MsgBox(nbmessages & " envoyés avec succès !", vbInformation)

Exit Sub
SMTPSendMail_Err:
    'Gestion des erreurs
    tmp = MsgBox("Erreur lors de l'envoi de votre message." & Chr(10) & "Détails : " & Err.Description, vbCritical)


End Sub

Public Sub SendMailCDO(NomDesClasseurs)