MALZEME TESLİM TAKİP DOSYASI

Çok teşekkür ederim elinize sağlık cakarem bey , son bir ricam olacak Gün bilgisine göre Müdüre mail gönderimi yapması gerektiğinde , Malzeme sahibine Mail gönderirken ayrı mail göndermek yerine müdürünü CC ye ekleyerek iş sahibine mail gönderecek şekilde düzenleyebilirmisiniz lütfen.


Dosyanın geldiği günden itibaren
0. GÜN -> Sadece Malzeme sahibine Mail gönderecek
1. GÜN -> Sadece Malzeme sahibine Mail gönderecek
2. GÜN -> Sadece Malzeme sahibine Mail gönderecek
3. GÜN -> Sadece Malzeme sahibine Mail gönderecek

Bu günlerden sonra da ürün sahibine ve Müdüre mail gönderecek. Tabi bu durumda mail gönder dediğinde her seferinde gönderme yapmaması için bir de mail gönderildi gönderilmedi sütunu eklenmesi gerek. Bu nedenle H sütununda ki mesaj içeriği yerine mail kontrol bölümü olarak eklendi.

- Dosya her açılışta F sütununa gün bilgisi otomatik yazılmaktadır.
- Gün bilgisine göre Müdüre mail gönderimi yapılmaktadır.
- H sütunu boşsa mail gönderilmektedir dolu ise, bugün ki tarih ile kıyaslanıp aynı ise mail gönderilmeyecektir. Farklı ise mail gönderimi gerçekleşecektir.

Gün hesabı yapan makro kodu :
Kod:
Private Sub Workbook_Open()
For i = 2 To Sayfa1.Cells(Sayfa1.Rows.Count, "d").End(3).Row
Sayfa1.Cells(i, "f") = Int(Now() - Sayfa1.Cells(i, "d"))
Next i
End Sub

Mail gönderimi yapan makro kodu:
Kod:
Private Sub CommandButton1_Click()
For i = 2 To 2 'Sayfa1.Cells(Sayfa1.Rows.Count, "d").end(3).row
If Sayfa1.Cells(i, 4) <> "" Then
gun = DateDiff("d", Sayfa1.Cells(i, 5), Now)
If CSng(Sayfa1.Cells(i, "f")) < 4 Then
icerik = Sayfa1.Cells(i, 5) & " " & " tarihine kadar almanız gereken malzemeniz bulunmaktadır. " & Abs(gun) & " gün içerisinde almanız gerekmektedir."
Else
icerik = Sayfa1.Cells(i, 5) & " " & " tarihinde alınmamış malzemeniz bulunmaktadır. " & Abs(gun) & " gün geçmiştir. Lütfen malzemenizi alınız."
micerik = Sayfa1.Cells(i, 1) & " adlı kargo sahibi " & Sayfa1.Cells(i, 5) & " tarihinde malzemelerini almamıştır. Bilginize..."
If Sayfa1.Cells(i, 3) <> "" And Format(Sayfa1.Cells(i, "h"), "dd.mm.yyyy") < Format(Now(), "dd.mm.yyyy") Then Call mail(Sayfa1.Cells(i, 3), micerik, "BİLGİLENDİRME") ' müdüre mail gönderecek
End If
If Sayfa1.Cells(i, 2) <> "" And Format(Sayfa1.Cells(i, "h"), "dd.mm.yyyy") < Format(Now(), "dd.mm.yyyy") Then Call mail(Sayfa1.Cells(i, 2), icerik, Sayfa1.Cells(i, "g")) ' müşteriye mail gönderilecek
Sayfa1.Cells(i, "h") = Now
End If
Next i
MsgBox "..:: İşlem tamamlanmıştır... ::..", vbInformation, " BİLGİLENDİRME | ExcelDestek | bY CAKAREM"
End Sub