Hỏi code attach file vào Mail OutLook (1 người xem)

[Tường_Vi]

Em xuất/Tạo/Scan debit hóa đơn thành file pdf vào ổ D:\Debit
Ví dụ:
Sub 1. Dòng code xuất file debit ra pdf (ví du xuất 03 file debit ) trong CDSL từ dòng 5 đến dòng 7
....for i = 5 to 7
Trong ổ D:\Debit sẽ có 03 file
Debit001.pdf
Debit002.pdf
Debit003.pdf
Em dùng chương trình novapdf để xuất (in) sheet excel ra Pdf

Sub 2. Dòng code Attach2Outlook (tạoi mail mới & đính kèm file pdf) Như dưới

Sub Attach2Outlook()
    Dim oApp As Object
    Dim oMail As Object
    Dim thanmen As String
   
    Application.ScreenUpdating = False

    Set oApp = CreateObject("Outlook.Application")
    Set oMail = oApp.CreateItem(0)
    With oMail
    
        ' mail adress
         .To = "khachháng@yahoo.com"
         .Cc = "khachhang@yahoo.com"
         'subject mail
         .Subject = "Debit hoa don"
         .Attachments.Add   ' ??????????????????? dung code gì để attach được 03 debit trên
         .body = "Vui lòng xác nhận debit cho chúng tôi"
        .Display  ' de hien thi email outlook, ko co chu nay email qua'i hien thi
    End With

    Application.ScreenUpdating = True
    Set oMail = Nothing
    Set oApp = Nothing
End Sub

Hỏi. Em không biết dùng code như nào để .Attachments.Add có thể đính kèm vào mail 03 debit trên?

.Attachments.Add   ' ??????????????????? dung code gì để attach được 03 debit trên

Giải thích thêm: ví dụ sau khi ta tạo 03 debit trên
Giờ ta lại gửi thêm 02 debit cho khách hàng khác (for i = 10 to 11 trong CSDL) chẳng hạn
sau khi chạy xong sub1 & Sub2 thì debit (tính theo thứ tự thì trong ổ D:\Debit sẽ xuất hiện file
Debit004.pdf
Debit005.pdf

Em xin được hỏi làm sao để phát hiện ra file debit gần nhất mình vừa tạo trong ổ D:\Debit để đính nó vào email?
Cụ thể với lần xuất pdf (lần 2) mình sẽ tạo mail mới, đính kèm Debit004 & Debit005 vào email mới vừa tạo???

Cám ơn các Cao thủ