Xin giúp, tự động gửi mail theo giờ định trước

3 Responses

1. hands says:

   08/12/2023 at 5:32 pm

   Dùng Application.Ontime là đúng rồi
   Muốn không giật giật màn hình thì chắc phải dùng 2 cặp lệnh
   Application.Screenupdating=False
   ……
   Application.Screenupdating=True

   Thưa thầy, em lao vào làm cái gửi mail khi đạt đúng giờ. Vậy té ra là mình không làm được.
   Thầy và các bạn giúp em nốt với ah. Chỉ cần cho em cái code (action nào đó VD msgbox "OK") vào thời gian định trước là được ah. Em cảm ơn nhiều. Dùng ontime cũng được thầy ah, em chấp nhận lag lag. 🙁

   Thấy mấy cái file to đùng thấy ớn quá nên không có tải file.
   Code mẫu thế này. Code này ấn định lúc 17 giờ sẽ kích hoạt 1 Sub khác
   File chứa code phải đang mở thì code mới chạy.

   Sub Go()
   MsgBox "It's time to do it."
   End Sub
   Sub Auto_Open()
   Application.OnTime TimeValue("17:00:00"), "Go"
   End Sub

   Reply
2. hands says:

   08/12/2023 at 5:32 pm

   Thấy mấy cái file to đùng thấy ớn quá nên không có tải file.
   Code mẫu thế này. Code này ấn định lúc 17 giờ sẽ kích hoạt 1 Sub khác
   File chứa code phải đang mở thì code mới chạy.

   Sub Go()
   MsgBox "It's time to do it."
   End Sub
   Sub Auto_Open()
   Application.OnTime TimeValue("17:00:00"), "Go"
   End Sub

   Thưa thầy, em đã làm được gửi mail theo giờ định trước. Nhưng chỉ được 1 lần / 1 lần mở file. Còn nếu em mở file này nhiều ngày thì lại không chạy vào hôm sau.
   Thầy hướng dẫn thêm để em chạy được code ngày qua ngày với ah. Thanks

   1. Không thích cách xưng hô "thầy". Cứ vào các trường, trung tâm mà học rồi thì tha hồ gọi thầy xưng trò. Ở đây tốt nhất là dùng cách xưng hô theo cách xã giao ngoài xã hội.
   2. Dạng code tự động thực thi quái gì gì đó thì file chứa code phải luôn được mở. Chỉ vậy thôi. Muốn nó mở tự động thì cho khởi động tự động khi mở Win. Mình chỉ biết có thế.

   Reply
3. hands says:

   08/12/2023 at 5:33 pm

   1. Không thích cách xưng hô "thầy". Cứ vào các trường, trung tâm mà học rồi thì tha hồ gọi thầy xưng trò. Ở đây tốt nhất là dùng cách xưng hô theo cách xã giao ngoài xã hội.
   2. Dạng code tự động thực thi quái gì gì đó thì file chứa code phải luôn được mở. Chỉ vậy thôi. Muốn nó mở tự động thì cho khởi động tự động khi mở Win. Mình chỉ biết có thế.

   1. OK nhất trí quan điểm. Tuy nhiên thấy hơi bất kính vì chắc Quang Hải sinh năm 1969. Mình thì kém đến hơn 1 giáp
   2. Vấn đề mình muốn hỏi ở đây là file chạy code chỉ 1 lần rồi thôi. Mình đã thử sửa thời gian sau đó đợi nhưng code không chạy thêm nữa khi gặp thời gian đó. Nói nôm na là chắc hôm sau gặp thời gian đó thì code sẽ không chạy vì nó đã chạy 1 lần từ hôm trước rồi. :(. Mong bạn giúp đỡ

   1. Nếu tự cho rằng mình nhỏ tuổi hơn người giúp mình thì cứ xưng hô anh em
   2. Code sửa lại thử thế này

   Sub Go()
   MsgBox "It's time to do it."
   Auto_Open
   End Sub
   Sub Auto_Open()
   Application.OnTime TimeValue("17:00:00"), "Go"
   End Sub

   Reply