Soru Excelde makroyla otomatik mail gönderme

[Seli]

Arkadaşlar merhaba,

Excel ile mail göndermeye çalışıyorum. Amacım excelin olduğu dosyadaki power bı ekini ve exceli göndermesi. Dosyanın ismi değişken tarihe bağlı olarak bu yüzden böyle bir kod yazdım. Yardımcı olursanız çok sevinirim. Şimdiden teşekkür ederiim. Herkese kolay gelsin.

Sub BirdenFazlaDosyayiMailAtma()
    Dim ds, dc, f, s

    Dim Application
    Dim session
    Dim OutApp
    Dim CreateItem
    
    Set OutApp = New outlook.Application
    Set ds = CreateObject("Scripting.FileSystemObject")
    Set f = ds.GetFolder("C:\Users\selcanusta\Desktop\KAPASİTE ANALİZİ\01.02.2021") 'dosyaların bulunduğu yol
    Set dc = f.Files
    
    Set Mail = CreateItem(olMailItem)
    
    Dim myDate As Date
    'Dim dosya As String
 
    myDate = Date
    dosya = "C:\Users\selcanusta\Desktop\KAPASİTE ANALİZİ\01.02.2021\" & myDate

    With NewMail
        .To = "aaa@aaa.com" ' Bu kısıma mail adresi giriniz.
        .Subject = "deneme" ' Bu kısıma konuyu giriniz.
        .Body = Sheets("VERİ AL").Cells(100, 1)
         On Error Resume Next
         For Each dosya In dc
             .Attachments.Add "C:\Users\selcanusta\Desktop\KAPASİTE ANALİZİ\01.02.2021\" & dosya 'dosyaların bulunduğu yol"
         Next
         On Error GoTo 0
        .Display
        '.Send
    End With
End Sub