Hi,
First time posting, thanks for viewing and all your help till now.

I'm using a macro to create an email (an order acceptance). Below I've copied the code that I'm guessing may be helpful.

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
.To = Sheets("Summary").Range("CSiteEngEmail") & "; " & Sheets("Summary").Range("CProcurementEmail")
.CC = Sheets("Summary").Range("CQEEmail") & "; " & Sheets("Summary").Range("CPMEmail")
.Subject = strsubject
.HTMLBody = strbody & Signature
.Display
End With


I want to save a copy of the email created. I've browsed various forums and can't find anywhere suggesting how to do this. This workbook populates a few emails, and after the user sends the email it resides in their Outlook sent items. Ideally I'd like to save a copy of each of these emails on our network for future reference and proof that it was sent.

Obviously the macro I'm suggesting isn't ideal.. i.e. if the user edits the email before sending it then the saved version will be the uneditted template. This isn't the end of the world, however if any of you have any ideas of how I could avoid this situation then great.

Fingers crossed theres a ".SaveCopyAs" type function!!

Thanks