I really appreciated your help, I did some change in there so it will pick up to and put it in from.
Thank you so much.
Dim Mail As Outlook.MailItem
On Error Resume Next
Set objApp = GetObject("", "Outlook.Application")