Hi,

I'm not really good at VBA. I was able to change a macro find on the internet (see below)
I'd like to send multiple attachments. For now, 2 but might be more in the future.
both attachments (PDF file, for now) must be sent to a specific group (TO + CC + BCC). 2 differents files per group
Files paths change every month.
Is that possible to add that in my current macro?

Thanks a lot for your help


Sub Send_email_EOMDocuments()
Dim Email_Address_1 As String
Dim Subject As String
Dim Email_Address_2 As String
Dim CC As String
Dim message As String
Dim filename As String
Dim outlookapp As Object
Dim outlookmailitem As Object
Dim myAttachments As Object
Dim Path As String
Dim lastrow As Integer
Dim Attachment As String
Dim x As Integer

x = 3

Do While Sheet1.Cells(x, 1) <> ""

Set outlookapp = CreateObject("Outlook.Application")
Set outlookmailitem = outlookapp.CreateItem(0)
Set myAttachments = outlookmailitem.Attachments
Path = Sheet1.Cells(x, 5)
Email_Address_1 = Sheet1.Cells(x, 1)
Email_Address_2 = Sheet1.Cells(x, 2)
CC = Sheet1.Cells(x, 3)
Subject = Sheet1.Cells(x, 4)
filename = Sheet1.Cells(x, 6)
Attachment = Path + filename

outlookmailitem.To = Email_Address_1
outlookmailitem.CC = Email_Address_2
outlookmailitem.BCC = CC
outlookmailitem.Subject = Subject
outlookmailitem.Body = "Please find your end of month documents attached "

myAttachments.Add (Attachment)
outlookmailitem.Display
outlookmailitem.send

lastrow = lastrow + 1
Email_Address_1 = ""
x = x + 1

Loop

Set outlookapp = Nothing
Set outlookmailitem = Nothing


MsgBox "All the documents have been sent"

End Sub