VBA Code Error When Adding Attachments

[CarlStephens]

Hello,

The below code errors when there is no file path address for the attachment and does not create the email. The below example, shows theres only 4/6 attachments and the last two cells (C11 & C12) are blank. What do I need to add to the code for the code to ignore these cells if they are blank and create the email? Thank you.

Sub Send_Single_Email()

Dim xOutApp As Object
Dim xOutMail As Object
    Dim xMailBody As String
Dim ws As Worksheet
Set ws = Sheets("1")
Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)

With xOutMail
.To = ws.Range("C2").Value
.CC = ws.Range("C3").Value
.BCC = ws.Range("C4").Value
.Subject = ws.Range("C5").Value
.body = Join(Application.Transpose(ws.Range("C14", ws.Cells(ws.Rows.Count, "C").End(xlUp)).Value), vbCrLf)
.Attachments.Add ws.Range("C7").Value
.Attachments.Add ws.Range("C8").Value
.Attachments.Add ws.Range("C9").Value
.Attachments.Add ws.Range("C10").Value
.Attachments.Add ws.Range("C11").Value
.Attachments.Add ws.Range("C12").Value
On Error Resume Next
.Display

End With
On Error GoTo 0
Set xOutMail = Nothing
Set xOutApp = Nothing
End Sub

 

[RoryA]

Move the On Error Resume Next above the first Attachments.Add line, then put On Error Goto 0 after the last one.

 

[CarlStephens]

Thanks Rory. I am now getting a display error. Do you know what is causing this?