Çözüldü Excelden mail gönderme, her adrese farklı ek (pdf)

Sub Mail()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
    Dim strFile As String
    Dim mm As Worksheet
    Set mm = Sheets("Sayfa1")
    aa = mm.Range("B65536").End(3).Row
    For a = 2 To aa
        Set OutApp = CreateObject("Outlook.Application")
        Set OutMail = OutApp.CreateItem(0)
        On Error Resume Next
        With OutMail
            .To = mm.Range("b" & a).Value
            .CC = ""
            .BCC = ""
            .Subject = mm.Range("c" & a).Value
            .Body = mm.Range("d" & a).Value
            klasoryolu = mm.Range("e" & a).Value
            Set evn = CreateObject("scripting.filesystemobject")
            Set klasor = evn.GetFolder(klasoryolu)
            For Each Dosya In klasor.Files
                .Attachments.Add Dosya.path
            Next
            .Send
        End With
        On Error GoTo 0
        Set OutMail = Nothing
        Set OutApp = Nothing
    Next a
End Sub

        With OutMail
            .To = mm.Range("b" & a).Value
            .CC = ""
            .BCC = ""
            .Subject = mm.Range("c" & a).Value
            .Body = mm.Range("d" & a).Value
            .Attachments.Add mm.Range("e" & a).Value
            .Send
        End With