Soru Yaklaşan Tarihe Göre Mail Atma Hakkında;

[edizberk]

Merhaba Arkadaşlar,

Forumda yeni olmakla beraber umarım konuyu yanlış yere açmamışımdır. Bir bakım listesi takip exceli tutuyorum. Bu listede G sütununda başlangıç tarihi ve H sütununda bitiş tarihi yer almaktadır (bitiş tarihi F sütunundaki yıl çarpanına göre hesaplanmaktadır). Buna bağlı olarak K sütununda paket bitiş süresine kaç gün kaldığı yansıtılmaktadır. Forumda yer alan bazı makro örneklerini denemiş olsam dahi maalesef istediğim sonuca ulaşamadım o yüzden bu konuyu açmak zorunda kaldım. Sağlamak istediğim koşul J sütunu boş olduğunda ve K sütunu 15 gün ve altına indiğinde kendime ve ekip arkadaşlarıma hatırlatma amacıyla mail iletmek. Eğer J sütununa veri işlenmişse K sütunu ilgili şartı sağlasa da mail atmasına gerek olmayacaktır.

Konu hakkında bilgisi bulunan arkadaşlarımın desteklerini arz ederim.

 

[edizberk]

Tekrardan Merhaba Arkadaşlar,
Destek olmak isteyebilecek arkadaşlar ve abiler için örnek dosyayı ekte paylaşıyorum.

 

[ÖmerFaruk]

İstediğiniz kod yardımı
1. ilk mesajınızda bahsettiğiniz sorgunun mu oluşturulması?
2. Mailin atılması mı?

 

[edizberk]

İstediğiniz kod yardımı
1. ilk mesajınızda bahsettiğiniz sorgunun mu oluşturulması?
2. Mailin atılması mı?

Ömer Bey,
Öncelikle dönüşünüz için teşekkür ederim. Forumda bulduğum açık kodlarla mail atılmasını bir şekilde sağlayabildim. Ancak mail atılırken aktif olan çalışma sayfasının tümünü mail olarak iletiyor. Sağlamak istediğim tam olarak K sütununda 15 gün ve altını sağlayan satırların hatırlatma olarak mail atılması. Bu konuda yardımcı olabilmeniz mümkün mü?

 

[edizberk]

Tekrardan merhabalar,
Alttaki satırlar ile makroyu bir yere kadar getirebildim. Ancak alttaki gibi yaptığımda tüm tabloyu mail olarak gönderiyor. Nerede hata yaptığımı görebilen var mı? Güncelleme amaçlı güncel dosyayı da ekte paylaşıyorum.

Sub MailGonder()
ActiveSheet.Range("$A$1:$K$116").AutoFilter Field:=3, Criteria1:="<15", _
Operator:=xlAnd
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Dim EmailApp As Outlook.Application
Dim Source As String
Dim myRange As Range
Set myRange = Selection
Set EmailApp = New Outlook.Application
Dim EmailItem As Outlook.MailItem
Set EmailItem = EmailApp.CreateItem(olMailItem)


EmailItem.To = ""
EmailItem.Subject = "Deneme"
EmailItem.HTMLBody = rangetoHTML(myRange)

EmailItem.Send
ActiveSheet.Range("$A$1:$K$116").AutoFilter Field:=3
End Sub

 

[edizberk]

Sorun denemeler ve araştırmalarım sonucunda çözülmüştür. Konuyu kilitleyebilirsiniz.