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
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