tarihe göre mail gönderme

[celofb]

Merhaba arkadaşlar.
Ek dosyamda KDV Ödeme Tarihi ve Mal Bedeli Ödemesi tarihi geldiğinde u4 kolonundaki mail adrese hatırlatıcı olarak nasıl mail (Gerektiğinde U4 sütununda ki mail adresi değiştirebiliyorum.)gönderebilirim.
Yardımcı olacak arkadaşlara şimdiden teşekkürler.

 

[Ömer]

Merhaba,

Buçalışma kitabı kod sayfasına ekleyiniz. Dosyanız açıldığında şarta uyanlar mail olarak iletilir.
Mail sütunu olan U sütunu sabit U4 olarak sabit düşünmedim, her satırın karşısında mail adresi var diye düşündüm. Eğer U4 sabitse;
e.To = S1.Cells(i, "U").Value
yerine
e.To = S1.range("U4").value
yazarsınız.

Private Sub Workbook_Open()
  
    Dim S1 As Worksheet, obj As Object, e As Object, i As Long, d1 As String
  
    Set S1 = Sheets("Sayfa1")

    For i = 4 To S1.[L:M].Find("*", , , , xlByRows, xlPrevious).Row
        Set obj = CreateObject("Outlook.Application")
        Set e = obj.CreateItem(0)
        d1 = ""
        If S1.Cells(i, "L") = Date And S1.Cells(i, "M") = Date Then
            d1 = "Kdv ve Mal Bedeli Ödeme Tarihi Bugün."
        ElseIf S1.Cells(i, "L") = Date And d1 = "" Then
            d1 = "Kdv Ödeme Tarihi Bugün."
        ElseIf S1.Cells(i, "M") = Date And d1 = "" Then
            d1 = "Mal Bedeli Ödeme Tarihi Bugün."
        End If
        If d1 <> "" Then
            e.To = S1.Cells(i, "U").Value 'U4 sabitse sadece S1.range("U4").value yazınız.
            e.Subject = "Hatırlatma"
            e.Body = "Merhaba," & vbCrLf & d1 & vbCrLf & "İyi Çalışmalar."
            e.ReadReceiptRequested = False
            e.Send
        End If
        Set obj = Nothing:  Set e = Nothing
    Next i
      
End Sub

.

 

[celofb]

Merhaba Ömer Bey

Bilgi için teşekkür ederim. Ancak deneme yapmama rağmen mail adresime bir gelmedi .Nerede yanlış yapım çözemedim. Yardımcı olabilirmisiniz.

 

[celofb]

merhaba ömer bey
Sizden yardımınızı rica ediyorum. Benim işeme çok yarayacak bir konu.
Desteğiniz için şimdiden çok teşekkür ederim.

 

[Ömer]

Eklediğiniz dosyadaki tarihleri değiştirip kodu çalıştırdığımda mailler bana geldi. Ben bir sorun yaşamadım.

 

[celofb]

Merhaba
Kodlar çalıştırmak için ne yapmam gerekir.
İkon mu koymam gerekir.

 

[Ömer]

Hayır, kodlar dosya açılışında otomatik çalışıyor. Butonla çalıştırma istiyorsanız; kodları standart bir module kopyalayın ve başlık satırını aşağıdaki gibi değiştirin.

Private Sub Workbook_Open()

yerine

Sub mail_gonder()

gibi. Daha sonra mail_gonder kodunu butona bağlayın.