Makro ile Outlook Üzerinden Mail Gönderme

Merhaba,

kls = "C:\Users\selis\Desktop\iş yükü için malzeme durumu\" & myDate & "-MALZEME DURUMU"

Üstteki kısma mı müdahale etmek istediniz?

Evet hocam

Ben yazdıgım excelı eklesın ıstıyorum sadece bu kodda butun excellerı eklıyor dosya ıcındekı

Şuradaki kodları değiştirmeniz gerekir.
For Each ile başlayan ve Next ile biten satırları kaldırıp, dosya.Path yerine eklemek istediğiniz kitap adını ya da kitap adını getirdiğiniz değişkeni yazmanız yeterli olacak @selis

Hocam bu kısmı nasıl yapmam gerekiyor peki ?

Set ds = CreateObject("Scripting.FileSystemObject")
kls = "C:\Users\selis\Desktop\iş yükü için malzeme durumu\" '24.02.2021 dosyasının içinde iki excel ve bir power bi raporu var bunları boş alıyor"
'If Dir(kls) = "" Then MsgBox "Klasor yok": Exit Sub
Set dc = ds.GetFolder(kls).Files

Hocam burda tum dosyaları eklıyor, ben nasıl belirli bir isimdeki exceli ekletebilirim sadece?

Excel adı : 5.07.2021 - Malzeme Durumu