Hi
.Attachments.Add has to be added to each file to be attached
Try this as per below
Sub email()
Dim OutMail As Object
'send email
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = ThisWorkbook.Sheets("Sheet1").Range("K10") '
.Subject = "Black Monthly Reports"
If ThisWorkbook.Sheets("Sheet1").Range("H12").Value = "E" Then
.Attachments.Add "C:\Users\arazaq\Documents\Black\European Equity Index GBP June 2019.pdf "
.Attachments.Add "C:\Users\arazaq\Documents\Black\North American Index GBP June 2019.pdf"
ElseIf ThisWorkbook.Sheets("Sheet1").Range("H12").Value = "ENAP" Then
.Attachments.Add "C:\Users\arazaq\Documents\Black\Continental European Equity Index Fund (UK) Class L ACCU GBP June 2019.pdf"
.Attachments.Add "C:\Users\arazaq\Documents\Black\iShares North American Equity Index Fund (UK) L ACCU GBP June 2019.pdf
.Attachments.Add "C:\Users\arazaq\Documents\Black\iShares\iShares Pacific ex Japan Equity Index GBP June 2019.pdf"
End If
.Display 'or '.Send 'to send the email
End With
End Sub
Or try the select case statement if you have many possible options to choose
Sub email()
Dim OutMail As Object
'send email
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = ThisWorkbook.Sheets("Sheet1").Range("K10") '
.Subject = "Black Monthly Reports"
Select case ThisWorkbook.Sheets("Sheet1").Range("H12").Value
Case "E"
.Attachments.Add "C:\Users\arazaq\Documents\Black\European Equity Index GBP June 2019.pdf "
.Attachments.Add "C:\Users\arazaq\Documents\Black\North American Index GBP June 2019.pdf"
Case "ENAP"
.Attachments.Add "C:\Users\arazaq\Documents\Black\Continental European Equity Index Fund (UK) Class L ACCU GBP June 2019.pdf"
.Attachments.Add "C:\Users\arazaq\Documents\Black\iShares North American Equity Index Fund (UK) L ACCU GBP June 2019.pdf
.Attachments.Add "C:\Users\arazaq\Documents\Black\iShares\iShares Pacific ex Japan Equity Index GBP June 2019.pdf"
End select
.Display 'or '.Send 'to send the email
End With
End Sub
Bookmarks