พี่ครับช่วยหน่อยครับ ถ้าจะเขียนโค้ดเช็ด วันที่ ในรายการสินค้าเราถ้าเหลือน้อยกว่า 5 วันให้ส่งเมล์แจ้งเราทำยังไงครับ

   Sub sendmail()
        Dim Mail As New MailMessage()
        Mail.To.Add(New MailAddress("[email protected]"))
        Mail.From = New MailAddress("[email protected]")
        Mail.Subject = "รายการแจ้งแตือน"
        Mail.Body = "รายการทั้งหมด"
        Mail.IsBodyHtml = True

        Dim Smtp As New SmtpClient("127.0.0.1")
        Smtp.DeliveryMethod = SmtpDeliveryMethod.Network
        Smtp.Credentials = New NetworkCredential("Somchai", "12345")
        Smtp.Send(Mail)
        Label1.Text = "Send Mail Done"
    End Sub