Mail non reçu, boutton VBA userform

Bonjour à tous, un problème ce présente, l'interface outlook mail s'ouvre mais lorsque j'envoie le destinataire ne reçois jamais le mail.

Pouvez vous m'aider?

Voici mon code :

Private Sub Mail_Click()

On Error Resume Next
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 = "truc" & "_" & Format(Date - 1, "dd_mm_yyyy") & ".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 = ""
        .Cc = ""
        .Attachments.Add (sRep & "\" & sNomFic)
        .Subject = ""
        .Display
    End With

With Application
    .ScreenUpdating = True
    .EnableEvents = True
End With
Kill (sRep & "\" & sNomFic)
End Sub
'Partie envoie du mail Off

Merci d'avance

Aussi si vous pouvez me dire ou changer mes versions excel sur le forum ?

Au boulot j'ai bien excel 2007 mais chez moi je possède la dernière version.

Encore merci d'avance.

Rechercher des sujets similaires à "mail recu boutton vba userform"