With Destwb
.SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum
On Error Resume Next
With OutMail
.To = "xxxx@xxx.com"
.CC = Range("D10")
.Subject = Range("d16") & " " & "-" & " " & Range("b7") & " " & Range("d7") & " " & "-" & " " & "XXXXXX"
.Body = ThisWorkbook.Worksheets("RANDOMSHEETS").Range("AC2")
.Attachments.Add Destwb.FullName
'You can add other files also like this
'.Attachments.Add ("C:\test.txt")
.Display
End With