Makro veya Formul ile Otomatik Dosya Yolu Alma

[MDGFire]

Merhabalar,
Elimde bir veri var ve bu verilerin içeriği şu şekilde,
A - Ad Soyad
B - Mail Adresleri
C - Fatura Numarası
Bu fatura numaralarıyla otomatik köprü oluşturarak ekli olarak toplu mail gönderimi sağlamak istiyorum.
Yardımcı olabilir misiniz ?

 

[MDGFire]

Sub Email_CurrentWorkBook()
Dim Makro As Object
Dim Mail As Object
Set Makro = CreateObject("Outlook.Application")
Set Mail = Makro.CreateItem(0)
On Error Resume Next
With Mail
.To = Range("B").Value
.CC = ""
.BCC = ""
.Subject = "Test Konu"
.Body = "örnektir"
.Attachments.Add ("D")
.Send
End With
On Error GoTo 0
Set Mail = Nothing
Set Makro = Nothing
End Sub
Bu makro ile mail gönderimi sağlamam gerekiyor normalde fakat mail sutununu seçtiğim halde gönderim sağlamıyor, ki ayrı olarak dosya ek dosyanın linkini almama rağmen ekli olarak göndermiyor.