ActiveWorkbook.Save
Range("I5").Select
Sheets("DETAILS").Select
FileDate = Range("B1").Value
ESubject = "Internal Communication Log-book - FA - Week " & FileDate
SendTo = "aaa@bbb.com"
CCTo = ""
Ebody = "Hello," & vbCrLf & vbCrLf & "Please find attached the Internal Communication Log-book " & FileDate & vbCrLf & vbCrLf & "Regards,"
NewFileName = "W:\log book.xls"
Set App = CreateObject("Outlook.Application")
Set Itm = App.CreateItem(0)
With Itm
.Subject = ESubject
.To = SendTo
.CC = CCTo
.Body = Ebody
.Attachments.Add (NewFileName)
.Display
' .send
End With
Set App = Nothing