Farklı maillere farklı dosyaları mail atma

[muhasebeci1982]

Sayın üstatlar merhabalar. Benim sormak istediğim; bir excel dosyasındaki
mail listesindeki maillere sırayla farklı pdf dosyalarını otomatik mail atılmasıdır.
Örnekleyecek olursak;
1. maile 1.pdf
2. maile 2.pdf
3. maile 3.pdf
4. maile 4.pdf
5. maile 5.pdf
6. maile 6.pdf

isimli pdf dosyalarını yukarıdaki sıralamayla tek tek göndermesi gerekiyor.

Sub SendEmail()
Dim OutApp As Outlook.Application
Dim NewMail As Outlook.MailItem
Set OutApp = New Outlook.Application
Set NewMail = CreateItem(olMailItem)
With NewMail
.To = "falan@filan.com"
.Subject = "Deneme"
.Body = "Bu e-mail deneme amacıyla gönderilmiştir."
.Attachments.Add "C:\1.pdf"
.Save
.Send
End With
Set NewMail = Nothing
Set OutApp = Nothing
End Sub

yukarıdaki makroyla bir seferlik gönderebiliyorum. Ama sırayla tek tek göndermiyor.

örnek dosyalar ektedir. Yardımlarınızı beklerim.Teşekkürler.