Soru Mail Gönderme Sorunu

[mc_exrem]

Merhabalar arkadaşlar

aşağıdaki kod ile çıktı aldığım buton ile aynı zamanda mail göndermek istiyorum ancak çıktıyı veriyor, maili göndermiyor. Sizden ricam Nerde hata yapıyorum bi bakabilir misiniz.
Yardımlarınız için teşekkür ederim.

Sub MailGonder()
Dim OutApp As Object, Outmail As Object
Set OutApp = CreateObject("Outlook.Application")
Set Outmail = OutApp.CreateItem(0)
Outmail.BodyFormat = 2
With Outmail
.To = "genceller@hotmail.com.tr"
.CC = ""
.Subject = "KONTR0L M€RK3Z1"
.Attachments.Add "D:\Şirket Evrakları\1.xlsm"
.Display
.Send 'Göndermek için .send den önceki ' tek tırnak işaretini kaldırın
End With
Set Outmail = Nothing: Set OutApp = Nothing
End Sub
Sub SuzYaz()
Application.DisplayStatusBar = False
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.EnableEvents = False
Kson = Evaluate("=Kson")
bugun = CLng([F3])
adet = WorksheetFunction.CountIf(Range("F4:F" & Kson), bugun)
If adet = 0 Then
MsgBox [F3] & " gününe ait kayıtlı veri yok.", vbCritical
Range("$B$3:$F$3").AutoFilter Field:=5
GoTo 10
Else
Range("$B$3:$F$3").AutoFilter Field:=5, Criteria1:=">=" & CLng(bugun)
ActiveSheet.PageSetup.PrintArea = "$B$1:$G$" & Kson
ActiveSheet.PrintOut Copies:=1, ActivePrinter:="Ne00: üzerindeki P-3025 MFP KX", _
Collate:=True, IgnorePrintAreas:=False
Range("$B$3:$F$3").AutoFilter Field:=5
MsgBox [F3] & " tarihine ait veriler yazıcıya gönderildi.", vbInformation
End If
10:
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.DisplayStatusBar = True
End Sub
Sub sona_git()
Cells(Cells(Rows.Count, "B").End(3).Row + 1, "B").Select
End Sub

 

[mc_exrem]

eskiden yardım eden çok olurdu ama ne değişti anlamadım?