değer 0 ise E posta atma gönderme VBA

[nzmsmz]

İyi geceler arkadaşlar,

ekteki ilettiğim örnek dosya da c sutununda belli rakamlar var.

yapmak istediğim c sutunundaki değer 1 ve üzerinde ise karşısındaki eposta adresine mail atsın eğer değer 0 ise göndermesin. Bununla birlikte e postayı gonderirken A Sütunundaki isim B stunundaki grup ve c sutunundaki sayı yı metin olarak da gonderebileyim. Yani" Ahmet bugun istanbul da toplam adet iniz 9559"

Son olarak da kişiye gönderilen mailin konusunda da sadece B stunundaki grup adı ve c stunundaki rakam yazması gerek. "İSTANBUL - 9559" gibi

https://drive.google.com/file/d/0B9IeOwtua-QoaUdqNVZSQTFxYmM/view?usp=sharing

yardımlarınızı bekliyorum.

 

[Emir Hüseyin Çoban]

. . .

Sub Kod()
    
    With Application
        .EnableEvents = False
        .ScreenUpdating = False
    End With
    
    For i = 2 To Cells(Rows.Count, "A").End(3).Row
        If Cells(i, "C") > 0 Then
            If Cells(i, "D") Like "*" & "@" & "*" Then
                Dim xlOutlook   As Object
                Dim xlMail      As Object
                Set xlOutlook = CreateObject("Outlook.Application")
                Set xlMail = xlOutlook.CreateItem(0)
                
                With xlMail
                    .To = Cells(i, "D").Value
                    .CC = ""
                    .Subject = Cells(i, "B").Value & " - " & Cells(i, "C").Value
                    .Body = Cells(i, "A").Value & ", " & Cells(i, "B").Value & _
                    " toplam adediniz " & Cells(i, "C").Value
                    .Save
                    '.Display
                    .Send
                End With
            End If
        End If
    Next i
    
    Set xlMail = Nothing
    Set xlOutlook = Nothing
    
    With Application
        .EnableEvents = True
        .ScreenUpdating = True
    End With
    MsgBox "B i t t i"
    
End Sub

. . .

 

[nzmsmz]

Hocam ellerine salık çok teşekkürler.