09/02/2016, 21:34
direnist
Merhaba;
Konu ile ilgili sitede araştırma yaptım fakat cevap bulamadım. İşyerimde Access üzerinden toplu olarak mail gönderimi yapan bir uygulama hazırladım. Bu güne kadar arkadaşım tarafından sorunsuz olarak kullanıldı. Bugün aynı uygulamayı aynı kullanıcı kullanmak istediğinde her mail gönderimi öncesinde Outlook güvenlik mesajı çıkıyor. Outlook Güven Merkezin den tüm makroları etkinleştir yaptım. Ama yine bu uyarı çıkmaya devam ediyor. Aynı uygulamayı iş yerinde kendi PC imde çalıştırdığımda bana uyarı vermiyor. Outlook Güven Merkezi altındaki Program Erişim seçeneğide biz kullanıcılara kapalı olduğundan ordan ayarlama yapamıyorum.
Mail gönderme kodu olarak aşağıdaki gibi benzer bir kod kullanıyorum. Yani Docmd.SendObject kullanmıyorum. Sanırım Docmd.SendObject kodu içinde bu uyarının çıkmamasını sağlayan bir durum kontrolü var ama belirttiğim gibi ben aşağıdaki kodu kullanıyorum ve bu kod içinde benzer bir durum kontrolü var ise bilgilerinizi rica ediyorum.
Aşağıdaki kodu örnek amaçlı ekledim. Benim kullandığm kod yapısıda bu şekilde.
Teşekkürler. İyi akşamlar. Saygılar.
Konu ile ilgili sitede araştırma yaptım fakat cevap bulamadım. İşyerimde Access üzerinden toplu olarak mail gönderimi yapan bir uygulama hazırladım. Bu güne kadar arkadaşım tarafından sorunsuz olarak kullanıldı. Bugün aynı uygulamayı aynı kullanıcı kullanmak istediğinde her mail gönderimi öncesinde Outlook güvenlik mesajı çıkıyor. Outlook Güven Merkezin den tüm makroları etkinleştir yaptım. Ama yine bu uyarı çıkmaya devam ediyor. Aynı uygulamayı iş yerinde kendi PC imde çalıştırdığımda bana uyarı vermiyor. Outlook Güven Merkezi altındaki Program Erişim seçeneğide biz kullanıcılara kapalı olduğundan ordan ayarlama yapamıyorum.
Mail gönderme kodu olarak aşağıdaki gibi benzer bir kod kullanıyorum. Yani Docmd.SendObject kullanmıyorum. Sanırım Docmd.SendObject kodu içinde bu uyarının çıkmamasını sağlayan bir durum kontrolü var ama belirttiğim gibi ben aşağıdaki kodu kullanıyorum ve bu kod içinde benzer bir durum kontrolü var ise bilgilerinizi rica ediyorum.
Aşağıdaki kodu örnek amaçlı ekledim. Benim kullandığm kod yapısıda bu şekilde.
Teşekkürler. İyi akşamlar. Saygılar.
Kod:
Dim OutApp As Object, OutMail As Object
On Error Resume Next
Set OutApp = GetObject(, "Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = ""
.CC = ""
.BCC = ""
.Subject = "T"
.Body = ""
.Attachments.Add ActiveWorkbook.FullName