Sub SendEmail()
Dim OutApp As Object
Dim OutMail As Object
Dim RecipientList As Range
Dim AttachmentPath As String
Dim ManagerEmail As String
' Set the recipient list range containing client email addresses
Set RecipientList = ThisWorkbook.Sheets("Sheet1").Range("A2:A10")
' Set the path of the PDF file(s) to be attached
AttachmentPath = "C:\Path\to\PDF\File.pdf"
' Set the manager's email address for CC
ManagerEmail = "manager@example.com"
' Create Outlook instance
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
' Loop through each recipient and send email
For Each Recipient In RecipientList
With OutMail
' Set the email properties
.To = Recipient.Value
.CC = ManagerEmail
.BCC = ""
.Subject = "Monthly Market Update"
.Body = "Dear Client, please find attached the latest market update."
' Attach the PDF file(s)
.Attachments.Add AttachmentPath
' Send the email
.Send
End With
Next Recipient
' Release the Outlook objects
Set OutMail = Nothing
Set OutApp = Nothing
MsgBox "Emails have been sent successfully."
End Sub