Snasui Excel Forum

สวัสดีค่ะ

ลองทำจากตัวอย่างค่ะ ต้องการให้ระบบส่งเมล์เตือนหลังจากวันที่กำหนด 1 วัน ด้วย VBA แต่ติดว่าไม่เข้าใจเลย จึงไม่ทราบว่าจะต้องทำอย่างไรจึงจะให้ส่งเมล์เตือนได้ ขอความช่วยเหลือค่ะ

ขอบคุณค่ะ
https://www.youtube.com/watch?v=Em4RCvsAV7s&t=328s

ต้องการจะเตือนด้วยข้อมูลจากชีตไหน เซลล์ไหน มีลักษณะเป็นอย่างไร Code ที่แนบมาติดปัญหาที่บรรทัดไหน

กรณีไม่มีความรู้เกี่ยวกับ VBA เลยคงต้องศึกษามาเองก่อนตามลำดับครับ

เรียน อาจารย์สันติพงศ์

ลองปรับมาแต่ยังไม่สำเร็จค่ะ ต้องการจะเตือนจากชีท 4 (data) ที่คอลัมน์ BD อีเมล์จะเตือนนับจากวันจริง today() +1 วันค่ะ เช่น
จากวันเริ่ม 4 ธันวาคม 2561 วัน Due Date คือ 11 ธันวาคม 2561 รวม +7 วัน ถ้าวันที่มากกว่าวันปัจจุบัน ระบบจะเตือนไปที่อีเมล์ตามคอลัมน์ BF ค่ะ

ที่ Private Sub Workbook_Open() ขึ้นสีแดงตรง range
For Each cell In Range (“BD11:BD500”)
Application.Speech.Speak (“Send reminder”)

ที่ Sub SendReminderMail() ตรง .Body ขึ้นสีแดง
.BCC = MailDest
.Subject = “FYI”
.Body = “Reminder”
.Send
End With

ขอบพระคุณค่ะ

กรณี Copy Code มาจาก Internet หรือที่อื่นใดและพบว่า Code มีสีแดงให้เปลี่ยนเครื่องหมาย " (ฟันหนู) ที่ครอบข้อความเสียใหม่ในทุกตำแหน่ง หากแก้ไขถูกต้องข้อความจะไม่เป็นสีแดง นอกจากนี้ควรโพสต์ Code ให้แสดงเป็น Code ดูตัวอย่างได้จากกฎการใช้บอร์ดข้อ 5 ด้านบนครับ

ลองแก้มาก่อนแล้วแจ้งปัญหามาใหม่ครับ

เรียน อาจารย์สันติพงศ์

หลังจากที่แก้ไขเครื่องหมาย " (ฟันหนู) เบื้องต้นตรวจสอบพบว่าแจ้งเตือนได้แล้วค่ะ ขอบคุณมากค่ะ