VBA Send PDF to multiple addresses with different subjects

[Rasmussen]

Hello,

I want the below code to send multiple emails with different subjects, different receivers and attachments.
Any idea how I can do this?

------------------------------------
Sub Multimail()

Set Mail_Object = CreateObject("Outlook.Application")
With Mail_Object.CreateItem(o)
.Subject = Range("A1")
.To = Range("B1")
.Body = "This is a test"
.Attachments.Add "C:\Users\EG\Documents\" & Range("C1").Value & ".pdf"
.Send
End With
End Sub

 

[Logit]

Option Explicit

Sub Send_Email()

    Dim c As Range
    Dim OutLookApp As Object
    Dim OutLookMailItem As Object
    Dim i As Integer
    On Error Resume Next
    
    For Each c In Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row).Cells
        Set OutLookApp = CreateObject("Outlook.application")
        Set OutLookMailItem = OutLookApp.CreateItem(0)
        With OutLookMailItem
                .To = c.Value
                .CC = c.Offset(i, 1).Value
                .Subject = c.Offset(i, 2).Value
                .HTMLBody = c.Offset(i, 3).Value
                .Attachments.Add c.Offset(i, 4).Value
                .Display
                '.Send
        End With
    Next c

End Sub

Download workbook : WORKS Bulk Email w Separate Attachments 2.xlsm

 

[Rasmussen]

Option Explicit

Sub Send_Email()

    Dim c As Range
    Dim OutLookApp As Object
    Dim OutLookMailItem As Object
    Dim i As Integer
    On Error Resume Next
  
    For Each c In Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row).Cells
        Set OutLookApp = CreateObject("Outlook.application")
        Set OutLookMailItem = OutLookApp.CreateItem(0)
        With OutLookMailItem
                .To = c.Value
                .CC = c.Offset(i, 1).Value
                .Subject = c.Offset(i, 2).Value
                .HTMLBody = c.Offset(i, 3).Value
                .Attachments.Add c.Offset(i, 4).Value
                .Display
                '.Send
        End With
    Next c

End Sub

Download workbook : WORKS Bulk Email w Separate Attachments 2.xlsm

Thanks a lot.
Is there some way to show error on specific attachments or validate in another VBA before using this, in case they wasn't found? Now it just comes up with a debug, but nothing specific about which file?