Outlook ek gönderme uyarısı

[cdmac]

Arkadaşlar Herkese Merhaba,

Outlookta mail gönderirken konu yazılmadan gönderildiğinde
"Bu ileti öğesini konu olmadan mı göndermek istiyorsunuz?"
diye uyarı veriyor.
Bu tarz bir uyarıyı mail gönderilirken mailde ek olmadığında da verdirtebilir miyiz?
"Bu ileti öğesini ek olmadan mı göndermek istiyorsunuz?"
Şeklinde mesela.

 

[necati]

Merhaba,
Mail gönderme için kullandığınız kodu buraya yazar mısınız?

 

[cdmac]

Merhaba,
Mail gönderme için kullandığınız kodu buraya yazar mısınız?

Mail göndermedeki uyarı Outlook' un kendi içindeki kod ile geliyor, ben yazmadım.

 

[necati]

Merhaba,
İleti metninde "ektedir", "ekte sunulmuştur" gibi kelimeler geçiyor fakat iletiye dosya eklenmemiş ise, şu kodu VBA'da ThisOutlookSession sayfasına ekleyin. "Gönder" tuşuna basınca, otomatik kontrol yapıyor. İfadeleri değiştirebilir, çoğaltabilirsiniz.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
If InStr(1, Item.Body, "ektedir", vbTextCompare) > 0 Or InStr(1, Item.Body, "ekte sunulmuştur", vbTextCompare) > 0 Then
If Item.Attachments.Count = 0 Then
answer = MsgBox("Dikkat! ekli olması gereken mailde ek bulunamadı. Göndermek istediğinizden emin misiniz?", vbYesNo)
If answer = vbNo Then Cancel = True
End If
End If
End Sub

 

[cdmac]

Merhaba,
İleti metninde "ektedir", "ekte sunulmuştur" gibi kelimeler geçiyor fakat iletiye dosya eklenmemiş ise, şu kodu VBA'da ThisOutlookSession sayfasına ekleyin. "Gönder" tuşuna basınca, otomatik kontrol yapıyor. İfadeleri değiştirebilir, çoğaltabilirsiniz.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
If InStr(1, Item.Body, "ektedir", vbTextCompare) > 0 Or InStr(1, Item.Body, "ekte sunulmuştur", vbTextCompare) > 0 Then
If Item.Attachments.Count = 0 Then
answer = MsgBox("Dikkat! ekli olması gereken mailde ek bulunamadı. Göndermek istediğinizden emin misiniz?", vbYesNo)
If answer = vbNo Then Cancel = True
End If
End If
End Sub

Yazdıklarını yaptım ama Outlook herhangi bir uyarı vermedi, yine gönderdi maili.

 

[necati]

Kodu "ThisOutlookSession" sayfasına yazdığınızdan emin misiniz? Eğer "ThisOutlookSession" a yazdıysanız çalışmalıydı. "Module" kısmına yazdıysanız otomatik çalışmaz.

 

[Levent Menteşoğlu]

Necati beyin önerdiği koddaki ilk if şartını kaldırıp denerseniz çalışacaktır. İlk if; metin içinde "ektedir" veya "ekte sunulmuştur" ifadelerini arayıp bulamadığında Cancel=true işlemini yapmadan direk e-postayı gönderecektir. Yada ileti içine "ektedir" veya "ekte sunulmuştur" ifadelerini ekleyip deneyebilirsiniz.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
If Item.Attachments.Count = 0 Then
answer = MsgBox("Dikkat! ekli olması gereken mailde ek bulunamadı. Göndermek istediğinizden emin misiniz?", vbYesNo)
If answer = vbNo Then Cancel = True
End If
End Sub

 

[cdmac]

Kodu "ThisOutlookSession" sayfasına yazdığınızdan emin misiniz? Eğer "ThisOutlookSession" a yazdıysanız çalışmalıydı. "Module" kısmına yazdıysanız otomatik çalışmaz.

Necati Bey, dediğiniz gibi "ThisOutlookSession" a yazdım ama çalışmadı kod.

Necati beyin önerdiği koddaki ilk if şartını kaldırıp denerseniz çalışacaktır. İlk if; metin içinde "ektedir" veya "ekte sunulmuştur" ifadelerini arayıp bulamadığında Cancel=true işlemini yapmadan direk e-postayı gönderecektir. Yada ileti içine "ektedir" veya "ekte sunulmuştur" ifadelerini ekleyip deneyebilirsiniz.

Levent Bey, sizin yazdığınız kodu da yazdım yine uyarı vermedi Outlook gönderdi maili.

 

[cdmac]

Levent Bey,

Outlookta güvenlik ayarlarında "Tüm makroları etkinleştir" seçeneğini seçtiğimde sizin yazdığınız kod çalıştı. Makro ayarının bu şekilde kalması sorun olur mu sizce? Makro ayarı en düşük ne olmalı?

Necati Bey,

Sizin yazdığınız kodu da "Tüm makroları etkinleştir" seçeneği ile denedim ama bu şekilde de uyarı gelmedi Outlookta.

Excelde kendi çapımda VBA kullanıyorum ama Outlook' da hatırladığım kadarıyla ilk defa kod kullanıyorum birazda ondan oldu galiba çalışmama durumu.

 

[Korhan Ayhan]

İnceleyiniz.

Microsoft 365 dosyalarında makroları etkinleştirme veya devre dışı bırakma - Microsoft Desteği

Güvenliği geliştirin, makro çalıştırma risklerini değerlendirin ve azaltın ve Microsoft 365 için makroları etkinleştirmeyi veya devre dışı bırakmayı öğrenin.

support.microsoft.com

 

[cdmac]

Necati Bey, Levent Bey ve Korhan Bey,

Hepinize çok teşekkür ediyorum.

İyi çalışmalar.

 

[necati]

Rica ederim size de iyi çalışmalar.