koşula göre mail atmak

[iskenderozdemir]

Merhaba,

"I" sütunundaki hesaplanmış değerler 0 dan büyük 7 den küçük koşuluna göre ilgili satır ve satırları seçerek mail atmasını istiyorum. Destek olabilir misiniz.

Teşekkür ederim.

 

[Trilenium]

Sub MailGonder()
Dim OutlookApp As Object
Dim OutlookMail As Object
Dim i As Integer
Dim rng As Range
Dim cel As Range
Dim bodyText As String

' Outlook nesneleri oluştur
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)

' 3. satırdan başlayarak I sütununu kontrol et
For i = 3 To Cells(Rows.Count, "I").End(xlUp).Row
If Cells(i, "I").Value > 0 And Cells(i, "I").Value < 7 Then
' G, H ve I sütunlarını seç
Set rng = Union(Cells(i, "G"), Cells(i, "H"), Cells(i, "I"))
bodyText = bodyText & "Satır " & i & ": " & rng.Address & vbCrLf
End If
Next i

' Mail içeriklerini ayarla ve gönder
With OutlookMail
.To = "alici@ornek.com" ' Mail gönderilecek kişi
.Subject = "Özel Koşullu Veri Bildirimi"
.Body = "Belirtilen koşulları sağlayan hücreler:" & vbCrLf & vbCrLf & bodyText
'.Send ' Kullanmak istersen en baştaki tırnak işaretini kaldır
End With

' Temizle
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub

 

[iskenderozdemir]

Günaydın, çok teşekkür ederim Trilenium elinize sağlık, mail atma şartı da olması gerekiyordu bu durumu ifade etmemişim "I" sütununda bir hesaplama var. Hesaplanan değer >=0 ve <=7 koşulu oluştuğunda otomatik gönderme yapabilir miyiz.

 

[iskenderozdemir]

Merhaba,

Birde
Belirtilen koşulları sağlayan hücreler: Satır 3: $C$3,$H$3:$I$3 bu şekilde mail içine yazmış hücre içinde ne yazıyorsa onu getirebilir miyiz.
Tekrar teşekkür ederim

 

[iskenderozdemir]

Teşekkür ederim ilginiz için pitchoute, mail içine metin olarak yazıyor. Ama otomatik olarak mail atmıyor, tarih değiştiğinde "I" sütununda kalan gün sayıları değişmekte. bu hesaplama olduğunda eğer sonuç <=7 olursa otomatik mail atmasını istiyorum. Bunu sitede bulduğum örneklerde farklı
"Private Sub Worksheet_Calculate()
End Sub"
denemelerle yapmaya çalıştım fakat yapamadım. Açık olan diğer dosyalar hesaplama yaptığında bu makroda çalışıyor.
Yardımlarınız için çok teşekkür ederim

 

[iskenderozdemir]

Merhaba pitchoute, Trilenium harikasınız emeğinize sağlık. Çok teşekkür ediyorum. Mükemmel oldu.
İyi günler dilerim.