Soru Otomatik mail atma hk. (Yardım)

[ozanylmz]

Merhabalar Değerli Üyeler
Resimdeki gibi 4 farklı makinanın peryodik bakım tarihleri yazılmış.
Bilgisayarımda hergün Saat 9.00 da otomatik olarak bu exceli çalıştıracağım.
İstediğim şey manuel buton koymadan bu tarihlerden hangisinin günü geldiyse bana otomatik mail atması

İnternette manuel buton ekleyip mail attırma var fakat istediğim şey o manuel butona basmadan mail atılması
Yardımcı olabilir misiniz?

 

[Ömer]

Merhaba,

BuÇalışmaKitabı sayfasına kopyalayınız.
Verileriniz D5: Dson aralığında düşünüldü.

Private Sub Workbook_Open()
    
    Dim d As Object, e As Object, h As Range, deger As String, alan As Range
    
    Sheets("Sayfa1").Select
    
    Set d = CreateObject("Outlook.Application")
    Set alan = Range("D5:D" & Cells(Rows.Count, "D").End(xlUp).Row)
    
    For Each h In alan
        If h.Value = Date Then
            deger = deger & vbLf & h.Offset(0, -1) & "  |  " & h.Value
        End If
    Next h
    
    Set e = d.CreateItem(0)
    
    If deger = "" Then deger = "Günü Gelen Bakım Yok"
    
    With e
        .To = "omerbaris@dagtermal.com"
        .Subject = "günü_gelenler"
        .Body = "Merhaba," & vbCrLf & "Günü Gelen Bakımlar : " & vbLf & deger
        .ReadReceiptRequested = False
        .Send
    End With
    
    Set e = Nothing
    Set d = Nothing
    
End Sub

 

[ozanylmz]

Merhaba ekteki makrolu bakım tarihleri isimli dosyada verdiğiniz kodu girdim, deneme yapmak için tarihleride bugünün tarihleri olarak değiştirdim ancak exceli açtığımda mail atmıyor. ( mail kısmına kendi mailimi ekledim denerken). Bu konularda yeni olduğum için detaylı bi açıklama yaparsanız sevinirim.

 

[Ömer]

BuÇalışmaKitabı sayfasına kopyalayınız.

Kodları eklemeniz gereken bölümü belirtmiştim. Module değil bu alana eklemeniz gerekir.