Tự động gửi mail thông báo khi đến hạn thanh toán hoặc hết hạn hợp đồng

[hang_tran_hh]

Chào cả nhà.
em muốn theo dõi hợp đồng của các khách hàng, khi sắp hết hạn thì sẽ tự động gửi mail thông báo cho em biết
cả nhà mình có thể giúp giùm e đc k ạh.
Em gửi file đính kèm cho mọi người dễ hiểu ạh.
Em cảm ơn rất nhiều.

 

[hang_tran_hh]

Giúp em với mọi người ơi

 

[snow25]

Chào cả nhà.
em muốn theo dõi hợp đồng của các khách hàng, khi sắp hết hạn thì sẽ tự động gửi mail thông báo cho em biết
cả nhà mình có thể giúp giùm e đc k ạh.
Em gửi file đính kèm cho mọi người dễ hiểu ạh.
Em cảm ơn rất nhiều.

Gửi Mail là sao ta.Mà sắp hết hạn là khi nào.

 

[hang_tran_hh]

Gửi Mail là sao ta.Mà sắp hết hạn là khi nào.

Dạ ví dụ như em có 1 hợp đồng, ngày 15/06/2019 hết hạn, trong file excel em có nhập cột ngày hết hạn ah, thì khoảng trước khi hợp đồng hết hạn 1 tuần thì sẽ tự động tạo 1 mail thông báo cho em biết ah.

Bài đã được tự động gộp: 30/5/19

Gửi Mail là sao ta.Mà sắp hết hạn là khi nào.

Giống kiểu hướng dẫn ở Clip này ah

. Nhưng thật sự mã code nhiều quá, em không nắm kịp, và cũng vì 1phần là e học vẹt thôi, chứ k biết nhiều về VBA ạh.

 

[snow25]

Dạ ví dụ như em có 1 hợp đồng, ngày 15/06/2019 hết hạn, trong file excel em có nhập cột ngày hết hạn ah, thì khoảng trước khi hợp đồng hết hạn 1 tuần thì sẽ tự động tạo 1 mail thông báo cho em biết ah.

Bài đã được tự động gộp: 30/5/19

Giống kiểu hướng dẫn ở Clip này ah

. Nhưng thật sự mã code nhiều quá, em không nắm kịp, và cũng vì 1phần là e học vẹt thôi, chứ k biết nhiều về VBA ạh.

Vậy bạn gửi file lên có mail nào đâu ta.

 

[hang_tran_hh]

Vậy bạn gửi file lên có mail nào đâu ta.

Dạ e xin lỗi vì làm mất thời gian, em gửi lại flie ah. Nếu có thể giúp giùm e nhé. Em cảm ơn rất nhiều ah

 

[snow25]

Dạ e xin lỗi vì làm mất thời gian, em gửi lại flie ah. Nếu có thể giúp giùm e nhé. Em cảm ơn rất nhiều ah

Thế sắp hết hạn.Là khi nào ví dụ trước 10 ngày.Hoặc là đã gửi rồi thì lần sau có gửi nữa không.

 

[hang_tran_hh]

Thế sắp hết hạn.Là khi nào ví dụ trước 10 ngày.Hoặc là đã gửi rồi thì lần sau có gửi nữa không.

Dạ xin lỗi cho e biết em đang nói chuyện với anh hay chị vậy ah. Tại em thấy anh/ chị quá nhiệt tình. ^^.
dạ cho em mail trước 10 hết hạn ( nếu được thì thêm 1 mail vào đúng ngày hết hạn, nếu không có mail này cũng không sao ạh)

 

[snow25]

Dạ xin lỗi cho e biết em đang nói chuyện với anh hay chị vậy ah. Tại em thấy anh/ chị quá nhiệt tình. ^^.
dạ cho em mail trước 10 hết hạn ( nếu được thì thêm 1 mail vào đúng ngày hết hạn, nếu không có mail này cũng không sao ạh)

Bạn thử code này.Nếu đúng ngày thì nó gửi mail nhé.

Sub guithuhethan()
    Dim arr, i As Long
    With Sheets("sheet1")
        arr = .Range("b2:E6").Value2
     For i = 1 To UBound(arr)
        If arr(i, 3) = CLng(Date) Then
      With CreateObject("Outlook.Application")
         .Session.Logon
        With .CreateItem(0)
         .to = arr(i, 4)
         .Subject = "Thong tin tieu de"
         .Body = "Kinh goi anh (chi) " & vbNewLine & vbNewLine _
         & "noi dung dong 1" & vbNewLine _
         & "noi dung dong 2" & vbNewLine _
         & "noi dung dong 3" & vbNewLine _
         & "noi dung dong 4" & vbNewLine & vbNewLine _
         & "Tran Trong" & vbNewLine & vbNewLine _
         & arr(i, 1)
        .Display
      End With
    End With
      End If
   Next i
   End With
End Sub

 

[hang_tran_hh]

Bạn thử code này.Nếu đúng ngày thì nó gửi mail nhé.

Sub guithuhethan()
    Dim arr, i As Long
    With Sheets("sheet1")
        arr = .Range("b2:E6").Value2
     For i = 1 To UBound(arr)
        If arr(i, 3) = CLng(Date) Then
      With CreateObject("Outlook.Application")
         .Session.Logon
        With .CreateItem(0)
         .to = arr(i, 4)
         .Subject = "Thong tin tieu de"
         .Body = "Kinh goi anh (chi) " & vbNewLine & vbNewLine _
         & "noi dung dong 1" & vbNewLine _
         & "noi dung dong 2" & vbNewLine _
         & "noi dung dong 3" & vbNewLine _
         & "noi dung dong 4" & vbNewLine & vbNewLine _
         & "Tran Trong" & vbNewLine & vbNewLine _
         & arr(i, 1)
        .Display
      End With
    End With
      End If
   Next i
   End With
End Sub

Dạ, em cảm ơn rất là nhiều ah.

 

[MinhKhai]

Chào cả nhà.
em muốn theo dõi hợp đồng của các khách hàng, khi sắp hết hạn thì sẽ tự động gửi mail thông báo cho em biết
cả nhà mình có thể giúp giùm e đc k ạh.
Em gửi file đính kèm cho mọi người dễ hiểu ạh.
Em cảm ơn rất nhiều.

Chào bạn
Chắc yêu cầu về gửi email của bạn mới chỉ là ý tưởng chứ bạn chưa làm thực tế (gửi thủ công) vì yêu cầu đưa ra thiếu nhiều thứ cơ bản.
Mình cũng vẫn hay gửi 1 số nhắc nhở về sinh nhật như ý tưởng trên nên chia sẻ file cho bạn.
Nếu bạn muốn nó tự động gửi email nhắc nhở vào 1 giờ nào đó thì kết hợp với Task Scheduler.
Với ý tưởng trong file, bạn có thể tùy biến theo nhu cầu của bản thân
Code mình học hỏi trên diễn đàn nhé chứ cũng không hiểu gì đâu
Chúc thành công

 

[hang_tran_hh]

Chào bạn
Chắc yêu cầu về gửi email của bạn mới chỉ là ý tưởng chứ bạn chưa làm thực tế (gửi thủ công) vì yêu cầu đưa ra thiếu nhiều thứ cơ bản.
Mình cũng vẫn hay gửi 1 số nhắc nhở về sinh nhật như ý tưởng trên nên chia sẻ file cho bạn.
Nếu bạn muốn nó tự động gửi email nhắc nhở vào 1 giờ nào đó thì kết hợp với Task Scheduler.
Với ý tưởng trong file, bạn có thể tùy biến theo nhu cầu của bản thân
Code mình học hỏi trên diễn đàn nhé chứ cũng không hiểu gì đâu
Chúc thành công

Cảm ơn bạn nhiều nhé. Thật sự đó chỉ là ý tưởng chứ mình chưa làm thật, ^^. Mình cũng không hiểu gì về viết code luôn, chủ yếu là xin các ý tưởng của mọi người rồi về áp dụng thôi.
Một lần nữa cảm ơn bạn rất nhiều.