Excel Takip Listesinden Koşullu Mail Gönderme

[mechaniq]

Merhaba arkadaşlar,
Benim Outlook'dan haftalık otomatik mail göndermem gerekiyor.
Durum şöyle bir takip listem var ekten görebilirsiniz. Bu listenin içerisindeki mail adreslerine yanlarındaki bilgilerle birlikte(Akolonuyla E kolonu arası) otomatik bir mail atmak istiyorum.İçerisine kalıp halinde yazılmış bir mesajda ekleyeceğim.
Benim istediğim konuda şu şekilde:
Koşul:
Sipariş numaraları aynı ise satırları tek bir maile eklesin. (zaten Mail adresi de aynı)
Giriş yaptı kolonu 1 ise onları maile eklemesin.

Bİr de çok ekstrem bir şey ama maili gönderirken teslimat tarihi bugünden geri olanların kırmızı renkte olması mümkün mü?
(Kırmızı renk olayı çok mühim değil olmasa da olur)
Desteğiniz için teşekkürler,

İSTEDİĞİM ÖRNEK MAİL:

Merhaba İlgili Personel,
Aşağıdaki siparişlerimizi kontrol etmenizi rica ederim.
(AŞAĞIDAKİ KISMI EXCEL LİSTESİNDEN ALMASI GEREKIYOR)

Sipariş Numarası Kalem Konfirmasyon Teslimat Tarihi
3213 10 Konf.Number 122-EE 01.09.2013
3213 20 Konf.Number 122-EE 05.04.2013

 

[mechaniq]

Arkadaslar yok mu yardimci olabilecek biri?

 

[mechaniq]

Bu aşağıdaki koda sadece istediğim döngüyü ekleyebilecek birileri yok mu ?

Sub evnOutlookMail()
Dim evnout As Object
Dim evnmailitem As Object
resim = ThisWorkbook.Path & "\christmashappy-newyear.jpg"
For i = 2 To Range("a2").End(4).Row
Set evnout = CreateObject("Outlook.Application")
Set evnmailitem = evnout.CreateItem(0)
With evnmailitem
.Subject = "Mutlu Yıllar - Happy New Year"
.To = Cells(i, "c").Value
.Attachments.Add resim
isim = Cells(i, "a").Value & " " & Cells(i, "b").Value
.htmlBody = "<font name='Vivaldi' size='14'>Sevgili " & isim & "<br><br>" & _
"Yeni yılınızı kutlar,sağlık mutluluk ve başarılar dileriz.<br>" & _
"We wish you wery Christmas and happy new year. <br>" & _
"Wir wünschen Ihnen ein frohes Weihnachtsfest und einen guten Rufsch ins neue Jahr." & _
"Zalig Kerstmis Guliklig Nieuwjaar. Joyeur Noel et Bon Annee.</font>"
.Display ' Bu satırı silin. Kopmle silin, baştaki display ile birlikte...
'.send ' bu satırın başındaki tek tırnağı silin.
'Böylece ekrana almak yerine direkt yollamış olursunuz.
End With
Set evnmailitem = Nothing
Set evnout = Nothing
Next i
i = Empty: resim = vbNullString: isim = vbNullString
End Sub

 

[mechaniq]

yardımlarınızı rica ederim