Soru Otomatik mail atma hk. (Yardım)

ozanylmz

Altın Üye
Katılım
30 Haziran 2021
Mesajlar
7
Excel Vers. ve Dili
Office 365
Altın Üyelik Bitiş Tarihi
30-06-2026
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?
1.jpeg
 

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,184
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Merhaba,

BuÇalışmaKitabı sayfasına kopyalayınız.
Verileriniz D5: Dson aralığında düşünüldü.
Kod:
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

Altın Üye
Katılım
30 Haziran 2021
Mesajlar
7
Excel Vers. ve Dili
Office 365
Altın Üyelik Bitiş Tarihi
30-06-2026
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.
 

Ekli dosyalar

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,184
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
BuÇalışmaKitabı sayfasına kopyalayınız.
Kodları eklemeniz gereken bölümü belirtmiştim. Module değil bu alana eklemeniz gerekir.

228803
 
Üst