Merhaba,

Private Sub btnMailGonder_Click()

kodunun altına

on error goto btnMailGonder_hata

kodu ekle,

End Sub

kodunun üstüne de

btnMailGonder_hata:

select case Err.Number

case 4444

msgbox "İşlem İptal Edildi.", vbinformation

case else

msgbox err.number & " " & err.description

end select



exit sub

kodu ekle.

Hayırı tıkladığında çıkan hata kodunu 4444 yerine yaz.