Envoi PDF en VBA

' configuration SMTP pour envoi de mail
Public Const MAIL_SENDUSING = 2
Public Const MAIL_AUTHENTICATE = 1
Public Const MAIL_CPT_SENDUSR = "expediteur@gmail.com"
Public Const MAIL_CPT_SENDPASS = "motdepasseexpéditeur"
Public Const MAIL_FROM = "expediteur@gmail.com"
Public Const MAIL_SMTP_SERVER = "smtp.gmail.com"
Public Const MAIL_SMTP_SERVERPORT = 465
 '''""""""""""""""""""""""""""""""""""""""""""""""""""'''
 '
 ' FONCTION : envoyer un mail par SMTP
 ' pstrTo : 1 ou plusieurs destinataire(s)
 ' pstrSubject : objet du mail
 ' pvarAttachFile : 1 ou plusieurs fichiers joints - string ou array de string
 '
 '''""""""""""""""""""""""""""""""""""""""""""""""""""'''
 Public Function SMTPSendMail(pstrTo As String, pstrSubject As String, Optional pvarAttachFile As Variant) As Boolean
 On Error GoTo SMTPSendMail_Err

 Dim i As Long
 Dim objEmail As New CDO.Message
 'Set objEmail = CreateObject("CDO.Message")


 objEmail.From = MAIL_FROM
 objEmail.To = pstrTo
 objEmail.Subject = pstrSubject

 ' Aucun corps de message, uniquement la pièce jointe
 ' laisser un TextBody avec chaine vide, sinon le mail peut planter (pièce jointe incomplète)
    objEmail.TextBody = "By yannpl7"

 ' Ajout de la pièce jointe, 1 ou plusieurs fichiers
 If Not IsMissing(pvarAttachFile) Then
 If IsArray(pvarAttachFile) Then
 ' parcourrir le tableau
 For i = LBound(pvarAttachFile) To UBound(pvarAttachFile)
 objEmail.AddAttachment pvarAttachFile(i)
 Next i
 Else
 
 objEmail.AddAttachment pvarAttachFile

 End If
 End If

 With objEmail.Configuration.Fields
 .Item(CdoConfiguration.cdoSendUsingMethod) = MAIL_SENDUSING
 .Item(CdoConfiguration.cdoSMTPAuthenticate) = MAIL_AUTHENTICATE
 .Item(CdoConfiguration.cdoSendUserName) = MAIL_CPT_SENDUSR
 .Item(CdoConfiguration.cdoSendPassword) = MAIL_CPT_SENDPASS
 .Item(CdoConfiguration.cdoSMTPServer) = MAIL_SMTP_SERVER
 .Item(CdoConfiguration.cdoSMTPServerPort) = MAIL_SMTP_SERVERPORT
 .Item("[http://schemas.microsoft.com/cdo/configuration/smtpusessl]") = "true"
 .Update
 End With
 objEmail.Send

 SMTPSendMail = True
 Exit Function
SMTPSendMail_Err:
 MsgBox Err.Description

 End Function

Sub envoiemail()
Dim result As Variant
Dim file As Variant
file = "C:\repertoiredufichier\" & "Nomdufichier" &  & ".PDF"

result = SMTPSendMail("destinataire@desti.fr", "Titre", file)

End Sub

file = "C:\repertoiredufichier\" & "Nomdufichier" &  ".PDF"