Excelde sayfayı mail ile gönderemiyorum

[brkbkl]

Arkadaşlar merhaba,
Arıza formlarını çalışanlardan toplamak için bi excel tablosu yaptım fakat makroyu çalıştıramadım.
Makro manuel olarak çalışıyor(2. görseldeki yerden çalıştıra basınca) fakat buton ile birlikte çalıştırmaya çalıştığımda şu hata ile karşılaşıyorum yardımcı olabilir misiniz?

Dosya > Seçenekler > Güven Merkezi > Güven Merkezi Ayarları > Makro Ayarları > Tüm makroları etkinleştir ve VBA Projesi nesne modeline güven ayarları açık bir şekilde fakat hala bu hatayı alıyorum.

Kullandığım makro bu şekilde.

Sub Send_Mail()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.to = "mail@gmail.com"
.Subject = "Growth Report"
.Body = "Hello Team, Please find attached Growth Report."
.Attachments.Add ActiveWorkbook.FullName
.display
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub

 

[Hepgel]

Merhaba @brkbkl
Sayfadaki düğmeyi silip yenisini ekleyin ve yeni düğmeyle o makroyu ilişkilendirin tekrar denedikten sonra bakalım.

 

[brkbkl]

Merhaba @brkbkl
Sayfadaki düğmeyi silip yenisini ekleyin ve yeni düğmeyle o makroyu ilişkilendirin tekrar denedikten sonra bakalım.

Çok teşekkürler her şeyi silip buton olmadan makro oluşturdum ve o makroyu butona yönlendirince çalıştı.

 

[Hepgel]

Rica Ederim,
İyi Çalışmalar...