Bouton qui envoi feuiilles par mail

Question

Bonjour le forum comment allez vous ?

j'ai dans mon userform un bouton que je veux configurer dans le but de pouvoir envoyer les feuilles par mails a une personnes bien definie dans avoir a mettre a chaque fois le mail et l'objet.

je ne sais pas quel code utilisé, j'ai ce code ci qui m'ouvre outlook

Private Sub CommandButton6_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 = "FICHE DE STOCK.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 = "djidjidorel3@gmail.com"
        .Cc = ""
        .Attachments.Add (sRep & "\" & sNomFic)
        .Subject = "FICHE DE STOCK"
        .Display
    End With

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

pourtant je veux des que j'appui sur le bouton, les feuilles vont par mail immédiatement a l'adresse mise dans le code

MErci de bien vouloir m'aider

ric · Answer

Si ce qui s'affiche dans Outlook est tout bon et qu'il ne reste que l'envoi lui même ... C'est .Display qui affiche dans Outlook. Remplace par .Send pour l'envoi. ric...