Sub Test()
Dim olApp As Object, olMail As Object
Set olApp = CreateObject("Outlook.Application")
Set olMail = olApp.CreateItem(0)
olMail.To = "Anyone@anywhere.com"
olMail.Body = Range("a1") 'Change to suit your needs
'To display the message use this
olMail.Display
'or to send the message use this
'olMail.Send
'Reactive Excel
AppActivate "Microsoft Excel"
End Sub
Now How cant i add a attachement file in the macro