Excel de otomatik mail atma

[ssdestek]

Merhaba
sormak istediğim, benim bir kira ve sözleşme tablom var. kira zamanı geldiğinde
otomatik mail atsın, bunu olabiliyorsa makro kullanmadan fonksiyonlarla yapabilirmiyiz,
olamiyorsa makro ile nasıl yapabiliriz?
dosyayı ekliyorum ve burada:,

D SÜTUNUNA YAZACAĞIM EVET VEYA FARKLI BİR KELİMEYİ BAZ ALARAK
E SÜTUNUDA YER ALAN MAİL ADRESLERİNE OTOMATİK MAİL ATSIN.

Teşekkürler,

Saygılarımla,

 

[Necdet]

Merhaba,

Mail göndermeyi makro ile yapabilirsiniz.

Kira zamanının ne zaman geldiğini anlamadığımdan bunu kodlara yansıtmadım.

D sütunu dolu ve E sütununda da e-mail varsa Outlook Express ile mail gönderme örneğini inceleyiniz.

Sub Mail_Gonder()
    Dim i           As Long, _
        j           As Integer, _
        d, _
        Adet        As Integer, _
        msg         As String, _
        HLink       As String, _
        Recipient   As String, _
        Subj        As String

    ' Ron de Bruin
    For i = 3 To Cells(Rows.Count, "A").End(3).Row
    
        If IsEmpty(Cells(i, "D")) = False And Cells(i, "E") Like "*@*" Then
        
            Subj = "NECDET YEŞERTENER - Kira Durumu Bildirimi"
            msg = Cells(i, "A") & "%0A"
            msg = msg & "%0A" & "Kira Başlangıç Tarihi : " & Cells(i, "B")
            msg = msg & "%0A" & "Kira Bitiş Tarihi : " & Cells(i, "C")
            msg = msg & "%0A" & "%0A" & "%0A" & "Necdet YEŞERTENER - [URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
            
            d = Split(Cells(i, "E"), ";")
            For j = 0 To UBound(d)
                Adet = Adet + 1
                Recipient = d(j)
                HLink = "mailto:" & Recipient & "?"
                HLink = HLink & "subject=" & Subj & "&"
                HLink = HLink & "body=" & msg
                ActiveWorkbook.FollowHyperlink (HLink)
                Application.Wait (Now + TimeValue("0:00:01"))
                SendKeys "%s", True
            Next j
            
        End If
        
    Next
    
    MsgBox Adet & " Adet Mail Gönderilmiştir....", vbInformation, "N.YEŞERTENER [URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
End Sub