Eufile = Savefolder & "" & Filename & " " & TodayDate & " " & Name & Filetype



ActiveWorkbook.SaveAs Filename:=Eufile
ActiveWorkbook.Close
Set template = CreateObject("Outlook.Application")

template.Session.Logon
Set file = template.CreateItemFromTemplate(templatefolder & "" & Name & ".oft")



With file
.Attachments.Add (Eufile)

End With

file.display