Mail atma makrosu hak. Yardım

[emrebenn]

Merhaba
Elimde aşağıdaki gibi mai atan bir makro kodu var.Bu kod çalıştıgı zaman maili direkt atıyor.Benim sizden yardımını istedigim konu butona basınca mail atılmadan önce görmek direk atmasın maili göstersin.Yardımınızı rica ederim.

Private Sub CommandButton6_Click()
Dim olapp As Outlook.Application
Set olapp = CreateObject("outlook.Application")
Dim olmail As Outlook.MailItem
Set olmail = olapp.CreateItem(olMailItem)

'olmail.To =
olmail.To = ""
olmail.CC = ""
olmail.Subject = ""
olmail.Body = ""
olmail.Send
Me.CommandButton6.Enabled = False

End Sub

 

[u.L.a.s]

olmail.Send komutunu olmail.Display olarak değiştirirsen direk göndermez göndermek için hazırladığı maili öncelikle gösterir.

 

[emrebenn]

Teşekkür ederim.