- Katılım
- 20 Aralık 2019
- Mesajlar
- 34
- Excel Vers. ve Dili
- 2016
- Altın Üyelik Bitiş Tarihi
- 19-08-2021
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.
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.
Kod:
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