Mail gönderirken "onay" sorusu sormasın

[jardell]

Herkese selam

Forumda araştırdım fakat net bilgiye ulaşamadım.
"send" komutunu kullandığım zaman "evet" "hayır" ve "yardım" butonlarının olduğu pencere çıkıyor.
Bunun çıkmasını engelleyebilirmiyiz ?

Yardımlarınız için şimdiden teşekkürler

KODLAR :

Sub gonder()
Dim OutApp As Outlook.Application
Dim NewMail As Outlook.MailItem
Set OutApp = New Outlook.Application
Set NewMail = CreateItem(olMailItem)

dsy = ThisWorkbook.Name

With NewMail
.To ="falan@falan"
.Subject = "Günlük Kasa Raporu"
.Body = "Bu e-mail deneme amacıyla gönderilmiştir."
.Attachments.Add "kasa.xls"
.Save
.Send ' bu noktada diyalog penceresi açılıyor!!?? Direkt göndermesini istiyorum
End With

MsgBox (" Günlük Kasa bilgileriniz Muhasebe Bölümüne gönderildi ! ")

Set NewMail = Nothing
Set OutApp = Nothing
End Sub

 

[Evolver]

bildiğim kadarıyla bunun çözümü click yes adında bir programla sağlanmış. yani siz ne yaparsanız yapın onay mesajı çıkıyor bunun önüne geçemiyorsunuz ama click yes adlı programı yüklediğinizde bu onay penceresi açıldığında kendiliğinden ok butonuna basılıyor. click yes şeklinde bi araştırın derim

 

[jardell]

sn Evolver teşekkür ederim.

 

[Evolver]

rica ederim
bende sizin gibi çok gıcık olmuştum bu onay meselesine
eğer microsoft outlook değilde outlook express kullanırsanız onda böyle bir sorun yok

 

[jardell]

Acaba "sendkeys" komutu ile evet tuşuna bastırabilirmiyiz ?

 

[hamitcan]

Linki inceleyin.
http://www.excel.web.tr/showthread.php?t=32465&highlight=outlook+mail+g%F6nderi