I use this script below in VB to send my received emails in outlook at work to my personal email. I do it this way so that the messages I send do not include the "FW:" and come with the original subject and message body. I am curious if anyone knows a way that I can have the script automatically delete the sent email after it has been sent, while still keeping the original message received in Outlook. Any help would be appreciated.
Sub SendNew(Item As Outlook.MailItem)
Dim objMsg As MailItem
Set objMsg = Application.CreateItem(olMailItem)
objMsg.Body = Item.Body
objMsg.Subject = Item.Subject
objMsg.Recipients.Add "alias@domain.com"
objMsg.Send
End Sub
Bookmarks