Erreur lors de l'envoi de mail

Bonjour comment allez

j'ai ajouté un bouton a mon userform me permettant d'envoyer par mail

j'ai un probleme lors de la configuration (photo en piece jointe)

Comme serveur de messagerie j'ai mis Gmail . on me dit qu'il y a erreur, je ne sais pas quoi rentrer a ce niveau la

Voici mon code

Private Sub CommandButton13_Click()
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim Sourcewb As Workbook
Dim destwb As Workbook
Dim TempFilePath As String
Dim TempFileName As String
Dim OutApp As Object
Dim OutMail As Object
Dim S As Shape
Dim sNomFic As String, sRep As String, WshShell As Object

With Application
    .ScreenUpdating = False
    .EnableEvents = False
End With

' Créer une instance Windows Script pour retrouver le chemin du bureau
Set WshShell = CreateObject("WScript.Shell")
sRep = WshShell.SpecialFolders("Desktop")
Set WshShell = Nothing
' Définit le nom du fichier à enregistrer
sNomFic = "Nom à définir.pdf"
' Enregistrer la feuille en PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sRep & "\" & sNomFic, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Set OutApp = CreateObject("outlook.application")
Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .To = "adresse@mail.fr"
        .Cc = ""
        .Attachments.Add (sRep & "\" & sNomFic)
        .Subject = "Sujet à définir"
        .Display
    End With

With Application
    .ScreenUpdating = True
    .EnableEvents = True
End With
Kill (sRep & "\" & sNomFic)

End Sub

Bonjour,

Ton code fait appel à outlook, et ta copie d'écran mentionne gmail !!

Quelle est ta messagerie ?

mon mail est un mail gmail.

je pensais que je pouvais mettre toutes sortes d'adresse electronique

Ceci est spécifique outlook

Set OutApp = CreateObject("outlook.application")

Utilise CDO ... voir code ici https://forum.excel-pratique.com/viewtopic.php?f=2&t=137588

Il faudra demander des autorisations à google ... c'est discuté là aussi.