Mail gönderme makrosunda Display kodu çalışmıyor

[manyakbiri]

Değerli üstatlar merhaba,

Aşağıdaki kodu kullanıyorum:

Sub Mail_Gonderme()
   Dim Outlook As Object, yeni As Object, i As Long
   Set Outlook = CreateObject("Outlook.Application")
      Set yeni = Outlook.CreateItem(0)
      With yeni
         .To = Range("M" & 10).Value
         .CC = Range("M" & 11).Value
         .Subject = Range("C" & 7).Value
         .Body = Range("B" & 9).Value
         '.Attachments.Add "Q:\Users\manyakbiri\Desktop\Mask Use.xlsx"
         .Display
         .Send
     End With
   Set Outlook = Nothing: Set yeni = Nothing: i = Empty
End Sub

Bu makroyu gönder tuşuna atadım. Gönder tuşuna bastığım anda maili gönderiyor önce bana göstermiyor. Önce bana göstermesini sağlayan kod Display diye biliyorum. Niçin bana göstermeden atıyor maili acaba?

Yardımlarınızı beklerim.

 

[manyakbiri]

Kendim çözmeden başlık açmak için fevri davranmışım.

Send kodunun önüne tırnak işaret ' koymam gerektiğini şimdi fark ediyorum.

Sorunum çözülmüştür. Kendim sordum kendim cevapladım. Forum yönetimi lütfen kusura bakmasın.

Teşekkürler.