VBA pb avec macro d'envoi d'un pdf par email via gmail

Sub email_pdf()

 Dim dossier As String
Dim nomNewClasseur As String
Dim CdoMessage As Object
Dim email As String
Dim Cdo_Message As Object

dossier = Range("A9")
email =Range("E15")
nomNewClasseur = Range("A9") & "-" & Format(Range("F2"), "ddmmyy") & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\\ecap\" & nomNewClasseur, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
  
Set Cdo_Message.Configuration = GetSMTPServerConfig()

    Set CdoMessage = CreateObject("CDO.Message")
    With CdoMessage
        .Subject = "Etat financier de votre dossier"
        .From = "moi@moi.com"
        .To = email
        .cc = ""
        .BCC = ""
        .TextBody = "Vous trouverez ci-joint un état "
        .AddAttachment "C:\Users\recap\" & nomNewClasseur
        .Send
    End With
    
    Set CdoMessage = Nothing


End Sub

Function GetSMTPServerConfig() As Object

Dim Cdo_Config As Object
Dim Cdo_Fields As Object
Dim Cdo_Config As Object

Set Cdo_Fields = Cdo_Config.Fields
With Cdo_Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "smtp.gmail.com"
.Item(cdoSMTPServerPort) = 465
.Item(cdoSendUserName) = "monadresse"
.Item(cdoSendPassword) = "mon paswword"
.Item(cdoSMTPAuthenticate) = cdoBasic
.Item(cdoSMTPUseSSL) = True
.Update
End With
Set GetSMTPServerConfig = Cdo_Config
Set Cdo_Config = Nothing
Set Cdo_Fields = Nothing
End Function
 
End Sub